Differenze tra le versioni di "Drag-Drop di un'immagine in una cella di una GridView"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Mostriamo un semplice esempio per effettuare il trascinamento e rilascio di un'immagine in una cella di una ''GridView''. <BR>Su un ''Form'' è posta una ''GridView'' ed una '...') |
|||
| (2 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
Mostriamo un semplice esempio per effettuare il trascinamento e rilascio di un'immagine in una cella di una ''GridView''. | Mostriamo un semplice esempio per effettuare il trascinamento e rilascio di un'immagine in una cella di una ''GridView''. | ||
<BR>Su un ''Form'' è posta una ''GridView'' ed una ''PictureBox'' contenente un'immagine. | <BR>Su un ''Form'' è posta una ''GridView'' ed una ''PictureBox'' contenente un'immagine. | ||
| − | + | Public Sub Form_Open() | |
| − | + | With GridView1 | |
| − | + | .Columns.Count = 3 | |
| − | + | .Rows.Count = 3 | |
| − | + | .Drop = True | |
| − | + | End With | |
| + | |||
| + | PictureBox1.Picture = Picture.Load("<FONT color=darkgreen>''/percorso/del/file/immagine''</font>") | ||
| + | |||
| + | End | ||
| + | |||
| + | |||
| + | Public Sub PictureBox1_MouseDrag() | ||
| − | ''' | + | <FONT color=gray>' ''Preleva e trascina l'immagine contenuta nella "PictureBox":''</font> |
| + | If Mouse.Left Then | ||
| + | Drag.Icon = Last.Picture | ||
| + | Last.Drag(Last.Picture.Image) | ||
| + | Endif | ||
| + | End | ||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | + | Public Sub GridView1_Drop() | |
| + | <FONT color=gray>' ''Rilascia nella cella della "GridView" l'immagine trascinata:''</font> | ||
| + | GridView1[GridView1.RowAt(Drag.Y), GridView1.ColumnAt(Drag.X)].Picture = Drag.Icon | ||
| − | + | End | |
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
Versione attuale delle 17:27, 6 feb 2024
Mostriamo un semplice esempio per effettuare il trascinamento e rilascio di un'immagine in una cella di una GridView.
Su un Form è posta una GridView ed una PictureBox contenente un'immagine.
Public Sub Form_Open()
With GridView1
.Columns.Count = 3
.Rows.Count = 3
.Drop = True
End With
PictureBox1.Picture = Picture.Load("/percorso/del/file/immagine")
End
Public Sub PictureBox1_MouseDrag()
' Preleva e trascina l'immagine contenuta nella "PictureBox":
If Mouse.Left Then
Drag.Icon = Last.Picture
Last.Drag(Last.Picture.Image)
Endif
End
Public Sub GridView1_Drop()
' Rilascia nella cella della "GridView" l'immagine trascinata:
GridView1[GridView1.RowAt(Drag.Y), GridView1.ColumnAt(Drag.X)].Picture = Drag.Icon
End
