“ 本节课程一起学习VB中常用的鼠标事件”
 
VB是一种可视化编程语言，UI设计非常的方便。其用户交互中最为重要的方式是鼠标，此前我们介绍过鼠标的单击事件。那么本节课程我们一起来详细的学习鼠标的各种事件。
 
鼠标常用事件包括：
 Click、DblClick、MouseMove、MouseDown、MouseUp。
 
01
 —
 鼠标事件的含义
 
鼠标事件是指，用户使用鼠标发生的某个动作时触发的相应的事件。
 
有时候一个动作会触发多个事件。
 
例如：
 
鼠标单击时，不仅会触发Click事件，还会引发 MouseDown、MouseUp事件。
 
鼠标事件及动作对应关系如下：
 
Click 鼠标单击
 DblClick 鼠标双击
 MouseMove 鼠标移动
 MouseDown 鼠标按下
 MouseUp 鼠标抬起
 
鼠标事件过程的建立：
 
在代码区域，首先选中一个控件，然后选中想要的事件类型，然后系统便会自动为我们创建一个事件过程的代码框架了。我们只需要在其中编写相应的代码即可。
 
 
02
 —
 鼠标事件发生的顺序
 
单击鼠标时：
 会依次发生MouseDown、MouseUp、Click事件
 
双击鼠标时：
 会依次发生MouseDown、MouseUp、Click、DblClick、MouseUp事件
 
简单做一个程序验证一下，如下：
 首先绘制一个界面，一个窗体、一个标签控件、一个按钮。
 
 
然后编写代码，如下：
 
Private Sub Command1_Click()  
  Me.Cls
End Sub
Private Sub Label1_Click()    
  Print "click"
End Sub
Private Sub Label1_DblClick()    
  Print "Dbclick"
End Sub
Private Sub Label1_MouseDown(Button  _
As Integer, Shift As Integer, X As Single, Y As Single)    
  Print "MouseDown"
End Sub
Private Sub Label1_MouseUp(Button  _
As Integer, Shift As Integer, X As Single, Y As Single)    
  Print "MouseUp"
End Sub
 
最后，运行程序，测试下单击和双击文本框的效果。
 
单击标签
 
 
双击标签
 
 
03
 —
 鼠标事件的参数
 
以按钮的鼠标按下事件为例，其事件过程如下：
 Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
其中有4个参数，它们的含义分别为：
 Button：
 该参数用来区别用户是通过鼠标的左键、右键或中键中的哪一个按下的。Button=1时，是鼠标左键；Button=2时，是鼠标右键；Button=4时，是鼠标中键。
 Shift：
 该参数用于判断用户在单击鼠标的同时是否按下了功能按键，功能键为Shift、Ctrl、Alt，当按下Shift键时，Shift=1，当按下Ctrl键时，Shift=2，当按下Alt键时，Shift=4。如果用户同时按下其中多个功能键，则Shift参数值等于它们对应的值之和。例如按下Shift和Ctrl按键时，Shift参数值为3。
 X：
 当前鼠标的坐标x
 Y：
 当前鼠标的坐标y
 
举例：
 
 
代码如下：
 
Private Sub Command1_MouseDown(Button  _
As Integer, Shift As Integer, X As Single, Y As Single)    
  If Button = 1 Then Print "按了左键"    
  If Button = 2 Then Print "按了右键"    
  If Button = 4 Then Print "按了中键"    
  Print "Shift值：" & Shift    
  Print "鼠标位置：" & X & " " & Y    
  Print
End Sub
 
04
 —
 实例操作
 
需求：
 设计一个贱贱的《来抓我》游戏，游戏界面中只有两个按钮，玩家目标是用鼠标点击到按钮则算胜利。当然，游戏可不会这么简单，因为当鼠标移动到按钮时，按钮的位置就会改变，所以能不能点到鼠标就看你的毅力和运气啦。
 
界面设计：
 
 
代码设计：
 
Private Sub Command1_Click()    
  MsgBox "你真厉害"
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    
  Command1.Left = Rnd * (Me.Width - Command1.Width)    
  Command1.Top = Rnd * (Me.Height - Command1.Height)
End Sub
Private Sub Command2_Click()    
  MsgBox "你真厉害"
End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    
  Command2.Left = Rnd * (Me.Width - Command2.Width)    
  Command2.Top = Rnd * (Me.Height - Command2.Height)
End Sub

 
我有一个具有开始按钮的表单(允许用户根据需要反复运行进程),并且我想在表单加载时发送btnStart.Click事件,以便进程自动启动.
 
我有btnStart.Click事件的以下函数,但我如何实际告诉Visual Basic’假装有人点击了按钮并触发此事件’？
 
我试过非常简单,基本上可行.但是,Visual Studio给我一个警告变量’sender’在被赋值之前被使用,所以我猜这不是真正的方法：
 
Dim sender As Object
 
btnStart_Click(sender, New EventArgs())
 
我也尝试过使用RaiseEvent btnStart.Click,但是会出现以下错误：
 
‘btnStart’ is not an event of ‘MyProject.MyFormClass
 
码
 
Imports System.ComponentModel
 
Partial Public Class frmProgress
 
Private bw As BackgroundWorker = New BackgroundWorker
 
Public Sub New()
 
InitializeComponent()
 
' Set up the BackgroundWorker
 
bw.WorkerReportsProgress = True
 
bw.WorkerSupportsCancellation = True
 
AddHandler bw.DoWork, AddressOf bw_DoWork
 
AddHandler bw.ProgressChanged, AddressOf bw_ProgressChanged
 
AddHandler bw.RunWorkerCompleted, AddressOf bw_RunWorkerCompleted
 
' Fire the 'btnStart.click' event when the form loads
 
Dim sender As Object
 
btnStart_Click(sender, New EventArgs())
 
End Sub
 
Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
 
If Not bw.IsBusy = True Then
 
' Enable the 'More >>' button on the form, as there will now be details for users to view
 
Me.btnMore.Enabled = True
 
' Update the form control settings so that they correctly formatted when the processing starts
 
set_form_on_start()
 
bw.RunWorkerAsync()
 
End If
 
End Sub
 
' Other functions exist here
 
End Class

Public Class Form1 
    Private WithEvents aaa As New Button 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
 Handles Button1.Click 
         
        Me.Controls.Add(aaa) 

    End Sub 
     
    Private Sub aaa_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles aaa.Click 
        MsgBox("!!!") 
    End Sub 
End Class 
 
 
 
新建一个带有一个按钮<button1>的form1窗体，复制代码并替换。

 
VB.Net窗体控件响应键盘回车等事件的实例  乐博网原创文章
 
以下实例演示了VB.Net窗体控件Textbox1响应键盘回车事件
 
Private Sub TextBox1_KeyDown(ByVal Sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
 
If e.KeyCode = Keys.Enter Then
 
Msgbox("乐博网提示你：你按了回车啦")
 
End If
 
End Sub
 
KeyCode中 Keys属性 可以有多种选择 当我们按到Keys.位置时 将会出现可选的属性，你可以选择响应其他键盘事件如用户按了F1或者ESC退出等。
 
如图：
 

 
而当我们在选取属性的时候  会发现旁边有个小提示窗，如图：
 

 
我们能看到Enter 对应了一个数值 =13 ，那是否意味着也可以通过键盘事件的返回数值判断用户按了什么键？
 
没错的，调整e的属性就可以实现这个转变，实例如下：
 
Private Sub TextBox1_KeyDown(ByVal Sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
 
If e.KeyValue = 13 Then   ' 13代表了Enter回车键的对应数值
 
MsgBox("乐博网提示你：你按了回车啦")
 
End If
 
End Sub