激活combo后为什么运行不了

ankangwr 发布于 2013-04-26 17:06， 543 次点击

Private Sub Form_Load()
Combo3.List(0) = "卵石"
Combo3.List(1) = "碎石"
End Sub

Private Sub Combo3_Change()
If Combo3.Text = "" Then
Text11 = ""
Text12 = ""
End If
If Combo3 = "碎石" Then
Text11 = 0.53
Text12 = 0.2
End If
If Combo3 = "卵石" Then
Text11 = 0.49
Text12 = 0.13
End If
End Sub

3 回复

wxflw2013-04-26 18:11

Private Sub Form_Load()
Combo3.AddItem "卵石"'为什么不这样写呢？
Combo3.AddItem "碎石"
End Sub

Private Sub Combo3_Change()
If Combo3.Text = "" Then
Text11 = ""
Text12 = ""
End If
If Combo3.text = "碎石" '少了.text
Text11 = 0.53
Text12 = 0.2
End If
If Combo3.text = "卵石" Then’少了.text
Text11 = 0.49
Text12 = 0.13
End If
End Sub

风吹过b2013-04-27 09:22

Private Sub Combo3_Change()
Private Sub Combo3_Click()

这二个事件，一个是修改内容，一个是单击，如果是下拉列表，那就是单击，如果是输入内容，就是修改内容。
一般为了防止出错，这二个事件都写同样的代码。

ankangwr2013-05-10 16:43

谢谢了