Question

如何实现隐藏ComboBox的下拉列表某些项

Answer 1

加个textbox， 盖住combo的显示部分，只露出下三角。
看看
Private Sub Combo1_Click()
Dim str As String
If Combo1.Text = "Fake" Then Exit Sub
str = Combo1.Text
Combo1.RemoveItem Combo1.ListIndex

Combo1.AddItem Text1, getposition(Text1)
Combo1.AddItem "Fake", 0
Combo1.ListIndex = 0
Text1 = str
End Sub

Private Sub Combo1_DropDown()
If Combo1.Text = "Fake" Then Combo1.RemoveItem 0
End Sub

Private Function getposition(str As String) As Integer
Dim idx As Integer
getposition = Combo1.ListCount

For idx = 0 To Combo1.ListCount - 1
If StrComp(str, Combo1.List(idx), vbBinaryCompare) = -1 Then
getposition = idx
Exit For
End If
Next
End Function