Fareden Kaçan Buton Yapmak (Şaka İçin)(visual basic)

Önceki başlık Sonraki başlık Aşağa gitmek

Fareden Kaçan Buton Yapmak (Şaka İçin)(visual basic)

Mesaj  EYUP_CEZA Bir Cuma Ekim 24, 2008 6:09 pm

Formumuza bir adet buton ekliyoruz. ve aşağıdaki kodu
formumuza aynen yapıştırıyoruz...

Kod:
Sub mouse_geldi(Button As CommandButton)
If Button.Left = 100 And Button.Top = 100 Then
Button.Left = 100
Button.Top = 2500
ElseIf Button.Left = 100 And Button.Top = 2500 Then
Button.Left = 2500
Button.Top = 2500
ElseIf Button.Left = 2500 And Button.Top = 2500 Then
Button.Left = 2500
Button.Top = 100
ElseIf Button.Left = 2500 And Button.Top = 100 Then
Button.Left = Screen.TwipsPerPixelX / 2
Button.Top = Screen.TwipsPerPixelY / 2
Else
Button.Left = 100
Button.Top = 100
End If

End Sub

Private Sub Command1_Click()
MsgBox "niye entere yada spacebar a basıyon ?" & vbCrLf & "Sıkıysa mouseyle bassana..Hahahah", vbInformation + vbOKOnly, "visualbasic.talebe.net"

End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
mouse_geldi Command1
Form1.SetFocus
End Sub

Private Sub Form_Load()
Me.ScaleMode = 1
Command1.Left = 165
Command1.Top = 135
Me.BorderStyle = 1
Me.Caption = "visualbasic.talebe.net"
Me.Width = 4000
Me.Height = 3900
End Sub
avatar
EYUP_CEZA
SINIF BAŞKANI
SINIF BAŞKANI

Mesaj Sayısı : 309
Yaş : 24
Nerden : evden :D
Kayıt tarihi : 30/09/08

Kullanıcı profilini gör http://pckurdu.newgoo.net

Sayfa başına dön Aşağa gitmek

Önceki başlık Sonraki başlık Sayfa başına dön


 
Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz