| 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 | |
| |
zurück