2020年8月4日 星期二

vb.net 執行時可移動控件 [Can move component] 

1
2
    Private dragging As Boolean
    Private beginX, beginY As Integer






1
2
3
4
5
6
    Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
        dragging = True
        beginX = e.X
        beginY = e.Y

    End Sub


1
2
3
4
5
6
    Private Sub Button1_MouseMove(sender As Object, e As MouseEventArgs) Handles Button1.MouseMove
        If dragging = True Then
            Button1.Location = New Point(Button1.Location.X + e.X - beginX, Button1.Location.Y + e.Y - beginY)
            Me.Refresh()
        End If
    End Sub


1
2
3
    Private Sub Button1_MouseUp(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp
        dragging = False
    End Sub

於
標籤： , , , ,

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)