重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim MyGraphics As Graphics = Me.CreateGraphics
成都创新互联-专业网站定制、快速模板网站建设、高性价比庆安网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式庆安网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖庆安地区。费用合理售后完善,十年实体公司更值得信赖。
'定义使用的字体
Dim Myfont As New Font("宋体", 9)
'获取文本的大小。
Dim Mystring_Size As SizeF = MyGraphics.MeasureString("中", Myfont)
'显示宽和高
MsgBox(Mystring_Size1.Width ":" Mystring_Size1.Height)
看样要重新定义个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
没有自动换行,因为VB语句不能随便换行,字体可以设置,点菜单-》工具-》选项-》字体和颜色