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