将项目添加到列表框时,我遇到了一个奇怪的问题。我希望它调整它的大小以匹配它的计数。当添加 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