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.
(Creata pagina con "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...") |
|||
| (3 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
| − | Il caso preso in esame è quello in cui, al passare del puntatore del mouse | + | 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>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'': | ||
| − | + | Public Sub Form_Open() | |
| − | + | ||
Dim c, r As Byte | Dim c, r As Byte | ||
| − | + | ||
With GridView1 | With GridView1 | ||
.Columns.Count = 3 | .Columns.Count = 3 | ||
.Rows.Count = 6 | .Rows.Count = 6 | ||
| − | |||
End With | End With | ||
| − | + | ||
<FONT Color=gray>' ''Scriviamo un qualsiasi testo in ciascuna cella della "GridView":''</font> | <FONT Color=gray>' ''Scriviamo un qualsiasi testo in ciascuna cella della "GridView":''</font> | ||
For c = 0 To GridView1.Columns.Max | For c = 0 To GridView1.Columns.Max | ||
| Riga 18: | Riga 18: | ||
Next | Next | ||
Next | Next | ||
| − | + | ||
| − | + | End | |
| − | + | Public Sub GridView1_MouseMove() | |
| − | + | ||
| − | |||
| − | |||
If (GridView1.RowAt(Mouse.Y) > -1) And (GridView1.ColumnAt(Mouse.X) > -1) Then | 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 | GridView1.Tooltip = "<Font Color=red>" & GridView1[GridView1.RowAt(Mouse.Y), GridView1.ColumnAt(Mouse.X)].Text | ||
Endif | Endif | ||
| − | + | ||
| − | + | End | |
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
