我想在圆圈内绘制String（实际上是一个数字）？

Question

我想在圆圈内添加String（1-10）？ 这是圆圈的代码

e.Graphics.DrawEllipse(Pens.Black, 210, 100, 240, 220)

这是我要插入的字符串

Dim ls_str as String = "5"

有没有办法做到这一点？

Answer 1

使用Graphics.DrawString和Graphics.MeasureString方法。

喜欢这样

Dim StringSize as SizeF = e.Graphics.MeasureString(ls_str, Font) 'Use the font you want
e.Graphics.DrawString(ls_str, Font, CInt(210 + 240 / 2 - StringSize.Width / 2), _  
                                    CInt(100 + 220 / 2 - StringSize.Height / 2))

这会将字符串绘制在您使用的椭圆的中心。相应地调整坐标。