Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTabs
Imports Infragistics.Win.UltraWinTabbedMdi
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim statusText As String = String.Empty
Dim pt As Point = Control.MousePosition
' The 'TabGroupFromPoint' method takes screen coordinates
' so we can pass the coordinates from Control.MousePosition
' or Cursor.Position without converting them to client
' coordinates.
Dim tabGroup As MdiTabGroup = Me.ultraTabbedMdiManager1.TabGroupFromPoint(pt)
' if the mouse is not over an area managed by an MdiTabGroup,
' the method will return null
If Not tabGroup Is Nothing Then
' if we're over a tab group, we may be over an MdiTab
' so use the TabFromPoint with the same screen
' coordinates
Dim tab As MdiTab = Me.ultraTabbedMdiManager1.TabFromPoint(pt)
If Not tab Is Nothing Then
' if we were over a tab, display the actual
' text and tooltip it would display as well
' as some info about the tab group
statusText = String.Format("Tab - ToolTip = {0}, Text = {1}, TabGroup = '{2}'", tab.ToolTipResolved, tab.TextResolved, tabGroup)
Else
' otherwise, just use the tab group
statusText = String.Format("TabGroup = '{0}'", tabGroup)
End If
End If
If Me.StatusBar1.Text <> statusText Then
Me.StatusBar1.Text = statusText
End If
End Sub