这个和你设定的内容有关: 如果设定的text是list的一个条目的内容则触发,否则不触发,如: Option ExplicitPrivate Sub Command1_Click() '触发 ComboBox1.Text = "line 1" End SubPrivate Sub ComboBox1_Click() MsgBox "aa" End SubPrivate Sub Command2_Click() '不触发 ComboBox1.Text = "test" End SubPrivate Sub Form_Load() Dim i As Long For i = 1 To 40 ComboBox1.AddItem "line " + CStr(i) Next End Sub
///////还有它提供的TEXT和VALUE属性有什么区别?/////// Private Sub Form_Load() With Me.ComboBox1 .ColumnCount = 3 .BoundColumn = 2 .AddItem "a" .AddItem "b" .AddItem "c" .Column(1, 0) = 1 .Column(1, 1) = 2 .Column(1, 2) = 3 End With End Sub '选中一条后测试 Private Sub Command1_Click() MsgBox Me.ComboBox1.Text MsgBox Me.ComboBox1.Value End Sub
如果设定的text是list的一个条目的内容则触发,否则不触发,如:
Option ExplicitPrivate Sub Command1_Click() '触发
ComboBox1.Text = "line 1"
End SubPrivate Sub ComboBox1_Click()
MsgBox "aa"
End SubPrivate Sub Command2_Click() '不触发
ComboBox1.Text = "test"
End SubPrivate Sub Form_Load()
Dim i As Long
For i = 1 To 40
ComboBox1.AddItem "line " + CStr(i)
Next
End Sub
Private Sub Form_Load()
With Me.ComboBox1
.ColumnCount = 3
.BoundColumn = 2
.AddItem "a"
.AddItem "b"
.AddItem "c"
.Column(1, 0) = 1
.Column(1, 1) = 2
.Column(1, 2) = 3
End With
End Sub
'选中一条后测试
Private Sub Command1_Click()
MsgBox Me.ComboBox1.Text
MsgBox Me.ComboBox1.Value
End Sub