[Risolto] ListView ricerca dati non funziona

[Gianluigi]

Probabilmente è il caldo, ma io non riesco proprio a capire perché il codice allegato non funziona.
Dovrebbe trovare il primo dato se c'è, selezionandolo, anche se inserisco solo una lettera.
Ci sto sbattendo la testa da ore 
Help!

 

[vuott]

Imponendo nel controllo condizionale dopo la parola chiave ELSE la riga di comando:
 

Codice: [Seleziona]

ButtonBox1.Text = "Not found"

causi il cambio della stringa da cercare all'interno dell'oggetto ButtonBox1, se la stringa medesima non è la prima della lista.
Ciò vuol dire che la stringa da cercare diventa inevitabilmente "Not found", inesistente nella lista.

[Gianluigi]

Imponendo nel controllo condizionale dopo la parola chiave ELSE la riga di comando:
 

Codice: [Seleziona]

ButtonBox1.Text = "Not found"

causi il cambio della stringa da cercare all'interno dell'oggetto ButtonBox1, se la stringa medesima non è la prima della lista.
Ciò vuol dire che la stringa da cercare diventa inevitabilmente "Not found", inesistente nella lista.

Ecco perché all'inizio (quando non avevo ancora inserito Else) funzionava!
Vuott sei proprio un grande, grazie mi hai risparmiato un mal di testa maggiore 

 

[Gianluigi]

Giusto per completezza ho cambiato la routine così:

Codice: [Seleziona]

Public Sub ButtonBox1_Click()
  
  Dim i As Integer  
  
  For i = 0 To $sList.Max
    If $sList[i] Like ButtonBox1.Text & "*" Then      
      ListView1[$sList[i]].Selected = True      
      Return    
    Endif
  Next
  Balloon.Delay = 1500
  Balloon.Info("Text not found", ButtonBox1)
 
End