VC组合框属性 数据栏 输入列表框项目为什么只能输入一行 回车直接跳出也点不到下一行上。。。

---

按CTRL+Enter就可以实现数据的加入

---

在其它地方写好复制进去

---

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If IsNumeric(Combo1.Text) Then
Combo1.AddItem Combo1.Text
Else
MsgBox Combo1.Text & " 不是数字!"
End If
End If
End Sub

---