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
