사용자 지정 글꼴이있는 툴팁이 필요합니다.변경 도구 설명 글꼴
다음 코드가 있는데이 방법은 작동하지만 툴팁 크기가 텍스트에 맞지 않습니다.
어디서 오류가 있습니까? 합니다 (MSDN 페이지에서)
Public Class KeolisTooltip
Inherits ToolTip
Sub New()
MyBase.New()
Me.OwnerDraw = True
AddHandler Me.Draw, AddressOf OnDraw
End Sub
Private _Font As Font
Public Property Font() As Font
Get
Return _Font
End Get
Set(ByVal value As Font)
_Font = value
End Set
End Property
Public Sub New(ByVal Cont As System.ComponentModel.IContainer)
MyBase.New(Cont)
Me.OwnerDraw = True
AddHandler Me.Draw, AddressOf OnDraw
End Sub
Private Sub OnDraw(ByVal sender As Object, ByVal e As DrawToolTipEventArgs)
Dim newArgs As DrawToolTipEventArgs
If _Font Is Nothing Then
newArgs = e
Else
Dim newSize As Size = Size.Round(e.Graphics.MeasureString(e.ToolTipText, Me._Font))
Dim newBounds As New Rectangle(e.Bounds.Location, newSize)
newArgs = New DrawToolTipEventArgs(_
e.Graphics, _
e.AssociatedWindow, _
e.AssociatedControl, _
newBounds, _
e.ToolTipText, _
Me.BackColor, _
Me.ForeColor, _
Me._Font)
End If
newArgs.DrawBackground()
newArgs.DrawBorder()
newArgs.DrawText()
End Sub
End Class
실제로 글꼴을 인스턴스화하는 위치가 표시되지 않습니다. – JustBoo
@JustBoo : 코드에서 "_Font가 Nothing 일 경우" – serhio