リストボックスに項目を追加するときに奇妙な問題があります。カウントに合わせてサイズを調整したい。1 を追加するとすべて問題なく、2 番目を追加すると行が 4 になり、4 を超えるとすべてが正常に機能します。もう1つは、リストボックスの上部の位置も数ピクセル上に移動することです-奇妙なことです。これはバグですか?これは、それらを追加するためのボタン イベント コードです。更新しました!
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