例46：鼠标事件示例
- 建立一个EXE工程，在默认窗体上放一个文本框，设多行有效，再放一个标签。
- 在标签的鼠标按下，鼠标抬起，双击事件中分别输入代码，当这些事件发生时会在文本框中显示对应事件发生的文字提示。如图42.
图42
- 代码如下：
Sub Form1_Label1_WM_LButtonDown(hWndForm As hWnd, MouseFlags As Long, xPos As Long, yPos As Long)
Text1.Text=Text1.Text & "MouseDown事件" & vbCrLf
End Sub
Sub Form1_Label1_WM_LButtonUp(hWndForm As hWnd, MouseFlags As Long, xPos As Long, yPos As Long)
Text1.Text=Text1.Text & "MouseUp事件" & vbCrLf
End Sub
Sub Form1_Label1_WM_LButtonDblclk(hWndForm As hWnd, MouseFlags As Long, xPos As Long, yPos As Long)
Text1.Text=Text1.Text & "MouseDblClick事件" & vbCrLf
End Sub原文地址：https://blog.csdn.net/u010763140/article/details/136990032
免责声明：本站文章内容转载自网络资源，如本站内容侵犯了原著者的合法权益，可联系本站删除。更多内容请关注自学内容网（zxcms.com）！