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...") |
|||
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. |
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'': |
Versione delle 09:26, 25 giu 2020
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.
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