Hi Leute,bin grad über eine Google-Suche auf Euer Forum gestoßen.
Ich kämpfe hier grad mit einem ganz komischen Problem und hoffe die Profis unter Euch können mir da irgendwie etwas weiterhelfen... ich bin absoluter VB-Anfänger!!
Also ich hab ein Formular (VB6) und möchte dieses proportional vergrößern bzw. verkleinern. Dafür hab ich zweit If-Abfragen geschrieben, die je nachdem ob Höhe oder Breite verändert wird, die andere Seite mit dem Ratio anpassen.
Das Problem ist jetzt, dass immer die Abfrage, die als zweites im Programm steht Probleme macht. Irgendwie wird die "alte" Fenstergröße gespeichert und der springt dauernd hin und her.... ist jetzt zugegeben etwas komisch zu erklären....aber wäre super wenn Ihr Euch das mal anschauen würdet...
Zitat:
Dim Ratio As Double Dim H_Temp, W_Temp
Dim In_Resize
Private Sub Form_Load()
Ratio = 1.333 End Sub
Private Sub Form_Resize()
If In_Resize = TrueThen Exit Sub
'Formhöhe darf nicht kleiner werden als 3915:
If Form1.Height < 3915 Then Form1.Height = 3915
In_Resize = True
'If-Abfragen zum proportionalen Vergrößern/Verkleinern If Not W_Temp = Form1.Width Then Form1.Height = Form1.Width / Ratio
If Not H_Temp = Form1.Height Then Form1.Width = Form1.Height * Ratio
H_Temp = Form1.Height
W_Temp = Form1.Width
'Mindestbreite der Form entsprechend der Mindesthöhe anpassen: If Form1.Height < 3915Then
Form1.Height = 3915
Form1.Width = (Form1.Height * Ratio)
End If
In_Resize = False End Sub
Freue mich über jede Hilfe oder Tipp!!! Danke schon mal im Voraus
Registrieren
Login
