Anasayfa > Kodlar > VB.NET ile Picturebox nesnesini form içinde gezdirmek

VB.NET ile Picturebox nesnesini form içinde gezdirmek


PictureBox veya herhangi bir nesneyi (Mousemove özelliği olan) form içinde fare ile tutup gezdirebilirsiniz


Dim sol, ust, d

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
sol = X
ust = Y
d = 1

'okxd®2004
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 And d = 1 Then
With Picture1
.Left = .Left + X - Val(sol)
.Top = .Top + Y - Val(ust)
End With
End If
'okxd®2004 http://www.vbornek.com
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
d = 0
End Sub

bu örneği diğer nesnelerde de uygulayabilirsiniz HAT TA form'un kendinde de uygulayabilirsiniz. formun herhangi bir yerinden fare ile tutup gezdirebilirsiniz.

Reklamlar
  1. remzi
    06/02/2011, 22:49

    merhabalar ben lise 3. sınıf öğrencisiyim hocamız benden kızmabirader oyununu yapmamı istedi benim de en ufak bi fikrim yok yardımcı olursanız sevinirim..

    Beğen

  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: