Question

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

Answer 1

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

追问

如我在list添加的字体和字号，并且那不是text，而是richtextbox呢。是不是吧text改为richt就可以了呢？

追答

RichTextBox1.Font.Size = Combo1.Text
RichTextBox1.Font.Name = Combo2.Text

追问

谢谢你的回答，不过他怎么运行不了的

追答

看不到你的程序，怎么回答？