Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTabs
Imports Infragistics.Win.UltraWinTabbedMdi
PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim statusText AsString = 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
IfNot tabGroup IsNothingThen' if we're over a tab group, we may be over an MdiTab
' so use the TabFromPoint with the same screen
' coordinates
DimtabAs MdiTab = Me.ultraTabbedMdiManager1.TabFromPoint(pt)
IfNottabIsNothingThen' 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)
EndIfEndIfIfMe.StatusBar1.Text <> statusText ThenMe.StatusBar1.Text = statusText
EndIfEnd Sub
'宣言
Public Function TabFromPoint( _
ByVal point As Point _
) As MdiTab
using Infragistics.Win;
using Infragistics.Win.UltraWinTabs;
using Infragistics.Win.UltraWinTabbedMdi;
privatevoid timer1_Tick(object sender, System.EventArgs e)
{
string statusText = string.Empty;
Point pt = 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.
MdiTabGroup tabGroup = this.ultraTabbedMdiManager1.TabGroupFromPoint(pt);
// if the mouse is not over an area managed by an MdiTabGroup,
// the method will return null
if (tabGroup != null)
{
// if we're over a tab group, we may be over an MdiTab
// so use the TabFromPoint with the same screen
// coordinates
MdiTab tab = this.ultraTabbedMdiManager1.TabFromPoint(pt);
if (tab != null)
{
// 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);
}
}
if (this.statusBar1.Text != statusText)
this.statusBar1.Text = statusText;
}
'宣言
Public Function TabFromPoint( _
ByVal point As Point _
) As MdiTab