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...
Danke Euch schon mal im Voraus!!
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...
Visual Basic-Quellcode
- 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 = True Then Exit Sub
- 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
- If Form1.Height < 3915 Then
- Form1.Height = 3915
- Form1.Width = (Form1.Height * Ratio)
- End If
- In_Resize = False
- End Sub
Danke Euch schon mal im Voraus!!