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> | + | <BR>Va detto che la Proprietà ".Tracking" della Classe ''GridView'' è impostata in modo predefinito sul valore "True"; e pertanto non dovrà essere modifciata. |
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 10: | Riga 10: | ||
.Columns.Count = 3 | .Columns.Count = 3 | ||
.Rows.Count = 6 | .Rows.Count = 6 | ||
− | |||
End With | End With | ||
Versione attuale delle 07:52, 10 ago 2024
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.
Va detto che la Proprietà ".Tracking" della Classe GridView è impostata in modo predefinito sul valore "True"; e pertanto non dovrà essere modifciata.
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 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() 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