Formular bewegt sich am Bildschirmrand gegen den Uhrzeigersinn

Formular bewegt sich am Bildschirmrand gegen den Uhrzeigersinn: For ... Next, Refresh
Private Sub Command1_Click()
Dim i#, start%
For i = 0 To Screen.Height - (2.5 * Command1.Height) _
Step 0.5
Form wandert am linken Bildschirmrand abwärts.
Me.Top = i
Command1.Caption = i & ", " & Me.Width
Command1.Refresh Zeichnet den Button stets neu.
Next i
For i = 0 To Screen.Width - Command1.Width Step 0.5 Form wandert am unteren Bildschirmrand nach rechts.
Me.Left = i
Command1.Caption = Me.Height & ", " & i
Command1.Refresh
Next i
start = Screen.Height - Me.Height
For i = start To 0 Step -0.5 Form wandert am rechten Bildschirmrand aufwärts.
Me.Top = i
Command1.Caption = i & ", " & Me.Width
Command1.Refresh
Next i
start = Screen.Width - Me.Width
For i = start To 0 Step -0.5 Form wandert am oberen Bildschirmrand nach links.
Me.Left = i
Command1.Caption = Me.Height & ", " & i
Command1.Refresh
Next i
Me.Top = 0
Me.Left = 0
Command1.Visible = False
For i = Me.Width And Me.Height To 10000 Step 0.5 Form vergrößert sich gleichmäßig.
Me.Height = i
Me.Width = i * 1.1
Next i
Command1.Visible = True
For i = 0 To Me.Height And Me.Width - Command1.Width _
Step 1
CommandButton wandert im vergrößerten Formular
DoEvents von links oben nach rechts unten.
Command1.Left = i
Command1.Top = i
Command1.Caption = "Hallo " & i
Command1.Refresh
Next i
End
End Sub
Private Sub Form_Load()
With Me Laden des Formulars. Startposition obere linke Ecke
.Top = 0 des Bildschirms.
.Left = 0
End With
Refresh
End Sub
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