Formular öffnet sich proportional zur Bildschirmgröße

Formular öffnet sich proportional zur Bildschirmgröße. While ... Wend
Private Sub Command1_Click()
Dim i%, k%
Command1.Visible = False
For i = Me.Height To Screen.Height Formular öffnet sich proportional zur Bildschirmgröße
Me.Height = i von links oben nach rechts unten.
Me.Width = i * (Screen.Width / Screen.Height)
Next i
With Label1 Ein Label wird initialisiert.
.Top = Screen.Height - (Label1.Height * 2)
.Left = 0
.Width = 1000
.Height = 400
.BackColor = RGB(0, 0, 255)
End With
While k <= Me.Width Label soll sich horizontal bis zur Formulargröße von links
With Label1 nach rechts vergrößern.
.Width = k * (Me.Width / Me.Height) + 1
End With
k = k + 1
Wend
End Sub
Private Sub Form_Load()
Me.Top = 0 Position des Formulars nach Laden: linke obere
Me.Left = 0 Bildschirmecke.
End Sub
' Alternativen mit Prozentrechnung
' Für das Öffnen des Formulars:
' Dim maxh As Long, maxb As Long, i As Long
' maxh = Screen.Height
' maxb = Screen.Width
' For i = 1 To 100
' Me.Height = (maxh / 100) * i
' Me.Width = (maxb / 100) * i
' Next i
' Für die Erweiterung des Labels:
' While i < Form1.ScaleWidth
' Label1.Width = Label1.Width + 1 ' oder Label1.Width = i
' i = i + 1
' Wend
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt