Private Sub MoveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MoveToolStripMenuItem.Click
SendMessage(Me.Handle, , , ) '这里面应该用什么参数,可以让我激活MOVE事件?
End Sub
不知道搂主啥意思。
看一下这段代码
Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Declare Sub ReleaseCapture Lib "User32" ()
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
ReleaseCapture()
SendMessage(Me.Handle, &HA1, 2, 0)
End Sub