Kaçan button

[xelloz]

Arkadaşlar bunun için sadece bir button ekleyin
buttonu MouseMove olarak ayarını değiştirin ve şunları yazın
Randomize
a=int(rnd*3500)+1
b=int(rnd*3500)+1
commandbutton1.left=a
commandbutton1.top=b

bunları yaptıktan sonra programı çalıştırın buttonun üzerine geldiğinizde sizden hep kaçıcaktır..

:biggrin :biggrin :biggrin :biggrin

 

[Xpert1ynx]

Birde formu şeffaflaştırın, start menuyu gizleyin, düğmeyi başlat menüsüne yazıp öyle deneyin.

 

[MURAT-25]

hiçbirşey anlamadım:saskin :saskin

 

[xelloz]

vb biliomusun .0?

 

[mayhemious]

hiçbirşey anlamadım:saskin :saskin

bunu dene

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a, b As Integer
Randomize
a = Int(Rnd * 3500) + 1
b = Int(Rnd * 3500) + 1
Command1.Left = a
Command1.Top = b
End Sub

 

[batucan72]

paylaşım için teşekkürler.