将项目添加到列表框时,我遇到了一个奇怪的问题。我希望它调整它的大小以匹配它的数量。当添加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
答案 0 :(得分:0)
不要使用Rows属性。通过将CSS高度设置为包含div的100%来扩展它。
更新:
看看这个解决方案(Google搜索):