VB中，如何将combobox下拉的显示行数变多。如下图，由默认8行改成16行或20行，求原代码，谢谢！ - 编程论坛

#2

xzlxzlxzl2017-05-01 06:54

可增加空行，代码为：控件名称.additem " "

#3

ZHRXJR2017-05-01 16:21

combobox 控件下拉框中显示的项目是根据需要添加的，如果你需要添加，在代码中自己自动添加就可以，别说是20行，就是2000行也没有问题。
例如：
Combo1.Clear    '清除控件原来的项目
For I = 1 To 500 Step 3    '步进3,1到500可以放置166个项目
Combo1.AddItem I   '对控件程序加载项目
Next I
当然仅仅是个举例，你自己需要添加什么，使用 Combo1.AddItem "项目名称" 就可以了。

[此贴子已经被作者于2017-5-1 16:23编辑过]

#4

crxsam2017-05-02 12:35

回复 3楼 ZHRXJR

你好，谢谢。
我的目的细希望达到下面这样效果，点击时下拉框显示的条目更多些，如下图

只有本站会员才能查看附件，请登录

#5

snrtjat2017-05-02 14:42

首先你需要使用Microsoft Forms2.0 Object Library中的combobox
由默认8行改成16行或20行
ComboBox1.ListRows = 16
ComboBox1.ListRows = 20
例子：

程序代码：

Dim i As Integer
For i = 1 To 20
ComboBox1.AddItem i
Next i
ComboBox1.ListRows = 20

#6

crxsam2017-05-02 22:21

以下是引用snrtjat在2017-5-2 14:42:46的发言：

首先你需要使用Microsoft Forms2.0 Object Library中的combobox
由默认8行改成16行或20行
ComboBox1.ListRows = 16
ComboBox1.ListRows = 20
例子：

Dim i As Integer
For i = 1 To 20
ComboBox1.AddItem i
Next i
ComboBox1.ListRows = 20

您好，谢谢您的回复。由于我是学硬件的，想编个小程序工作中使用，所以基础比较差。请问“Microsoft Forms2.0 Object Library中的combobox”这个怎么使用啊，我把你的代码放进去

只有本站会员才能查看附件，请登录

#7

snrtjat2017-05-03 14:20

在“部件”里，勾选添加即可！

只有本站会员才能查看附件，请登录

——>

只有本站会员才能查看附件，请登录

另，这个问题很简单，你可请教度娘。