|
■No4362 (美流久 さん) に返信
できなかったですかぁ。。。
そんなに難しくないはずなんだけど、美流久 さんの説明が難しい。。。
とりあえず、以下のコードの動作でなんか不都合な点はありますか?
[VB.NET2003]←で作ってるけど、[VB2005]でも動くはず。
Private m_index As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
m_index += 4
Call DispIndex(m_index)
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
With Me.ListView1
If .SelectedItems.Count <= 0 Then
Exit Sub
End If
m_index = .SelectedItems(0).Index
Call DispIndex(m_index)
End With
End Sub
Private Sub DispIndex(ByVal StartIndex As Integer)
For i As Integer = StartIndex To StartIndex + 3
If i > Me.ListView1.Items.Count - 1 Then
Exit Sub
End If
MessageBox.Show(i.ToString)
Next
End Sub
Private Sub Form10_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 0 To 29
Me.ListView1.Items.Add(i.ToString)
Next
End Sub
|