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