Merhaba, çoğu kişinin aradığı cevabı aşağıda detaylı olarak yazdım
1) Öncelikle projenize bir "panel" ekleyin.

2) Panelin "özellikler" kısmından "olaylar" düğmesine basın. Açılan sekmeden kutu içine aldığım yerlere çift tık yaparak kod bölümüne gidiyoruz.

3) Verdiğim kodları resimdeki gibi yerlerine yazın.

Alıntı:
1)
bool tutus;
int FareX, FareY;
2)
if (tutus == true) {
this.Left = Cursor.Position.X - FareX;
this.Top = Cursor.Position.Y - FareY;
}
3)
tutus = false;
FareX = 0;
FareY = 0;
4)
tutus = true;
FareX = Cursor.Position.X - this.Left;
FareY = Cursor.Position.Y - this.Top;
Alıntı:
R3X´isimli üyeden Alıntı (Mesaj 9216845)
vb.net versiyonu;
Kod:
Dim draggable As Boolean
Dim mouseX As Integer
Dim mouseY As Integer
Private Sub Panel1_MouseUp(sender As Object, e As MouseEventArgs) Handles Panel1.MouseUp
draggable = False
End Sub
Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
If draggable Then
Me.Top = Cursor.Position.Y - mouseY
Me.Left = Cursor.Position.X - mouseX
End If
End Sub
Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
draggable = True
mouseX = Cursor.Position.X - Me.Left
mouseY = Cursor.Position.Y - Me.Top
End Sub
Katkısından dolayı teşekkür ediyorum
Başka bir konuda görüşmek üzere hoşça kalın
1) Öncelikle projenize bir "panel" ekleyin.

2) Panelin "özellikler" kısmından "olaylar" düğmesine basın. Açılan sekmeden kutu içine aldığım yerlere çift tık yaparak kod bölümüne gidiyoruz.

3) Verdiğim kodları resimdeki gibi yerlerine yazın.

Alıntı:
1)
bool tutus;
int FareX, FareY;
2)
if (tutus == true) {
this.Left = Cursor.Position.X - FareX;
this.Top = Cursor.Position.Y - FareY;
}
3)
tutus = false;
FareX = 0;
FareY = 0;
4)
tutus = true;
FareX = Cursor.Position.X - this.Left;
FareY = Cursor.Position.Y - this.Top;
Alıntı:
R3X´isimli üyeden Alıntı (Mesaj 9216845)
vb.net versiyonu;
Kod:
Dim draggable As Boolean
Dim mouseX As Integer
Dim mouseY As Integer
Private Sub Panel1_MouseUp(sender As Object, e As MouseEventArgs) Handles Panel1.MouseUp
draggable = False
End Sub
Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
If draggable Then
Me.Top = Cursor.Position.Y - mouseY
Me.Left = Cursor.Position.X - mouseX
End If
End Sub
Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
draggable = True
mouseX = Cursor.Position.X - Me.Left
mouseY = Cursor.Position.Y - Me.Top
End Sub
Katkısından dolayı teşekkür ediyorum
Başka bir konuda görüşmek üzere hoşça kalın