vb显示鼠标位置

最新推荐文章于 2022-04-16 16:28:39 发布

飞机雄

最新推荐文章于 2022-04-16 16:28:39 发布

阅读量1.5k

点赞数

分类专栏： vb

本文链接：https://blog.youkuaiyun.com/FeiJiXiong/article/details/8554558

版权

vb 专栏收录该内容

3 篇文章

订阅专栏

这段VB代码展示了如何在鼠标移动时捕获其位置，并在应用程序的状态栏中实时显示。通过处理MouseMove事件和Toolbar的ButtonClick事件，可以实现当特定按钮被按下时，持续显示鼠标坐标，否则清除状态栏信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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