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
css3好看的字体,css大会2,css url图片缩放,css图片位置距左边,body内容居中css样式,js加css实现网页弹窗,css 浮层代码