Differenze tra le versioni di "Effettuare una ricerca nelle celle di una GridView"
Da Gambas-it.org - Wikipedia.
Riga 10: | Riga 10: | ||
For r = 0 To GridView1.Rows.Max | For r = 0 To GridView1.Rows.Max | ||
For c = 0 To GridView1.Columns.Max | For c = 0 To GridView1.Columns.Max | ||
− | <FONT color=gray>' ''In questo esempio se il testo presente nella corrente cella è identico | + | <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 | If GridView1[r, c].Text = s Then | ||
− | <FONT color=gray>' ''...allora ci si posiziona nella corrente cella | + | <FONT color=gray>' ''...allora ci si posiziona nella corrente cella:''</font> |
With GridView1 | With GridView1 | ||
.MoveTo(r, c) | .MoveTo(r, c) | ||
.ShowCursor = True | .ShowCursor = True | ||
− | End With | + | End With |
− | <FONT color=gray>' ''... | + | <FONT color=gray>' ''La cella viene anche totalmente evidenziata in giallo:''</font> |
+ | GridView1[r, c].Background = Color.Lighter(Color.Yellow) | ||
+ | <FONT color=gray>' ''Quindi si esce quindi dal ciclo, perché è stata trovata la parola:''</font> | ||
Exit | Exit | ||
Endif | Endif |
Versione attuale delle 12:24, 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: With GridView1 .MoveTo(r, c) .ShowCursor = True End With ' La cella viene anche totalmente evidenziata in giallo: GridView1[r, c].Background = Color.Lighter(Color.Yellow) ' Quindi si esce quindi dal ciclo, perché è stata trovata la parola: Exit Endif Next Next End