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.
 
(Una versione intermedia di uno stesso utente non è mostrata)
Riga 1: Riga 1:
 
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").
 
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
 
   With GridView1
Riga 13: Riga 13:
 
     .Columns.Count = 3
 
     .Columns.Count = 3
 
     .Rows.Count = 3
 
     .Rows.Count = 3
−
     .Drop = True
+
<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 With
 
   
 
   
−
  '''End'''
+
  End
 
   
 
   
 
   
 
   
−
  '''Public''' Sub GridView1_MouseDrag()
+
  Public Sub GridView1_MouseDrag()
−
 
+
−
  <FONT color=gray>' ''Preleviamo e trasciniamo il testo individuando precisamente la cella della "GridView":''</font>
+
  <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")
 
   GridView1.Drag(GridView1[GridView1.RowAt(Mouse.Y), GridView1.ColumnAt(Mouse.X)].Text, "text/html")
 
   
 
   
−
  '''End'''
+
  End
 
   
 
   
 
   
 
   
−
  '''Public''' Sub GridView2_Drop()
+
  Public Sub GridView2_Drop()
−
 
+
−
  <FONT color=gray>' ''Rilasciamo nella cella della seconda "GridView" il testo prelevato nella prima "GridView":''</font>
+
  <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
 
   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
 
    
 
    
−
  '''End'''
+
  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
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Drag-Drop_di_un_testo_da_una_cella_di_una_GridView_ad_una_cella_di_un%27altra_GridView&oldid=35672"