Panel1双击事件无法使用呀解决方法

Panel1双击事件无法使用呀
程序中哈有下面代码后，双击Panel1事件无效应该怎么样做呀

VB.NET code

    Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer    Public Declare Function ReleaseCapture Lib "user32.dll" Alias "ReleaseCapture" () As Integer    Private Const WM_SYSCOMMAND = &H112    Private Const SC_MOVE = &HF010&    Private Const WM_NCLBUTTONDOWN = &HA1    Private Const HTCAPTION = 2    Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown        If e.Button = MouseButtons.Left Then            ReleaseCapture()            SendMessage(Me.Handle.ToInt32, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)        End If    End Sub

[解决办法]
If e.Button = MouseButtons.Left Then
把上面这句改成下面这句，双击事件就有效了
If e.Button = MouseButtons.Left AndAlso e.Clicks = 1 Then

查看更多 下一篇