MouseOver Property

Returns the index of the tab currently under the mouse cursor, or -1 if the mouse is not over any tabs.

Syntax

val% = [form!]C1Tab.MouseOver

Remarks

This read-only property is useful when you want to provide dynamic help while the user moves the mouse over different tabs.

Tabs are numbers from zero to NumTabs - 1. If the mouse is not over any tabs, MouseOver returns -1.

For example, the following code displays tooltips describing each tab as the user moves the mouse over the control:

Example Title	Copy Code
Private Sub tab_MouseMove(Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) ' same as last time? quit and avoid flicker Static last% If last = tab.MouseOver + 1 Then Exit Sub ' save tab for next time last = tab.MouseOver + 1 ' update ToolTipText If last > 0 Then .ToolTipText = "This is tab " & last Else .ToolTipText = "" End If End Sub

Example Title

Copy Code

Private Sub tab_MouseMove(Button As Integer, _
                Shift As Integer, _
                X As Single, Y As Single)
' same as last time? quit and avoid flicker
Static last%
If last = tab.MouseOver + 1 Then Exit Sub
' save tab for next time
last = tab.MouseOver + 1
' update ToolTipText
If last > 0 Then
                .ToolTipText = "This is tab " & last
Else
                .ToolTipText = ""
End If
End Sub

Data Type

Integer