VB combo 下拉某项不可选

来源：百度知道 编辑：UC知道 时间：2024/06/24 00:57:23
怎样让VB combo1 下拉某项不可选
或点击无效！
感谢了，
怎么设置？

Dim idex As Integer '全局变量

Private Sub Combo1_Click() '点第2项无效
If Combo1.ListIndex = 1 Then Combo1.ListIndex = idex
idex = Combo1.ListIndex
End Sub

Private Sub Form_Load()
For i = 1 To 5
Combo1.AddItem i
Next i
End Sub

设置COMBOBOX的DROPDOWNSTYLE属性值就可以了