تغییر خصوصیات 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