non mi funziona cmq per lui i() è sempre uguale a 0 e quindi mi aggiunge sempre una riga.
codice:
Dim i() As ListViewItem = frmfondo.listaportieri.find("buffon", False)
If i.Length > 0 Then
msgbox ("Già acquistato")
Exit sub
else
msgbox(ottimo acquisto")
End If
questo è il tuo esempio riportato modificato per me ma non va cmq è sempre zero il valore. come se non trovasse mai il giocatore.
ho provato anche questo
codice:
Dim nomegiocatore As String = Selezionato.SubItems(1).Text 'nome del giocatore
Dim portieri = FrmFondo.ListaPortieri.Items.ContainsKey(nomegiocatore) 'restituisce un boolean
If portieri = True Then
MsgBox("già acquistato")
Exit Sub
Else
MsgBox("ottimo acquisto")
End If
....
in tutti e due i casi è come se non leggesse dalla mia lista giocatori.
in realtà io il nome nella lista lo vedo scritto.