, , , , da pic... , , flatstyle da "none"
da, - , da da , 3 (, , ) , , . ..... , da, , da - 2 .
1- varibless
2- normal codes
1- the varilbels
==================
Public Class your_form
Dim x, y As Integer
Dim newpoint As New System.Drawing.Point
===============================================
2-normal codes
Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
x = Control.MousePosition.X - Me.Location.X
y = Control.MousePosition.Y - Me.Location.Y
End Sub
Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
newpoint = Control.MousePosition
newpoint.X -= (x)
newpoint.Y -= (y)
Me.Location = newpoint
End If
End Sub
=======================================
1
source
share