Scambiare il contenuto delle celle di una GridView mediante trascinamento con il mouse
Da Gambas-it.org - Wikipedia.
Versione del 10 dic 2023 alle 09:59 di Vuott (Discussione | contributi) (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...")
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 GridView' 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