text1内容不能依据下拉按钮内容自动填写

text1内容不能根据下拉按钮内容自动填写
本帖最后由 bcrun 于 2013-03-29 12:27:08 编辑

Private Sub cbo1_Change()
If cbo1.Text = "1" Then
 Text1.Text = "4"
ElseIf cbo1.Text = "2" Then
 Text1.Text = "5"
 ElseIf cbo1.Text = "3" Then
  Text1.Text = "6"
 ElseIf cbo1.Text = "4" Then
  Text1.Text = "7"
End If
End Sub

Private Sub Form_Load()
cbo1.AddItem "1"
cbo1.AddItem "2"
cbo1.AddItem "3"
cbo1.AddItem "4"
End Sub

text1内容不能根据下拉按钮内容自动填写，什么情况,感谢各位
[解决办法]
使用 Click 事件。

Private Sub cbo1_Click()

查看更多 下一篇