تغییر خصوصیات Color-Size_Font در ToolTip

[پرستو پارسایی]

ایجاد تغییرات در خصوصیات یک Tooltip

Private buttontooltip As String = " Tooltip تست متن در"
Public Sub New()
InitializeComponent()
ToolTip1.SetToolTip(TextBox1, buttontooltip)
toolTip1.OwnerDraw = True
AddHandler toolTip1.Draw, AddressOf toolTip1_Draw
AddHandler ToolTip1.Popup, AddressOf toolTip1_Popup
End Sub


Private Sub toolTip1_Popup(ByVal sender As Object, ByVal e As PopupEventArgs)


e.ToolTipSize = TextRenderer.MeasureText(buttontooltip, New Font("tahoma", 14.0F))
End Sub


Private Sub toolTip1_Draw(ByVal sender As Object, ByVal e As DrawToolTipEventArgs)
Using e.Graphics
Dim f As New Font("tahoma", 10.0F)
e.DrawBackground()
e.DrawBorder()
buttontooltip = e.ToolTipText
e.Graphics.DrawString(e.ToolTipText, f, Brushes.Red, New PointF(1, 1))


End Using


End Sub