next item در listview

[xxnagin]

چطوري ميشه با يه دکمه به قبل وبا دکمه ديگه به ايتم بعدي listview رفت

مثل player ها
ايتم قبلي و بعدي در listview
next item
previous item:عصبانی++::قلب:

[Hossis]

بين ListView و ليست باکس فرقي نيست ،‌من يک مثال از ليست باکس ميارم:
فرض کنيد که دو دکمه داريم براي جلو و عقل رفتن در ليست،‌ دقيقا همون چيزي که مي خواستيد:
براي اجراي اين کد، بايد يک ليست باکس بذاريد به نام LHstry
توجه :‌ اگر از ليست ويو استفاده مي کنيد، بايد به جاي SelectedItem از SelectedItems(0).Indexاستفاده کنيد


PrivateSub tbBack_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles tbBack.Click
If LHstry.SelectedIndex > 0 Then
LHstry.SelectedIndex -= 1
LHstry.SelectedIndex = LHstry.Items.Count - 1
EndIf
EndSub

PrivateSub tbForward_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles tbForward.Click
If LHstry.SelectedIndex < LHstry.Items.Count - 1 Then
LHstry.SelectedIndex += 1
Else
LHstry.SelectedIndex = 0
EndIf
EndSub

[Hossis]

کد بالا اشتباه هست اين کد تست شده
دو دکمه فرمان روي فرم قرار داده اين کد را داخل فرم بذاريد:


Dim Lv As New ListView With {.Parent = Me, .Dock = DockStyle.Left}
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Lv.SelectedItems.Count = 0 Then Lv.Items(0).Selected = True
Dim u As Integer = Lv.SelectedItems(0).Index
For Each itm In Lv.Items
itm.selected = False
Next
If u > 0 Then
Lv.Items(u - 1).Selected = True
ElseIf u = 0 Then
Lv.Items(Lv.Items.Count - 1).Selected = True
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If lv.SelectedItems.Count = 0 Then lv.Items(0).Selected = True
Dim L As Integer = lv.SelectedItems(0).Index
Dim U As Integer = lv.Items.Count - 1
For Each itm In lv.Items
itm.selected = False
Next
If L < U Then
lv.Items(L + 1).Selected = True
ElseIf L = U Then
lv.Items(0).Selected = True
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 0 To 5
Lv.Items.Add("NewItem" & i + 1)
Next
End Sub

[Javad_raouf]

سلام این کد Next:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 1 To 10
LV.Items.Add(i)
Next
LV.HideSelection = False
End Sub
Private Sub Btn_Next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Next.Click
If LV.SelectedItems.Count = 0 Then Exit Sub
If LV.SelectedItems(0).Index < LV.Items.Count - 1 Then
Dim I As Integer ' = Index Of Selected Item
I = LV.SelectedItems(0).Index + 1
LV.SelectedItems.Clear()
LV.Items(I).Selected = True
Else
LV.SelectedItems.Clear()
LV.Items(0).Selected = True
End If
End Sub
کد preview رو هم خودت بنویس