Differenze tra le versioni di "Effettuare una ricerca nelle celle di una GridView"
Da Gambas-it.org - Wikipedia.
Riga 14: | Riga 14: | ||
<FONT color=gray>' ''...allora ci si posiziona nella corrente cella, la quale viene anche evidenziata...:''</font> | <FONT color=gray>' ''...allora ci si posiziona nella corrente cella, la quale viene anche evidenziata...:''</font> | ||
With GridView1 | With GridView1 | ||
− | .MoveTo( | + | .MoveTo(r, c) |
.ShowCursor = True | .ShowCursor = True | ||
End With | End With |
Versione delle 12:17, 6 ott 2019
Per effettuare una ricerca se un testo sia presente all'interno di una cella della GridView, potremo utilizzare un algoritmo del genere:
Public Sub GridView1_GotFocus() Dim r, c As Integer Dim s As String s = InputBox("Immetti la parola da cercare:") ' Inizia il doppio ciclo per leggere tutte le celle della "GridView": For r = 0 To GridView1.Rows.Max For c = 0 To GridView1.Columns.Max ' In questo esempio se il testo presente nella corrente cella è identico) a quello immesso nell'InputBox per la ricerca... If GridView1[r, c].Text = s Then ' ...allora ci si posiziona nella corrente cella, la quale viene anche evidenziata...: With GridView1 .MoveTo(r, c) .ShowCursor = True End With ' ...e si esce quindi dal ciclo, perché abbiamo trovato la parola: Exit Endif Next Next End