[vbnet]

.....

منقول مع تعديل بسيط ليناسب طلبك

أضف أداة ToolTip1

كود :

#Region " ToolTip "
    Shadows ToolTipFont As New Font("Times New Roman", 14, FontStyle.Bold) '<<<<<<<<<<<< خط الكتابة
    Shadows ToolTipBackColor As Color = Color.Green '<<<<<<<<<<<< لون الخلفية
    Shadows ToolTipForeColor As Color = Color.White '<<<<<<<<<<<< لون الكتابة
    Dim ToolTip As New ToolTip
    Dim ToolTipHPadding As Byte = 10
    Dim ToolTipVPadding As Byte = 10
    Private Sub ToolTip1_Popup(ByVal sender As Object, ByVal e As PopupEventArgs) Handles ToolTip1.Popup
        e.Cancel = True
        ToolTip.OwnerDraw = True
        RemoveHandler ToolTip.Draw, AddressOf ToolTip_Draw
        AddHandler ToolTip.Draw, AddressOf ToolTip_Draw
        RemoveHandler ToolTip.Popup, AddressOf ToolTip_Popup
        AddHandler ToolTip.Popup, AddressOf ToolTip_Popup
        RemoveHandler e.AssociatedControl.MouseLeave, AddressOf TooTip_MouseLeave
        AddHandler e.AssociatedControl.MouseLeave, AddressOf TooTip_MouseLeave
        Dim sz As Size = TextRenderer.MeasureText(ToolTip1.GetToolTip(e.AssociatedControl), ToolTipFont)
        Dim pt As New Point(-((sz.Width - e.AssociatedControl.Width) / 2) - (ToolTipHPadding / 2), -(sz.Height + ToolTipVPadding + 2))
        ToolTip.Show(ToolTip1.GetToolTip(e.AssociatedControl), e.AssociatedControl, pt, ToolTip1.AutoPopDelay)
    End Sub
    Private Sub TooTip_MouseLeave(ByVal sender As Object, ByVal e As EventArgs)
        ToolTip.Hide(sender)
    End Sub
    Private Sub ToolTip_Popup(ByVal sender As Object, ByVal e As PopupEventArgs)
        e.ToolTipSize = TextRenderer.MeasureText(ToolTip1.GetToolTip(e.AssociatedControl), ToolTipFont)
        e.ToolTipSize = Size.Add(e.ToolTipSize, New Size(ToolTipHPadding, ToolTipVPadding))
    End Sub
    Private Sub ToolTip_Draw(ByVal sender As Object, ByVal e As DrawToolTipEventArgs)
        If e.ToolTipText.Trim = "" Then
            ToolTip.Hide(sender)
            Exit Sub
        End If
        Dim format As New StringFormat(StringFormatFlags.NoWrap)
        If Me.RightToLeft Then format.FormatFlags += StringFormatFlags.DirectionRightToLeft
        format.Alignment = StringAlignment.Center
        format.LineAlignment = StringAlignment.Center
        e.Graphics.Clear(ToolTipBackColor)
        e.Graphics.DrawString(e.ToolTipText, ToolTipFont, New SolidBrush(ToolTipForeColor), e.Bounds, format)
    End Sub
#End Region

.....