VB中怎么使用combox选择数值（如8，9，10等）来改变Text中字号的大小？

Question

如果 combo1选20那么
If Combo1.Text = "20" Then
Text1.FontSize = 20
End If
可这样Text的字体没变化？
知道的回个帖
谢谢

Answer 1

最好先将Combo1控件的Style设置为2 - Dropdown List

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 20
Combo1.AddItem i
Next i
End Sub

Private Sub Combo1_Click()
Text1.Font.Size = Combo1.Text
End Sub

Answer 2

前面要加一句 if area = 2 then 这个才是你选择了20后发生变化的。如果没有这句，你后面的代码无效的。 你这些代码都要在 combox_click事件里写。

Answer 3

Private Sub Combo1_Click()
Text1.FontSize = Val(Combo1.Text)
End Sub本回答被提问者采纳

Answer 4

AddItem
i
Next
i
End
Sub
Private
Sub
Combo1_Click()
Text1最好先将Combo1控件的Style设置为2
-
Dropdown
List
Private
Sub
Form_Load()
Dim
i
As
Integer
For
i
=
1
To
20
Combo1.Size
=
Combo1.Font