05-08-15, 10:18 AM
سلام
موفقين
كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dragg()
End Sub
#Region "Dragging"
Dim startX As Integer
Private Sub Dragg()
For Each Control As Control In Me.Controls
If TypeOf Control Is Button Then
AddHandler Control.MouseDown, AddressOf startDrag
AddHandler Control.MouseMove, AddressOf whileDragging
End If
Next
End Sub
Private Sub startDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
startX = e.X
End Sub
Private Sub whileDragging(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Left Then
sender.Location = New Point(sender.Location.X + e.X - startX, sender.Location.Y)
End If
End Sub
#End Region
End Classموفقين
متغيب
