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