VB题,combobox控件添加不同字号,在text中放大和缩小

来源:百度知道 编辑:UC知道 时间:2024/05/30 09:24:27

这是个特例,在Combo控件的缺省事件Change中无法实现,改用Click事件则实现使Text1属性FontSize改变:

Private Sub Combo1_Click()
Text1.FontSize = Val(Combo1.Text)
End Sub

Private Sub Form_Load()
Combo1.AddItem "10" ' 对列表添加项。
Combo1.AddItem "16"
Combo1.AddItem "24"
Combo1.AddItem "36"
Combo1.Text = Combo1.List(0)
End Sub