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

[twinsvicki]

首先设置ComboBox的style为2，不允许用户输入修改。

Me.Combo1.Clear
Me.Combo1.AddItem "7"
Me.Combo1.AddItem "6"
Me.Combo1.Text = "6"

我想在用户点击下拉列表的时候隐藏"6"，只看到"7"这个选项，可以做到吗？ 如果ComboBox的style为是0是可以，但这里不允许用户输入修改。

非常感谢

[dbcontrols]

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

[twinsvicki]

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

[dbcontrols]

我比较了2种，没看出隐藏来
是条目多的时候自动隐藏了一部分

[Quote=引用 2 楼 twinsvicki 的回复:]
写错了，ComboBox的style为0是可以的
[/Quote]

[twinsvicki]

我只是想隐藏指定的下拉项

[dbcontrols]

实现不了。等待高手出手。

[twinsvicki]

用户的需求真烦

[帝企鹅已被占用]

加个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

[dingyanwei]

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

[chinaboyzyq]

[Quote=引用楼主 twinsvicki 的回复:]
首先设置ComboBox的style为2，不允许用户输入修改。

Me.Combo1.Clear
Me.Combo1.AddItem "7"
Me.Combo1.AddItem "6"
Me.Combo1.Text = "6"

我想在用户点击下拉列表的时候隐藏"6"，只看到"7"这个选项，可以做到吗？ 如果ComboBox的style为是0是可以，但这里不允许用户输入修改。

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