51问答网 > 急！！！vb编程:编写利用组合框对文字的字体和大小进行设置的程序

急！！！vb编程:编写利用组合框对文字的字体和大小进行设置的程序

2024-11-25 09:37:08

推荐回答（1个）

回答1：

Private Sub Combo1_Click()
Text1.FontName = Combo1.Text
End Sub
Private Sub Combo2_Click()
Text1.FontSize = Val(Combo2.Text)
End Sub
Private Sub Form_Load()
Combo1.AddItem "宋体"
Combo1.AddItem "黑体"
Combo1.AddItem "楷体_GB2312"
Combo1.Text = "宋体"
For i = 12 To 72 Step 2
Combo2.AddItem Str(i)
Next i
Combo2.Text = "12"
End Sub