vb.net字符尺寸 vb字体大小的代码

如何实现VB.NET文字宽度计算

Dim MyGraphics As Graphics = Me.CreateGraphics

我们提供的服务有：成都网站建设、成都网站设计、微信公众号开发、网站优化、网站认证、岐山ssl等。为1000多家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的岐山网站制作公司

'定义使用的字体

Dim Myfont As New Font("宋体", 9)

'获取文本的大小。

Dim Mystring_Size As SizeF = MyGraphics.MeasureString("中", Myfont)

'显示宽和高

MsgBox(Mystring_Size1.Width "：" Mystring_Size1.Height)

上面思路是正确的，用ascw 函数也可以

private function LenC( ps as string ) as Integer

Dim n As Integer

Dim StrLen As Integer

For n = 1 To Len(Text1.Text)

If Ascw(Mid(Text1.Text, n, 1)) 256 Then

StrLen = StrLen + 2

Else

StrLen = StrLen + 1

Next n

return strLen

end function

看样要重新定义个Font对象，在构造函数中定义它的大小，

With Button1.Font

Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '参数都用原来字体参数，只有大小改成你需要的。

End With

如果你是指字符型的变量，那么理论上是2G，实际上受最大可用物理内存的限制；

如果是指text控件，那么它的大小限制是64KB

分享题目：vb.net字符尺寸 vb字体大小的代码
网址分享：http://scyanting.com/article/doodsce.html