.Net 知識家

Public Class Form1
    Private Check As Integer
    Private temp_x As Integer
    Private temp_y As Integer
    Private pointTemp As Point
    Public Sub New()
        '無框拖曳
        AddHandler MyBase.MouseDown, New MouseEventHandler(AddressOf Me.Form1_MouseDown)
        AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form1_Load)
        AddHandler MyBase.MouseMove, New MouseEventHandler(AddressOf Me.Form1_MouseMove)
        AddHandler MyBase.MouseUp, New MouseEventHandler(AddressOf Me.Form1_MouseUp)
        Me.InitializeComponent()
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs)
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None '無框顯示
        Me.Size = New Size(128, 128)
        Me.BackColor = System.Drawing.SystemColors.Control
        Me.TransparencyKey = System.Drawing.SystemColors.Control
        Me.BackgroundImage = My.Resources.love
    End Sub
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
        If (e.Button = MouseButtons.Left) Then
            Me.Check = 1
            Me.temp_x = e.X
            Me.temp_y = e.Y
        End If
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
        If ((Me.Check = 1) And (e.Button = MouseButtons.Left)) Then
            Me.pointTemp.X = (Me.pointTemp.X + (e.X - Me.temp_x))
            Me.pointTemp.Y = (Me.pointTemp.Y + (e.Y - Me.temp_y))
            Me.Location = Me.pointTemp
        End If
    End Sub
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs)
        If (e.Button = MouseButtons.Left) Then
            Me.Check = 0
            Me.temp_x = 0
            Me.temp_y = 0
        End If
    End Sub
End Class