1、首先,点击菜单栏中的工具按钮。
创新互联公司服务项目包括巍山网站建设、巍山网站制作、巍山网页制作以及巍山网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,巍山网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到巍山省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
2、然后点击二级菜单的选项。
3、此时,便可以看到选项页面。
4、接下来点击编辑器格式。
5、在接下来就可以在这里设置字体大小。
6、最后,点击确定按钮即可保存。
7、完成效果图。
看样要重新定义个Font对象,在构造函数中定义它的大小,
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '参数都用原来字体参数,只有大小改成你需要的。
End With
Dim MyGraphics As Graphics = Me.CreateGraphics
'定义使用的字体
Dim Myfont As New Font("宋体", 9)
'获取文本的大小。
Dim Mystring_Size As SizeF = MyGraphics.MeasureString("中", Myfont)
'显示宽和高
MsgBox(Mystring_Size1.Width ":" Mystring_Size1.Height)