View Full Version : next item در listview
xxnagin
دوشنبه 03 اسفند 1388, 15:49 عصر
چطوري ميشه با يه دکمه به قبل وبا دکمه ديگه به ايتم بعدي listview رفت
مثل player ها
ايتم قبلي و بعدي در listview
next item
previous item:عصبانی++::قلب:
Hossis
دوشنبه 03 اسفند 1388, 23:02 عصر
بين 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
دوشنبه 03 اسفند 1388, 23:31 عصر
کد بالا اشتباه هست اين کد تست شده
دو دکمه فرمان روي فرم قرار داده اين کد را داخل فرم بذاريد:
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
دوشنبه 03 اسفند 1388, 23:41 عصر
سلام این کد 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 رو هم خودت بنویس
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.