1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Public Class HelpTextLabel
Inherits Label
Private slHelpTextList As New SortedList(Of String, String)
Public Sub SetControlHelp(ByVal c As Control, ByVal HelpText As String)
If slHelpTextList.ContainsKey(c.Name) Then Exit Sub
slHelpTextList.Add(c.Name, HelpText)
AddHandler c.MouseEnter, AddressOf SetHelpText
AddHandler c.MouseLeave, AddressOf EraseHelpText
End Sub
Private Sub EraseHelpText(ByVal sender As Object, ByVal e As System.EventArgs)
Me.Text = ""
End Sub
Private Sub SetHelpText(ByVal sender As Object, ByVal e As System.EventArgs)
Me.Text = slHelpTextList(CType(sender, Control).Name)
End Sub
End Class |
Partager