ItemMouseEnter 事件
If e.StripItem.ParentItem Is Nothing Then
Dim lbl As WinForm.Label
If e.form.Controls.contains("test") = False Then
lbl = e.Form.CreateControl("test", ControlTypeEnum.Label)
lbl.visible = False
lbl.width = 0
e.Form.AddControl(lbl)
Else
lbl = e.Form.controls("test")
End If
Dim point As Point = e.StripItem.BaseControl.Bounds.Location
lbl.left = point.x
lbl.Top = point.y
lbl.ShowToolTip(e.StripItem.ToolTip)
End If
ItemMouveLeave事件
If e.StripItem.ParentItem Is Nothing Then
Dim lbl As WinForm.Label = e.Form.controls("test")
lbl.HideToolTip()
End If