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 (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|