Differenze tra le versioni di "Scambiare il contenuto delle celle di una GridView mediante trascinamento con il mouse"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "=Scambio senza Drag&Drop= Mostriamo un possibile codice, con il quale si potrà scambiare il testo da una cella mediante trascinamento con il mouse a un'altra di una ''GridVie...") |
|||
| Riga 1: | Riga 1: | ||
=Scambio senza Drag&Drop= | =Scambio senza Drag&Drop= | ||
| − | Mostriamo un possibile codice, con il quale si potrà scambiare il testo da una cella mediante trascinamento con il mouse a un'altra | + | Mostriamo un possibile codice, con il quale si potrà scambiare il testo da una cella di una ''GridView'' mediante trascinamento con il mouse a un'altra mediante rilascio (similmente al comportamento del ''Drag&Drop'', ma senza utilizzarne le risorse). |
Public Sub Form_Open() | Public Sub Form_Open() | ||
Versione delle 10:01, 10 dic 2023
Scambio senza Drag&Drop
Mostriamo un possibile codice, con il quale si potrà scambiare il testo da una cella di una GridView mediante trascinamento con il mouse a un'altra mediante rilascio (similmente al comportamento del Drag&Drop, ma senza utilizzarne le risorse).
Public Sub Form_Open()
With GridView1
.Columns.Count = 3
.Rows.Count = 5
End With
For b As Byte = 0 To GridView1.Columns.Max
For c As Byte = 0 To GridView1.Rows.Max
GridView1[c, b].Text = b & "-" & c
Next
Next
End
Public Sub GridView1_MouseUp()
Swap GridView1.Tag.Text, GridView1.Current.Text
End
Public Sub GridView1_Click()
GridView1.Tag = GridView1.Current
End
