VB.Net none formu Picturebox ile taşıma

[ndngailesi]

Tüm Gerekli Açıklama Burda

Arkadaşlar Form Border Style Olayını None Yaptığımızda Bir Çoğumuzda Sürükleme Sorunu Olmuştur ve Çözümünü Bulamamışsınızdır Çünki Çoğu Yerde Doğru Düzgün Kod Yok veyada Doru Kelimeyi Aramamışsınızdır Neyse Ben Direk Olaya Gireyim..

Arakadaşlar Ben Sürükleme İşlemini Bi Picturebox Halinde Anlatacağım Siz İçindeki Belirli Kodları Başka Objelerede Yazabilirisiniz..

PictureBox1_MouseDown Olayı Aşağıdaki Kod :
Kod:
Dim oynat As Boolean
Dim kordinatx As String
Dim kordinaty As String
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
'Bundan Aşağısını İstediğiniz Objenin Mouse Down Olayına Yapıştırabilrisiniz.
oynat = True 'Oynat True Yaptık
KordinatX = Windows.Forms.Cursor.Position.X - Me.Left 'Mousenin X Kordinatı
KordinatY = Windows.Forms.Cursor.Position.Y - Me.Top 'Mousenin Y Korinatı
'Bundan Yukarısını İstediğiniz Objenin Mouse Down Olayına Yapıştırabilrisiniz.
End Sub

PictureBox1_MouseMove Olayı Aşağıdaki Kod :
Kod:
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
'Bundan Aşağısını İstediğiniz Bir Objenin Mouse Move Olayına Yapıştırabilirsiniz.
'Oynat True İse Formu Taşır
If oynat Then
Me.Top = Windows.Forms.Cursor.Position.Y - KordinatY
Me.Left = Windows.Forms.Cursor.Position.X - KordinatX
End If
'Burdan Yukarısını İstediğiniz bir Objenin Mouse Move Olayına Yapıştırabilirsiniz.
End Sub

PictureBox1_MouseUp Olayının Kodu :
Kod:
Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
'Burdan Aşağısını İstediğiniz Bir Objenin Mouse UP Olayında Kullanabilrisiniz
oynat = False
'Burdan Yukarısını İstediğiniz Bir Objenin Mouse UP Olayında Kullanabilrisiniz
End Sub

Hata alanlar birde şöyle kodlasın

 

[ndngailesi]

1 Repi çok görmeyin <3

 

[ndngailesi]

resim felan atabilirmisin bro

 

[ndngailesi]

Konu Güncellendi.

 

[recep12]

binufudrag control kullanabilirsin bellek tasaruffu olur

 

[canim142]

knk ne resmi atacam reklam onayi basiyom cmd oluyor onay tamamlandi diyor cmd yazliyor sora otrum kontrol edliyor yaziyor basqa hec bi sey anca otrum kontrol edliyor yazliyor

 

[canim142]

boyle oluyor aga ne yapim ben

 

[ndngailesi]

sende sıkıntı var bende gayet iyi çalısıyor

 

[ndngailesi]

binufudrag control kullanabilirsin bellek tasaruffu olur

kardeş sen nasıl istiyorsan öle yap