vb中怎么设置combo.text的值只允许鼠标选择而不可以键盘输入？

对于 ComboBox 控件， Style 属性值为：

常数 值 描述

VbComboDropDown 0 （缺省值）下拉式组合框。包括一个下拉式列表和一个文本框。可以从列表选择或在文本框中输入。

VbComboSimple 1 简单组合框。包括一个文本框和一个不能下拉的列表。可以从列表中选择或在文本框中输入。简单 组合框的大小包括编辑和列表部分。按缺省规定，简单组合框的大小调整在没有任何列表显示的状态。增加 Height 属性值可显示列表的更多部分。

VbComboDrop-DownList 2 下拉式列表。这种样式仅允许从下拉式列表中选择。

1.combobox控件的style属性为2时,只可选择,不可输入

2.默认选中第一项的代码示例

If Combo1.ListCount >0 Then

Combo1.ListIndex = 0

End If

---