重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
1、打开VB软件,在窗体上添加一个标签,如下图所示。
创新互联专注为客户提供全方位的互联网综合服务,包含不限于网站建设、网站制作、黄山网络推广、微信小程序定制开发、黄山网络营销、黄山企业策划、黄山品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联为所有大学生创业者提供黄山建站搭建服务,24小时服务热线:18980820575,官方网址:www.cdcxhl.com
2、点击标签,在属性窗口设置标签的属性和名称,将其Caption设置为“快乐学习”(这里以“快乐学习”四个字为例)。
3、将Autosize设置为True,如下图所示。
4、再在窗体上面,添加一个列表框控件,如下图所示。
5、点击列表框,在属性窗口设置列表框控件的属性和名称,如下图所示。
6、双击列表框,开始运行代码,如下图所示。
7、在运行的表框中点击不同的数值(例如这里点击的是16),即可看到vb中label标签文字的大小的变化,如下图所示。
这是因为你的程序的问题。你可以仔细看一下,Font是一个Interface,它怎么可以被实例化呢??另外,个人认为如果在一种方法上实现不了的话,那就换一种方式,因为Font是一个Interface,所以在它中间定义了很多的属性,那就可以把你想谁知的属性一个个的点出来啊,
比如:
excelSheet.Label1.Font.Name="XXX"
excelSheet.Label1.Underline = True
等等,你可以自己尝试嘛,不要怕报错,只有错了才会学到东西,个人感想。
Label1.AutoSize = True
这句代码的意思是label控件根据其内容来改变自身的大小,例如输入一个字符,则label控件的大小刚好为所输入的字符的大小(指的的高度和宽度)。
Label1.FontSize = 22
这句代码是将label控件的字体大小设置为22(可输入任意数字)。
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
看样要重新定义个Font对象,在构造函数中定义它的大小,
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '参数都用原来字体参数,只有大小改成你需要的。
End With
在窗体中选中标签对象后,在属性窗口中选中它的“Font“属性,在其右侧点击有省略号的小按钮,在其中的”大邪框中选择合适的大