vb.net窄字体 vb文本字体大小

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

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

创新互联2013年开创至今，先为双峰等服务建站，双峰等地企业，进行企业商务咨询服务。为双峰企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

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 代码调整字体大小

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

With Button1.Font

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

End With

vb.net 字体设置

给点提示吧，已粗体为例（完全是我自己的方法，不知别人是怎么做的）：

'先获取选择的字体信息（字体、大小、样式。。。）

Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont

'在重新定义某种样式的时候，不丢失其他信息

RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)