Nabend!

Und wieder eine Frage:
Ich würde gerne mehrere PictureBoxen haben, die je nach der Größe des Bildschirms sich skalieren. Nur habe ich leider bisher noch nicht den passenden Wert gefunden! Oder muss ich das ganze per Code lösen?

Das Beispiel:
Ein großer Tisch, auf diesem sollen 5 Karten ( Bilder in den PictureBoxen ) gelegt werden. Das ganze läuft im "Vollbildmodus". Da verschiedene Leute verschiedene Auflösungen haben hätten einige an den Rändern einen großen Bereich voller nichts, bei anderen grenzen die Bilder bis an den Bildschirmrand. Was tun?

jo da binn ich auch grade drann,habe folgendes gefunden !


Skalieren

Größe und Position von Formen und Steuerelementen
an unterschiedliche Bildschirmauflösungen anpassen.

Hat der Rechner auf dem ein Programm abläuft eine andere Bildschirmauflösung als der Rechner auf dem das Programm erstellt wurde, so werden Formen und Steuerelemente auf den beiden Rechnern unterschiedlich groß dargestellt.

Ein Programm "xyz" wird z.B. auf einem Rechner mit einer aktuellen Bildschirmauflösung von 800 * 600 Pixel erstellt.
Wird dieses Programm jetzt auf einem Rechner mit einer höheren Auflösung (z.B. 1024 * 768) installiert, so werden ohne besondere Vorkehrungen im Programm alle Fenster und Steuerelemente deutlich kleiner als auf dem Entwicklungsrechner dargestellt. Dies könnte in vielen Fällen noch toleriert werden. Unangenehmer wird es aber, wenn der Rechner auf dem das Programm laufen soll eine niedrigere Bildschirmauflösung (z.B. 640 * 480) benutzt. Jetzt werden Fenster und Steuerelemente größer als auf dem Entwicklungsrechner abgebildet. Dies hat zur Folge, dass ein Fenster möglicherweise größer als die tatsächliche Bildschirmfläche wird und einige Steuerelemente der Form gar nicht mehr sichtbar sind. Dies wird sicher kein Anwender tolerieren.

Das Programm sollte also prüfen, mit welcher tatsächlichen Auflösung gearbeitet wird und Grösse und Position von Formen und Steuerelementen entsprechend anpassen.

Die Sub "Skalieren" im folgenden Programmausschnitt sorgt dafür, dass ein Programm unabhängig von der jeweiligen Bildschirmauflösung wird.

Die Werte für die Konstanten
DWidth ( = Screen.Width) und
DHeight ( = Screen.Height)
müssen am Entwicklungsrechner zur Designzeit ermittelt werden.

Beim SSTab gibt es eine Besonderheit.
Für Controls die auf einem momentan nicht sichtbaren Tab liegen wird von der tatsächlichen Left-Eigenschaft ein fester Wert von 75000 (Twips) abgezogen.
D.h. ein Control, das auf einem gerade sichtbaren Tab auf Control.Left = 1000 liegt, erhält in dem Moment in dem das Tab unsichtbar wird (durch Userklick oder durch Code) Control.Left = -74000.
Beim Skalieren muss man also abfragen, ob 1. der Container des Controls ein SSTab ist und ob 2. die Left-Eigenschaft < 0 ist. Sind beide Bedingungen erfüllt, dann muss der Wert für Left entsprechend korrigiert werden.

Ebenso müssen Controls die sich auf einem Toolbarcontrol befinden gesondert behandelt werden. Toolbarcontrols haben feste Werte für z.B. ButtonHeigth, ButtonWidth. Textfelder oder andere Controls, die sich auf einem Toolbarcontrol befinden, werden deshalb sinnvollerweise nach dem Skalieren der Form getrennt an der gewünschten Stelle eingepasst.

Public Sub Skalieren(FRM As Form, ScaleForm As Boolean, ScaleFont As Boolean)
'Skaliert alle Elemente der übergebenen Form
'Elemente in Toolbars müssen separat ausgerichtet werden, da Toolbar nicht skaliert wird




Die Sub wird z.B. im Form_Load - Ereignis so aufgerufen

Skalieren Me, True, True

Der Aufruf bewirkt dass alle Controls auf der Form, die Form selbst und die Fontgrößen skaliert werden.

Wurde die Eigenschaft WindowState der Form zur Designzeit bereits auf vbMaximized eingestellt so ist das Skalieren der Form selbst nicht sinnvoll.
Die Sub wird dann z.B. so aufgerufen:

Skalieren Me, False, True


Die Einstellung der Werte für .Left, .Top, .Width, .Height kann nicht ohne weiteres in einer "Move Left, Top, Width, Height" - Anweisung zusammengefasst werden. Befinden sich auf der Form Steuerelemente, bei denen eine der Eigenschaften Left, Top, Width oder Height nicht einstellbar ist, so würde wegen "On Error Resume Next" die gesamte Anweisung übergangen. D.h. es würde keine Positionierung bzw. Skalierung für dieses Steuerelement durchgeführt.

Befinden sich auf der Form Liniensteuerelemente (Line) so müssen die jeweiligen X- und Y- Koordinaten ebenfalls in die Skalierung mit einbezogen werden.
Line1.X1 = Line1.X1 * SFX
Line1.X2 = Line1.X2 * SFX
Line1.Y1 = LIne1.Y1 * SFX
Line1.Y2 = LIne1.Y2 * SFY

VIEL SPAß ; ICH GEBS MIR MORGEN

Der Code oben ist Ranz, probiers erst gar nicht.
Steig übrigens auf GDI+ um, mit PictureBoxen etc. macht man keine Spiele.

wenn de was besseres als beispiel hast her damit ich brauchs auch

Ich frage mich, wofürs so praktische Dingers wie TablePanels und Anchor-Eigenschaftens gibt. ...
Achja, und GDI mit Klassen von Spielobjekten, dioe sich selber zeichnen zu können in der Lage sind.

Fiel Fergnügen

Vatter

C&P gibts von mir nicht. Guck dir hier im Forum die unzähligen Threads zu GDI+ an und lern daraus.