強力鎯頭 VB BLOG

VB.Net執行期拖拉移動控制項範例

方法1:Public Class Form1 Dim pos As MouseEventArgs = Nothing '用來記錄滑鼠點下起始位置 Private Sub Form1_Load(ByVal s As Object, ByVal e As EventArgs) Handles MyBase.Load ' Loop 表單中控制項 For Each ctl As Control In Me.Controls 'AddHandler 陳述式 : 執行階段使事件與事件處理常式產生關聯。 AddHandler ctl.MouseMove, AddressOf Ctl_MouseMove AddHandler ctl.MouseDown, AddressOf Ctl_MouseDown Next End Sub Private Sub Ctl_MouseMove(ByVal s As Object, ByVal e As MouseEventArgs) Dim c As Control = DirectCast(s, Control) ' 型別轉換作業 If c.Capture Then ' 控制項是否 Capture Mouse ' 指定控制項新位置 c.Location = New Point(e.X + c.Location.X - pos.X, e.Y + c.Location.Y - pos.Y) End If End Sub Private Sub Ctl_MouseDown(ByVal s As Object, ByVal e As MouseEventArgs) pos = e ' 記錄控制項舊位置 End Sub End Class