投稿日 | : 2002/10/12(Sat) 20:35 |
投稿者 | : NAO★ |
Eメール | : |
URL | : |
タイトル | : Re: リストビューのスクロール |
EnsureVisible メソッドを使用します
Private Sub Form_Load()
Dim i As Integer
With ListView1.ListItems
For i = 0 To 100
.Add , , i
Next
Form1.Show
.Item(i).Selected = True
.Item(i).EnsureVisible
End With
End Sub