重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
看样要重新定义个Font对象,在构造函数中定义它的大小,
创新互联服务项目包括贵池网站建设、贵池网站制作、贵池网页制作以及贵池网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,贵池网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到贵池省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '参数都用原来字体参数,只有大小改成你需要的。
End With
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
Label1.AutoSize = True
这句代码的意思是label控件根据其内容来改变自身的大小,例如输入一个字符,则label控件的大小刚好为所输入的字符的大小(指的的高度和宽度)。
Label1.FontSize = 22
这句代码是将label控件的字体大小设置为22(可输入任意数字)。