[VB6] ListView e mancanza di un elemento selezionato

[printlist]

Ho un problema ragazzi, con il codice sottoindicato seleziono da una listview dei record da visualizzare su di un form, e fino qui tutto OK.Quando però nella listview non ci sono record e provo a cliccare mi da sempre Errore di run-time 91'.Come faccio a disabilitare la list quando all'interno non è caricato nessun record?Grazie Anticipatamente







Private Sub List1_DblClick()

With List1
varUno = .SelectedItem.Text
varDue = .SelectedItem.ListSubItems.item(1).Text
varTre = .SelectedItem.ListSubItems.item(2).Text
varQuattro = .SelectedItem.ListSubItems.item(3).Text
varCinque = .SelectedItem.ListSubItems.item(4).Text
varSei = .SelectedItem.ListSubItems.item(5).Text

End With

frmProp.Show
Unload Me

End Sub

[multijet]

io proverei ad inserire
on error resume next dopo l'istruzione with

With List1


on error resume next


varUno = .SelectedItem.Text
varDue = .SelectedItem.ListSubItems.item(1).Text
varTre = .SelectedItem.ListSubItems.item(2).Text
varQuattro = .SelectedItem.ListSubItems.item(3).Text
varCinque = .SelectedItem.ListSubItems.item(4).Text
varSei = .SelectedItem.ListSubItems.item(5).Text

End With

frmProp.Show
Unload Me

End Sub

[alka]

Si dovrebbe controllare che SelectedItem sia diverso da Nothing, probabilmente.

[mgmg]

Oppure basta che controlli listcount.

Private Sub List1_DblClick()
 If List1.ListItems.Count > 0 Then 

   With List1 
   varUno = .SelectedItem.Text 
   varDue = .SelectedItem.ListSubItems.item(1).Text 
   varTre = .SelectedItem.ListSubItems.item(2).Text 
   varQuattro = .SelectedItem.ListSubItems.item(3).Text 
   varCinque = .SelectedItem.ListSubItems.item(4).Text 
   varSei = .SelectedItem.ListSubItems.item(5).Text 

   End With 

   frmProp.Show 
   Unload Me 
 End If
End Sub

Ciao

[multijet]

Scusate,ma sto imparando anch'io (si sara' vaisto),ma mettere on error resume next puo' andare bene o no?

[printlist]

Come al solito siete grandi
Grazie mille ho risolto sia con :

1)If List1.ListItems.Count > 0 Then

che con

2)On Error Resume Next

Grazie Ancora un saluto speciale