除非我输入文字,否则ComboBox将不会记住/存储文字。
Private Sub ComboBox1_Initialize()
ComboBox1.List = Array("0", "0.1", "0.2")
End Sub
然后,文本值确定CommandButton函数。
Private Sub CommandButton1_Click()
If ComboBox1.Text = "0" Then
Call Name0
End If
If ComboBox1.Text = "0.1" Then
Call Name1
End If
If ComboBox1.Text = "0.2" Then
Call Name2
End If
End Sub
代码有效,只是不将数组保存在组合框中。
答案 0 :(得分:0)
这似乎效果最好,在表格上看起来更好.. 不是我的问题的答案,而是解决它的另一种途径。 干杯!
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Call Name_0
End If
If OptionButton2.Value = True Then
Call Name1
End If
If OptionButton3.Value = True Then
Call Name2
End If
End Sub