vb显示鼠标位置

Private Sub Form1_MouseMove(ByValeventSender As System.Object,ByVal eventArgs AsSystem.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
Dim Button As Short = eventArgs.Button\ &H100000
Dim Shift As Short =System.Windows.Forms.Control.ModifierKeys \ &H10000
Dim X As Single = eventArgs.X
Dim Y As Single = eventArgs.Y
'当鼠标移动时，相应的状态栏也应该改变
'判断工具栏的按钮是否按下，如果是，则显示鼠标位置
If Toolbar1.Buttons(1).Value =MSComctlLib.ValueConstants.tbrpressed Then
StatusBar1.Panels(1).Text ="当前鼠标位置：" & X & ","& Y
'否则，显示空
Else
StatusBar1.Panels(1).Text =""
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByValeventSender As System.Object,ByVal eventArgs AsAxmsComctlLib.IToolbarEvents_ButtonClickEvent) Handles Toolbar1.ButtonClick
'当单击工具栏时，立刻改变状态栏的信息；要不会出现单击按钮后不发生任何改变
Select Case eventArgs.Button.Key
Case "ShowMousePos"
If Toolbar1.Buttons(1).Value =MSComctlLib.ValueConstants.tbrpressed Then
StatusBar1.Panels(1).Text= "当前鼠标位置：0,0"
Else
StatusBar1.Panels(1).Text= ""
End If
Case Else
End Select
End Sub

来自 http://www.57itsq.com/read.php?tid-1656.html

原文地址：https://www.jb51.cc/vb/259217.html