- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Bu dersimizde "Tıklayamazsın" oyunu yapacağız. Kodlar sadece 2 satırdan ibaret.
Çalıştığında siz fare imlecini button'un üzerine getirdiginizde buton kaçaçaktır, yani tıklayamayacaksınız.
Sahneye 1 adet button ekliyoruz ve button1'e aşağıdaki kodu yazıyoruz.
Kod:
Public Class Form1 Dim rnd As New Random Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove Button1.Left = rnd.Next(0, Me.Bounds.Width - Button1.Width) Button1.Top = rnd.Next(0, Me.Bounds.Height - Button1.Height) End Sub End Class
Çalıştığında siz fare imlecini button'un üzerine getirdiginizde buton kaçaçaktır, yani tıklayamayacaksınız.
Sahneye 1 adet button ekliyoruz ve button1'e aşağıdaki kodu yazıyoruz.
Kod:
Public Class Form1 Dim rnd As New Random Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove Button1.Left = rnd.Next(0, Me.Bounds.Width - Button1.Width) Button1.Top = rnd.Next(0, Me.Bounds.Height - Button1.Height) End Sub End Class
