Shape randomize

[jackba]

hallo

ich möchte ein shape zufällig starten lassen?
wie krieg ich das hin?

 

[Shakie]

Also irgendwie verstehe ich deine Frage nicht! Ein Shape ist doch dieses Steuerelement, mit dem Kreise, Ellipsen und Rechtecke erstellt werden können bzw. die Shape-Funktion, die das selbe tut. Aber was willst du daran starten ?

 

[jackba]

also wenn ich auf start drücke soll er immer bei einer anderen position starten.
nie von der gleichen stelle.

 

[Shakie]

Dann setzt doch einfach in Form_Load die Positionseigenschaften des Shapes mit einer Zufallszahl.

Randomize
Zufallszahl=Rnd

Das ganze würde dann so aussehen:

Private Sub Form_Load()
    Randomize
    Shape1.Left = Rnd * (Me.ScaleWidth - Me.Shape1.Width)
    Shape1.Top = Rnd * (Me.ScaleHeight - Me.Shape1.Height)
End Sub