Visual Basic ile Tıklayamazsın Oyunu Yapma

Bu dersimizde "Tıklayamazsın" oyunu yapacağız. Kodlar sadece 2 satırdan ibaret.

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.


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

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

• 8 yıl önce
Abi Bunu Şöyle Yapazmıyız 5 Kere Kaçacak Ondansonra Duracak Bastığımızda Siteye Yönlendirilecek.
• 8 yıl önce
crazy_in_love; Dim rnd As New Random Dim gelinen As Integer Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove gelinen += 1 If gelinen < 5 Then Button1.Left = rnd.Next(0, Me.Bounds.Width - Button1.Width) Button1.Top = rnd.Next(0, Me.Bounds.Height - Button1.Height) Else End If End Sub Butona Basınca Gidilecek yer : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Shell("c:program filesInternet ExplorerIexplore.exe url'yi buraya") End Sub
• 8 yıl önce
abi,progressbar'da dolsun dolsun en sonunda seçenekler çıksın felan gibi şeyler bir örnek yaparmısın özel olsun lütfen arka planda müzik progressbar dolsun tıklıyım butona bişi açılsın felandı filan Lütfennnnnnnnn
• 7 yıl önce
çok troll paylaşım arkadaşları deli etmek için teşekkürler ! :)

Yukarı Git