请教,关于combobox和textbox的问题

mikewolf2k

如何实现:
1.combobox只能输入其item中的内容
2.textbox只能接受数字,输入其他字符无效.

efan2000

1、MatchRequired 属性
指定输入组合框文本部分的值是否必须与该控件现有列表中的条目相匹配。虽然用户可键入不匹配的值，但直到键入一个匹配的值才能退出该控件。

1. 
   
2. ComboBox1.MatchRequired = True
   

复制代码

2、Exit 事件
同一窗体中的一个控件即将把焦点转移到另一个控件之前，Exit 事件发生。

2. 
   
3. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
4.     If Not IsNumeric(TextBox1.Text) Then
   
5.         MsgBox "属性值无效。", vbExclamation + vbOKOnly, "Microsoft Forms"
   
6.         Cancel = True
   
7.     End If
   
8. End Sub
   

<br /> Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)<br />     If Not IsNumeric(TextBox1.Text) Then<br />         MsgBox "属性值无效。", vbExclamation + vbOKOnly, "Microsoft Forms"<br />         Cancel = True<br />     End If<br /> End Sub<br />