vb用代码改变字体大小

1. 怎样修改VB代码的字体大小

修改VB代码的字体、大小、以及颜色可以参考下面的代码：

PrivateSubForm＿Load

Label1。字体＝＂常规＂；将字体改为常规字体

Label1。字形大小＝50”字形大小

改变字体颜色DAO为红色为前楼＝vbRed＇

Label1。标签自动改变大小与文本内容

EndSub

(1)vb用代码改变字体大小扩展阅读：

vb参考函数

Do．．．Loop语句：当条件为True或者当条件变为True时，重复一语句块。

Empty：表示未初始化的变量的值。

Eqv运算符： 使两个表达式相等。

Erase语句：重新初始化固定数组的元素，并为动态数组重新分配存储空间。

Err对象：包含有关运行时错误的信息。

2. VB程序中改变字体的代码是

1、首先，我们点击菜单栏中的工具按钮。

3. 创建VB工程，运行时可将文本框中的文字字号随机放大和缩小(求程序代码）

放大
Private Sub Command1_Click()
Dim x
x = Int((5 * Rnd) + 1)
Text1.FontSize = x * 30
End Sub
缩小
Private Sub Command2_Click()
Dim x
x = Text1.FontSize
x = x - Int((x * Rnd) + 1)
Text1.FontSize = IIf(x = 0, 30, x)
End Sub

4. VB 想使标签控件中字号大小改变，假如原来是3号字体，变成四号字体 用代码怎么写

我来完完整整地写给你代码吧。

（如图）首先在窗体form1中部画一个标签控件Label1，然后画三个命令按钮Command1(放大)、Command2(缩小)、Command3(将此命令再复制三个出来组成一个“四个command3”的数组控件代表“→”“←”“↑”“↓”)，属性均为默认，最后复制以下代码到代码窗口运行即可：

PrivateSubCommand1_Click()'放大命令

Label1.Font.Size=Label1.Font.Size+1

EndSub

PrivateSubCommand2_Click()'缩小命令

Label1.Font.Size=Label1.Font.Size-1

EndSub

PrivateSubCommand3_Click(IndexAsInteger)'移动命令（是command3组成的数组控件）

SelectCaseIndex

Case0‘Command3的index=0时

IfLabel1.Left+Label1.Width<Me.ScaleWidthThen

Label1.Left=Label1.Left+50

EndIf

Case1‘Command3的index=1时

IfLabel1.Left>0Then

Label1.Left=Label1.Left-50

EndIf

Case2‘Command3的index=2时

IfLabel1.Top>0Then

Label1.Top=Label1.Top-50

EndIf

Case3‘Command3的index=3时

IfLabel1.Top+Label1.Height<Me.ScaleHeightThen

Label1.Top=Label1.Top+50

EndIf

EndSelect

EndSub

PrivateSubForm_Load()

Label1.Caption="VB应用程序！"

Label1.Font.Size=16

Label1.AutoSize=True

Label1.Font.Bold=True

EndSub

5. VB中用组合框进行字体和字号变换的代码怎么写

Private Sub Combo1_Click()
Text1.FontName = Combo1.Text

End Sub

Private Sub Combo2_Click() Combo2代表列表框，Click是“单击事件”

Text1.FontSize = Combo2.Text
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "黑体" 常用方法：
Combo1.AddItem "宋体" AddItem // 对象名.AddItem Item [index] //
Combo1.AddItem "隶书" 对象名,是列表框的名称
Combo1.AddItem "华文中宋" Item ， 是一个字符表达式
Combo1.AddItem "方正舒体" index ，表示新增加的列表项在列表中的位置，
Combo1.Text = Combo1.List(0) 如果不写，则添加到列表框的的末尾处 。

Combo2.AddItem 10
Combo2.AddItem 12
Combo2.AddItem 14
Combo2.AddItem 16
Combo2.AddItem 18
Combo2.Text = Combo2.List(0)

End Sub