Vibrierende Form VB-Version:  VB5, VB6
	Views:  5.637

Sie brauchen ein kleines Erdbeben? Vielleicht für ein Spiel, oder einfach sozum Spaß?

Nehmen Sie eine Form mit einem CommandButton und diesen Code:

Private Sub Command1_Click()
  Dim i As Integer
  Dim j As Integer
 
  For i = 40 To 0 Step -2
    For j = 1 To 20
      Me.Top = Me.Top + i
      Me.Left = Me.Left + i
      Me.Top = Me.Top - i
      Me.Left = Me.Left - i
    Next j
  Next i
End Sub

Starten Sie das Projekt und klicken Sie auf den CommandButton. Verändern Sieim Code die Zahlen um ein längeres oder kürzeres, stärkeres oder schwächeresBeben zu simulieren.

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.