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

Question

首先设置ComboBox的style为2，不允许用户输入修改。Me.Combo1.Clear
Me.Combo1.AddItem "7"
Me.Combo1.AddItem "6"
Me.Combo1.Text = "6"我想在用户点击下拉列表的时候隐藏"6"，只看到"7"这个选项，可以做到吗？ 如果ComboBox的style为是0是可以，但这里不允许用户输入修改。非常感谢

Answer 1

没看到“ComboBox的style为是0是可以”

Answer 2

写错了，ComboBox的style为0是可以的

Answer 3

加个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 SubPrivate Sub Combo1_DropDown()
    If Combo1.Text = "Fake" Then Combo1.RemoveItem 0
End SubPrivate 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

Answer 4

这个容易，再增加一个combo，里面加载需要显示的就ok了。
直接隐藏做不到吧，除非换控件。

Answer 5

不明白，既然不想显示6,你把6装入combo1做什么？