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
网站栏目:vb点虐
中字体大小 vb中字体大小的代码怎么写
新闻来源:https://www.cdcxhl.com/article42/ddiegec.html
成都网站建设公司_创新互联,为您提供电子商务、软件开发、响应式网站、营销型网站建设、网站改版、建站公司
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联