VB中用组合框进行字体和字号变换的代码怎么写 – CSS – 前端 css 浮层代码

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