Differenze tra le versioni di "Drag-Drop di un'immagine in una cella di una GridView"
Da Gambas-it.org - Wikipedia.
(Una versione intermedia di uno stesso utente non è mostrata) | |||
Riga 3: | Riga 3: | ||
Public Sub Form_Open() | Public Sub Form_Open() | ||
− | + | With GridView1 | |
− | + | .Columns.Count = 3 | |
− | + | .Rows.Count = 3 | |
− | + | .Drop = True | |
− | + | End With | |
− | PictureBox1.Picture = Picture.Load("<FONT color= | + | PictureBox1.Picture = Picture.Load("<FONT color=darkgreen>''/percorso/del/file/immagine''</font>") |
End | End | ||
+ | |||
Public Sub PictureBox1_MouseDrag() | Public Sub PictureBox1_MouseDrag() | ||
<FONT color=gray>' ''Preleva e trascina l'immagine contenuta nella "PictureBox":''</font> | <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 | End | ||
+ | |||
Public Sub GridView1_Drop() | Public Sub GridView1_Drop() |
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