[请问]Listbox的行高是否能够调整?

corbie

按照Excel的帮助,原以为可以调整:

IntegralHeight 属性与列表的高度有关，正如 AutoSize 属性与列表的宽度有关。

如果 IntegralHeight 为 True，则该列表框在需要显示所有行时将自动调整大小；如果为 False，则列表保持固定的大小；如果条目比列表中的可用空间更高，则整个条目都不显示。

但是怎么实现的时候搞不定呢?

谢谢!

northwolves

Private Sub CommandButton1_Click()
ListBox1.Height = 300
ListBox1.Font.Size = Int(Rnd * 20 + 5)

End Sub

Private Sub UserForm_Initialize()
Dim i As Byte
For i = 0 To 100
ListBox1.AddItem Chr(i Mod 26 + 65)
Next
ListBox1.IntegralHeight = True
End Sub

qee用

listbox的行高只能通过FONT属性的设置来调整.

IntegralHeight属性默认为TRUE,当列表框高度不能容纳一行或整数行数高度时会自动调整高度(是列表框的高度而不是列表项的高度)使之为列表项(FONT决定)的整数倍高.如为FALSE,则不调整,此时可能会显示成两行"半"之类.在设计时使用有点类似AutoSize

winland

在VB里可以用SendMessage来设置Listbox的行高, 但是在VBA里用SendMessage没有反应,很是奇怪.

corbie

呵呵,非常感谢northwolves和qee用!

这个论坛真是高手云集,以后要常来!

corbie

追问一下:

那么如果某列太长(数据太长的缘故),想将其缩短,那么如何显示该列中的数据,能不能实现WordWrap之类的功能(就是自动换行,使之全部显示)?

如果listbox不能实现,使用哪一个控件能够容易些呢?(现在俺想在Sheet1中的A1:E1000中筛选数据,并将筛选后的数据在listbox中显示出来,由于B列数据太长,而且也不想在listbox上形成滚动条,所以请大伙费心了)

谢谢!

热浪2006

如果只是显示筛选后的数据，可以用TextBox呀

corbie

QUOTE:

以下是引用热浪2006在2007-2-13 14:56:14的发言：
如果只是显示筛选后的数据，可以用TextBox呀

哦,果然可以!不过因为筛选出来的是多行,下一步还需要用户对这些数据进行选择,选择了相应的数据之后放到另外一张Sheet中,那么怎么办呀?!

corbie

昨晚没有人理俺?!那么继续顶!