Differenze tra le versioni di "Drag-Drop di un testo da una cella di una GridView ad una cella di un'altra GridView"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Mostriamo un semplice esempio per effettuare il trascinamento di un testo da una cella di una ''GridView'' e successivo rilascio in una cella di un'altra ''GridView''. '''Pub...') |
|||
(4 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 1: | Riga 1: | ||
− | Mostriamo un semplice esempio per effettuare il trascinamento di un testo da una cella di una ''GridView'' | + | Mostriamo un semplice esempio per effettuare il trascinamento di un testo da una cella di una ''GridView'' (che chiameremo "GridView1") ed il successivo rilascio in una cella di un'altra ''GridView'' (che chiameremo "GridView2"). |
− | + | Public Sub Form_Open() | |
− | + | With GridView1 | |
− | + | .Columns.Count = 3 | |
− | + | .Rows.Count = 3 | |
− | + | End With | |
− | + | GridView1[1, 0].Text = "testo qualsiasi" | |
+ | GridView1.Columns[0].W = -1 | ||
+ | With GridView2 | ||
+ | .Columns.Count = 3 | ||
+ | .Rows.Count = 3 | ||
+ | <FONT color=gray>' ''La "GridView", che riceverà il testo, deve avere la Proprietà ".Drop" impostata a "True":''</font> | ||
+ | <FONT color=#B22222>.Drop = <B>True</b></font> | ||
+ | End With | ||
− | + | End | |
− | |||
− | |||
− | |||
− | |||
− | |||
+ | Public Sub GridView1_MouseDrag() | ||
+ | |||
+ | <FONT color=gray>' ''Preleva e trascina il testo individuando precisamente la cella della "GridView":''</font> | ||
+ | GridView1.Drag(GridView1[GridView1.RowAt(Mouse.Y), GridView1.ColumnAt(Mouse.X)].Text, "text/html") | ||
+ | |||
+ | End | ||
− | |||
− | |||
− | |||
− | |||
− | + | Public Sub GridView2_Drop() | |
+ | <FONT color=gray>' ''Rilascia nella cella della seconda "GridView" il testo prelevato nella prima "GridView":''</font> | ||
+ | GridView2[GridView2.RowAt(Drag.Y), GridView2.ColumnAt(Drag.X)].Text = Drag.Data | ||
− | + | <FONT color=gray>' ''Adatta la cella della seconda "GridView" alla dimensione del testo ricevuto:''</font> | |
− | + | GridView2.Columns[GridView2.ColumnAt(Drag.X)].W = -1 | |
− | <FONT color=gray>' '' | ||
− | |||
− | + | End |
Versione attuale delle 15:45, 7 dic 2023
Mostriamo un semplice esempio per effettuare il trascinamento di un testo da una cella di una GridView (che chiameremo "GridView1") ed il successivo rilascio in una cella di un'altra GridView (che chiameremo "GridView2").
Public Sub Form_Open() With GridView1 .Columns.Count = 3 .Rows.Count = 3 End With GridView1[1, 0].Text = "testo qualsiasi" GridView1.Columns[0].W = -1 With GridView2 .Columns.Count = 3 .Rows.Count = 3 ' La "GridView", che riceverà il testo, deve avere la Proprietà ".Drop" impostata a "True": .Drop = True End With End Public Sub GridView1_MouseDrag() ' Preleva e trascina il testo individuando precisamente la cella della "GridView": GridView1.Drag(GridView1[GridView1.RowAt(Mouse.Y), GridView1.ColumnAt(Mouse.X)].Text, "text/html") End Public Sub GridView2_Drop() ' Rilascia nella cella della seconda "GridView" il testo prelevato nella prima "GridView": GridView2[GridView2.RowAt(Drag.Y), GridView2.ColumnAt(Drag.X)].Text = Drag.Data ' Adatta la cella della seconda "GridView" alla dimensione del testo ricevuto: GridView2.Columns[GridView2.ColumnAt(Drag.X)].W = -1 End