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

Dim MyGraphics As Graphics = Me.CreateGraphics

成都创新互联-专业网站定制、快速模板网站建设、高性价比庆安网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式庆安网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖庆安地区。费用合理售后完善，十年实体公司更值得信赖。

'定义使用的字体

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

'获取文本的大小。

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

'显示宽和高

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

vb.net 代码调整字体大小

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

With Button1.Font

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

End With

VB.net中如何在代码中设置文本框字体的大小

Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

Dim a As FontStyle

a = Me.TextBox1.Font.Size

Dim b As Single = a * 10

Me.TextBox1.Width = Me.TextBox1.Width * 10

Me.TextBox1.Font = New System.Drawing.Font("PMingLiU ", b, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) '放大10倍，若仅10号字体，则将b改为10

End Sub

如何设置VB.NET中代码的字体大小，和是否换行，这些选项在哪里？

没有自动换行，因为VB语句不能随便换行，字体可以设置，点菜单-》工具-》选项-》字体和颜色

文章名称：vb.net文字大小 vbnet font
分享路径：http://kswsj.cn/article/doeopco.html