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...") |
|||
(2 versioni intermedie di uno stesso utente non sono mostrate) | |||
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:''</font> | |
− | <FONT color= | + | With GridView1 |
− | + | .MoveTo(r, c) | |
− | + | .ShowCursor = True | |
− | + | End With | |
− | + | <FONT color=gray>' ''La cella viene anche totalmente evidenziata in giallo:''</font> | |
− | <FONT color= | + | GridView1[r, c].Background = Color.Lighter(Color.Yellow) |
− | + | <FONT color=gray>' ''Quindi si esce quindi dal ciclo, perché è stata trovata la parola:''</font> | |
− | + | Exit | |
− | + | Endif | |
Next | Next | ||
+ | Next | ||
'''End''' | '''End''' |
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