Private Sub ToolBar1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ToolBar1.MouseMove If e.X < 43 And e.Y < 40 Then Me.StatusBar1.Text = Me.ToolBarButton1.Text Else Me.StatusBar1.Text = "" End If End Sub
算出toolsbarbutton的位置,然后再判断鼠标是否移到它之上了,如果是则statebar显示帮助,否则statebar清空