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.
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| 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'': | ||
| − | + | 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 | ||
| − | .Tracking = True | + | <FONT Color=#B22222>.Tracking = True</font> |
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 19: | ||
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 05:33, 23 lug 2023
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()
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
