1

将项目添加到列表框时,我遇到了一个奇怪的问题。我希望它调整它的大小以匹配它的计数。当添加 1 一切正常时,添加第二个并且行变为 4,然后在我们有超过 4 个之后一切正常。另一件事是列表框顶部的位置也向上移动了几个像素 - 奇怪。这是一个错误吗?这是添加它们的按钮事件代码。更新!

Dim s As String = tbTest.Text
If Not s = "" Then
  Dim li As New ListItem(s)
  If Not lsbTest.Items.Contains(li) Then
    lsbTest.Items.Add(li)
    Dim i As Integer = lsbTest.Items.Count
    lsbTest.Rows = i
    lsbTest.Height = i * 22
  End If
End If
4

1 回答 1

0

不要使用 Rows 属性。通过将 CSS 高度设置为包含 div 的 100% 来让它拉伸。

更新:

看看这个解决方案(谷歌搜索):

允许列表框垂直增长....

于 2012-09-29T14:43:47.270 回答