vb.net에서 메뉴 항목과 일치하는 텍스트 그리기

Question

vb.net 2010의 메뉴 항목의 왼쪽 여백에 숫자를 넣고 싶습니다만 이미지에만 설정할 수있는 것 같습니다. 그래서, 난 거기에 원하는 번호로 이미지를 만들려고 노력했습니다. Graphics.DrawString(). 다양한 방법을 시도했지만 결과 이미지를 메뉴 항목 자체의 텍스트처럼 보이게 할 수는 없습니다.이 방법이 있습니까? 여기에 현재 코드가 있습니다. 텍스트를 측정하기 위해 이미지를 할당 한 다음 올바른 크기로 다시 할당하는 것은 버전 3에 관한 것입니다. 꽤 못 생겼지 만 측정 방법을 모르겠습니다. 여기

mnuItem = New ToolStripMenuItem 
numPeople = CInt(Math.Ceiling(Rnd() * 20)) 

' Calculate the size of the text 
qImg = New Bitmap(1, 1) 
sf.Alignment = StringAlignment.Center 
sf.LineAlignment = StringAlignment.Center 
gr = Graphics.FromImage(qImg) 
gr.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias 
sz = gr.MeasureString(numPeople, mnuItem.Font, New Point(0, 0), sf) 
w = CInt(Math.Ceiling(sz.Width)) 
h = CInt(Math.Ceiling(sz.Height)) 
m = Math.Max(w, h) 

' Now allocate an image of the correct size 
qImg = New Bitmap(m, m) 
gr = Graphics.FromImage(qImg) 
gr.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias 
gr.DrawString(numPeople, mnuItem.Font, Brushes.Black, New RectangleF((m - w)/2, (m - h)/2, w, h), sf) 

mnuItem.Image = qImg 

이주는 무엇의 몇 가지 예입니다 - 메뉴 항목 텍스트를 비교하는 방법을 퍼지 여백 텍스트 (이미지)주의 : 나는 시도했다

모든 TextRenderingHint 옵션을 사용하고 일부는 다른 것보다 낫지 만 메뉴 텍스트를 선명하게 보여주는 것도 없습니다. 그 모양에 더 가까워 질 수있는 방법이 있습니까?

Answer 1

은 당신이 당신의 자신의 ToolStripMenuItem을 만드는 시도 해 봤나 클래스의 상단에있는 Imports System.Drawing.Drawing2D 라인이 필요합니다?

Class CustomToolStripMenuItem 
    Inherits System.Windows.Forms.ToolStripMenuItem 
    Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs) 
     MyBase.OnPaint(e) 
     e.Graphics.DrawString("11", Me.Font, System.Drawing.Brushes.Black, New System.Drawing.PointF(0, 0)) 
    End Sub 
End Class 

제대로 표시하려면 계산을 수행하지 않지만 가능한 것으로 생각합니다. 그것은

Answer 2

이것은 나를 당황하게했고, 배경색을 추가하자마자 텍스트가 원하는대로 표시되기 때문에 버그라고 결론 내릴 수 있습니다.

해결책이 있습니다. Professional Colors 클래스에서 파생 된 그라데이션 브러시를 사용하여 텍스트를 그리기 전에 비트 맵 배경에 사각형을 그립니다.

Dim mnuItem = TestToolStripMenuItem 
Dim numPeople = CInt(Math.Ceiling(Rnd() * 20)) 

Dim qImg = New Bitmap(mnuItem.Height, mnuItem.Height) 
Using gr = Graphics.FromImage(qImg) 
    Dim sz = gr.MeasureString(numPeople, mnuItem.Font) 

    Dim w = CInt(Math.Ceiling(sz.Width)) 
    Dim h = CInt(Math.Ceiling(sz.Height)) 

    Dim linGrBrush As New LinearGradientBrush(_ 
     New Point(0, 0), _ 
     New Point(qImg.Width, 0), _ 
     ProfessionalColors.ToolStripGradientBegin, _ 
     ProfessionalColors.ToolStripGradientEnd) 

    gr.FillRectangle(linGrBrush, New Rectangle(0, 0, qImg.Width, qImg.Height)) 
    gr.DrawString(numPeople, mnuItem.Font, Brushes.Black, New Point((qImg.Width/2) - (w/2), (qImg.Height/2) - (h/2))) 
End Using 

mnuItem.Image = qImg 

당신은