Mousedan Kaçan Butonlar Güzeli Saka :)

B

bluedream

Katılımcı Üye
27 Şub 2007
457
2
Evet Form'a
3 tane command

Ve aşağıdaki kodu yapıştırn

Kod:
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Visible = False
Command2.Visible = True
End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command2.Visible = False
Command3.Visible = True
End Sub
Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command3.Visible = False
Command1.Visible = True
End Sub
 
V

VBasicMaster_MYY

Üye
11 Eyl 2007
63
0
Paylaşım için teşekkürler aynı iş ama değişik bir kodda benden

bir tane command ekleyin
kod penceresine bu kodu yapıştırın

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Randomize Timer
Command1.Left = Rnd * Val(Form1.Width)
Command1.Top = Rnd * Val(Form1.Height)
End Sub
 
T

tegmen_edip

Yeni üye
2 Eyl 2007
6
0
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Randomize Timer
Command1.Left = Rnd * Val(Form1.Width)
Command1.Top = Rnd * Val(Form1.Height)
End Sub
 
C

ChUcKy's_LoVe

Katılımcı Üye
24 Ağu 2007
690
15
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Visible = False
Command2.Visible = True
End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command2.Visible = False
Command3.Visible = True
End Sub
Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command3.Visible = False
Command1.Visible = True
End Sub
budur rep ben ister ondan
 
F

FırLaMaTiM

Yeni üye
25 Ağu 2007
12
0
Sanane (:
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Visible = False
Command2.Visible = True
End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command2.Visible = False
Command3.Visible = True
End Sub
Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command3.Visible = False
Command1.Visible = True
End Sub
 
C

crayzman15

Katılımcı Üye
3 Şub 2010
301
0
İstanbul
şöyle olabilirmi ileriye doğru giden kronometre ekleriz . bide yakalanabilir ama zor olur ve yakalayınca TEBRİKLER felan yazar böyle bir şey yapılabılırmı ?
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.