evo resenja
Code:
ListView2.ListItems.Item(ListView2.SelectedItem.Index - 1).Selected = True]
od toga sam napravio ovo
Code:
Private Sub Command8_Click()
on error resume next
ListView2.ListItems.Item(ListView2.SelectedItem.Index - 1).Selected = True
Set Item = ListView2.SelectedItem
If Not (Item Is Nothing) Then
If ListView2.SelectedItem.Index <= 1 Then
MsgBox "Dosli ste do samog vrha!"
Exit Sub
End If
End If
ListView1.SetFocus
err.clear
End Sub
Code:
Private Sub Command9_Click()
on error resume next
ListView2.ListItems.Item(ListView2.SelectedItem.Index + 1).Selected = True
Set Item = ListView2.SelectedItem
If Not (Item Is Nothing) Then
If ListView2.SelectedItem.Index <= 1 Then
MsgBox "Dosli ste do samog dna!"
Exit Sub
End If
End If
ListView1.SetFocus
err.clear
End Sub
tako sada to radi samo mi ovo kada odlazi do kraja ne prijavi gresku odnosno MsgBox