mikewolf2k 发表于 2004-1-2 20:01:00

请教,关于combobox和textbox的问题

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

efan2000 发表于 2004-1-2 21:25:00

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

ComboBox1.MatchRequired = True

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

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsNumeric(TextBox1.Text) Then
      MsgBox "属性值无效。", vbExclamation + vbOKOnly, "Microsoft Forms"
      Cancel = True
    End If
End Sub
页: [1]
查看完整版本: 请教,关于combobox和textbox的问题