Differenze tra le versioni di "Mostrare il testo contenuto in una cella di una GridVew al semplice passare del puntatore del mouse"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
Il caso preso in esame è quello in cui, al passare del puntatore del mouse - <SPAN Style="text-decoration:underline">senza</span> tenere premuto alcun suo tasto - su una cella di una ''GridView'', si estrae e si mostra il testo in essa contenuto. | Il caso preso in esame è quello in cui, al passare del puntatore del mouse - <SPAN Style="text-decoration:underline">senza</span> tenere premuto alcun suo tasto - su una cella di una ''GridView'', si estrae e si mostra il testo in essa contenuto. | ||
+ | <BR>Sarà necessario assegnare il valore "True" alla Proprietà ".Tracking" del ''Form''. | ||
Presentiamo un semplice un esempio, nel quale il testo ricavato della cella sarà mostrato in un ''Tooltip'': | Presentiamo un semplice un esempio, nel quale il testo ricavato della cella sarà mostrato in un ''Tooltip'': | ||
Riga 9: | Riga 10: | ||
.Columns.Count = 3 | .Columns.Count = 3 | ||
.Rows.Count = 6 | .Rows.Count = 6 | ||
− | .Tracking = True | + | <FONT Color=#B22222>.Tracking = True</font> |
End With | End With | ||
Riga 20: | Riga 21: | ||
'''End''' | '''End''' | ||
− | |||
'''Public''' Sub GridView1_MouseMove() | '''Public''' Sub GridView1_MouseMove() |
Versione delle 11:11, 7 gen 2022
Il caso preso in esame è quello in cui, al passare del puntatore del mouse - senza tenere premuto alcun suo tasto - su una cella di una GridView, si estrae e si mostra il testo in essa contenuto.
Sarà necessario assegnare il valore "True" alla Proprietà ".Tracking" del Form.
Presentiamo un semplice un esempio, nel quale il testo ricavato della cella sarà mostrato in un Tooltip:
Public Sub Form_Open() Dim c, r As Byte With GridView1 .Columns.Count = 3 .Rows.Count = 6 .Tracking = True End With ' Scriviamo un qualsiasi testo in ciascuna cella della "GridView": For c = 0 To GridView1.Columns.Max For r = 0 To GridView1.Rows.Max GridView1[r, c].Text = CStr(c) & "," & CStr(r) Next Next End Public Sub GridView1_MouseMove() GridView1.Tooltip = Null If (GridView1.RowAt(Mouse.Y) > -1) And (GridView1.ColumnAt(Mouse.X) > -1) Then GridView1.Tooltip = "<Font Color=red>" & GridView1[GridView1.RowAt(Mouse.Y), GridView1.ColumnAt(Mouse.X)].Text Endif End