I thought this was useful, its a extender i just wrote for the new .NET menu
strip and status strip to extend the menu items to add a status message so
when a mouse rolls over the item it displays the text on the status strip
lable specified for the extender.. all you have to do is copy this to a code
file, and add it as a control to your form. set the status lable property of
the extender control then set the status mesages of the menu items and run
it and watch it do its thing
Imports System
Imports System.Collecti ons
Imports System.Componen tModel
Imports System.Windows. Forms
<ProvidePropert y("StatusMessag e", GetType(Compone nt))> _
Public Class StatusMessage
Inherits Component
Implements IExtenderProvid er
Dim ht_ControlLooku p As Hashtable = New Hashtable
Dim s_LastMessage As String = String.Empty
Public Sub SetStatusMessag e(ByVal senderComponent As Component, ByVal
strMessage As String)
If Not ht_ControlLooku p.Contains(send erComponent) Then
ht_ControlLooku p.Add(senderCom ponent, strMessage)
Dim pMenuItem As ToolStripMenuIt em = CType(senderCom ponent,
ToolStripMenuIt em)
If pMenuItem IsNot Nothing Then
AddHandler pMenuItem.Mouse Move, AddressOf Handle_MenuSele ct
AddHandler pMenuItem.Mouse Leave, AddressOf Handle_MenuLeav e
AddHandler pMenuItem.Mouse Enter, AddressOf Handle_MenuEnte r
Else
ht_ControlLooku p(senderCompone nt) = strMessage
End If
End If
End Sub
Public Function GetStatusMessag e(ByVal senderComponent As Component) As
String
If ht_ControlLooku p.Contains(send erComponent) Then
Return ht_ControlLooku p(senderCompone nt).ToString
End If
Return String.Empty
End Function
Public Function CanExtend(ByVal senderComponent As Object) As Boolean
Implements System.Componen tModel.IExtende rProvider.CanEx tend
Return TypeOf senderComponent Is ToolStripMenuIt em
End Function
Private m_StatusBar As ToolStripStatus Label
Public Property StatusBar() As ToolStripStatus Label
Get
Return m_StatusBar
End Get
Set(ByVal value As ToolStripStatus Label)
m_StatusBar = value
End Set
End Property
Private Sub Handle_MenuSele ct(ByVal pControl As Object, ByVal e As
MouseEventArgs)
If StatusBar Is Nothing Then
Exit Sub
End If
If ht_ControlLooku p.Contains(pCon trol) Then
If Not ht_ControlLooku p(pControl).ToS tring.Trim = String.Empty Then
StatusBar.Text = ht_ControlLooku p(pControl).ToS tring
End If
End If
End Sub
Private Sub Handle_MenuLeav e(ByVal pControl As Object, ByVal e As EventArgs)
If StatusBar Is Nothing Then
Exit Sub
End If
StatusBar.Text = Me.s_LastMessag e
End Sub
Private Sub Handle_MenuEnte r(ByVal pControl As Object, ByVal e As EventArgs)
If StatusBar Is Nothing Then
Exit Sub
End If
Me.s_LastMessag e = StatusBar.Text
End Sub
End Class
