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.
Riga 1: | Riga 1: | ||
− | Mostriamo un semplice esempio per effettuare il trascinamento di un testo da una cella di una ''GridView'' ed il successivo rilascio in una cella di un'altra ''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() | '''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 | |
− | + | .Drop = True | |
− | + | End With | |
− | |||
'''End''' | '''End''' | ||
Riga 23: | Riga 22: | ||
<FONT color=gray>' ''Preleviamo e trasciniamo il testo individuando precisamente la cella della "GridView":''</font> | <FONT color=gray>' ''Preleviamo e trasciniamo il testo individuando precisamente la cella della "GridView":''</font> | ||
− | + | GridView1.Drag(GridView1[GridView1.RowAt(Mouse.Y), GridView1.ColumnAt(Mouse.X)].Text, "text/html") | |
'''End''' | '''End''' | ||
Riga 31: | Riga 30: | ||
<FONT color=gray>' ''Rilasciamo nella cella della seconda "GridView" il testo prelevato nella prima "GridView":''</font> | <FONT color=gray>' ''Rilasciamo nella cella della seconda "GridView" il testo prelevato nella prima "GridView":''</font> | ||
− | + | GridView2[GridView2.RowAt(Drag.Y), GridView2.ColumnAt(Drag.X)].Text = Drag.Data | |
'''End''' | '''End''' |
Versione delle 16:15, 23 nov 2020
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 .Drop = True End With End Public Sub GridView1_MouseDrag() ' Preleviamo e trasciniamo 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() ' Rilasciamo nella cella della seconda "GridView" il testo prelevato nella prima "GridView": GridView2[GridView2.RowAt(Drag.Y), GridView2.ColumnAt(Drag.X)].Text = Drag.Data End