Dim str As StringPrivate Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii > 0 Then
MsgBox "不要输入数据!"
Combo1.Text = str
End If
End SubPrivate Sub Form_Load()
str = Combo1.Text
End Sub
给分吧
If KeyAscii > 0 Then
MsgBox "不要输入数据!"
Combo1.Text = str
End If
End SubPrivate Sub Form_Load()
str = Combo1.Text
End Sub
给分吧
MsgBox "不要输入数据!"
Combo1.Text = str
End Sub