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
1、首先,点击菜单栏中的工具按钮。
2、然后点击二级菜单的选项。
3、此时,便可以看到选项页面。
4、接下来点击编辑器格式。
5、在接下来就可以在这里设置字体大小。
6、最后,点击确定按钮即可保存。
7、完成效果图。
看样要重新定义个Font对象,在构造函数中定义它的大小,
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '参数都用原来字体参数,只有大小改成你需要的。
End With