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!

Abi Bunu Şöyle Yapazmıyız 5 Kere Kaçacak Ondansonra Duracak Bastığımızda Siteye Yönlendirilecek.
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
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
çok troll paylaşım arkadaşları deli etmek için teşekkürler ! :)

Yukarı Git