Drag-Drop di un'immagine in una DrawingArea - Cronologia

Vuott il 00:14, 11 ago 2025

2025-08-11T00:14:18Z

← Versione meno recente		Versione delle 18:14, 10 ago 2025
Riga 192:		Riga 192:
	==Drag&Drop da una ''DrawingArea'' a un'altra==		==Drag&Drop da una ''DrawingArea'' a un'altra==
	Mostriamo un possibile codice per effettuare il Drag-Drop del disegno da una ''DrawingArea'' a un'altra ''DrawingArea''.		Mostriamo un possibile codice per effettuare il Drag-Drop del disegno da una ''DrawingArea'' a un'altra ''DrawingArea''.
	~~Private DrawingArea1 As DrawingArea~~
	Private im As Image		Private im As Image
	Private bo As Boolean		Private bo As Boolean

Vuott il 00:13, 11 ago 2025

2025-08-11T00:13:05Z

Mostra modifiche

Vuott il 18:08, 22 nov 2024

2024-11-22T18:08:52Z

← Versione meno recente		Versione delle 12:08, 22 nov 2024
Riga 24:		Riga 24:
	End With		End With
	Else		Else
	<FONT Color=gray>' ''~~Imposta~~ l'immagine ~~all'interno della~~ "~~DrawingArea~~":''</font>		<FONT Color=gray>' ''Carica l'immagine nella variabile "im" di tipo "Image":''</font>
	im = Picture["icon:/32/book"].Image		im = Picture["icon:/32/book"].Image
	<FONT Color=gray>' ''Mostra l'immagine alle coordinate x, y:''</font>		<FONT Color=gray>' ''Mostra l'immagine alle coordinate x, y:''</font>

Vuott il 18:07, 22 nov 2024

2024-11-22T18:07:18Z

← Versione meno recente		Versione delle 12:07, 22 nov 2024
Riga 24:		Riga 24:
	End With		End With
	Else		Else
	<FONT Color=gray>' ''~~Iniziale impostazione dell~~'immagine all'interno della "DrawingArea":''</font>		<FONT Color=gray>' ''Imposta l'immagine all'interno della "DrawingArea":''</font>
	im = Picture["icon:/32/book"].Image		im = Picture["icon:/32/book"].Image
	<FONT Color=gray>' ''Mostra l'immagine alle coordinate x=0, y=0:''</font>		<FONT Color=gray>' ''Mostra l'immagine alle coordinate x, y:''</font>
	With Paint		With Paint
	.DrawImage(im, x, y, im.W, im.H)		.DrawImage(im, x, y, im.W, im.H)

Vuott il 19:44, 21 nov 2024

2024-11-21T19:44:38Z

← Versione meno recente		Versione delle 13:44, 21 nov 2024
Riga 33:		Riga 33:
	Endif		Endif

			End


			Public Sub DrawingArea1_MouseDrag()

			bo = True
			<FONT Color=gray>' ''Iniziato lo spostamento dell'immagine, va a ridisegnare la "DrawingArea", per cancellare l'immagine impostata inizialmente o rilasciata dopo il precedente spostamento::''</font>
			DrawingArea1.Refresh

			Drag.Icon = im.Picture

			<FONT Color=gray>' ''Preleva e trascina l'Oggetto Image, ossia l'immagine presente sulla "DrawingArea":''</font>
			Last.Drag(im)

			End


			Public Sub DrawingArea1_Drop()

			<FONT Color=gray>' ''Assegna alle variabili "x" e "y" le rispettive coordinate, ove l'immagine è stata rilasciata sull'altra "DrawingArea":''</font>
			x = Drag.X
			y = Drag.Y
			bo = False
			DrawingArea1.Refresh

	End		End

Vuott il 19:40, 21 nov 2024

2024-11-21T19:40:51Z

← Versione meno recente		Versione delle 13:40, 21 nov 2024
Riga 1:		Riga 1:
			=Drag&Drop di un'immagine all'interno della medesima ''DrawingArea''=
			In questo caso lo spostamento con il mouse mediante le risorse del ''Drag&Drop'' di un'immagine, presente in una ''DrawingArea'', avviene all'interno della medesima ''DrawingArea'':
			Private im As Image
			Private bo As Boolean
			Private x As Short
			Private y As Short


			Public Sub Form_Open()

			<FONT Color=gray>' ''Attiva la capacità della "DrawingArea" di sollevare l'evento "_Drop():''</font>
			DrawingArea1.Drop = True

			End


			Public Sub DrawingArea1_Draw()

			<FONT Color=gray>' ''Quando viene spostata l'immagine con il mouse all'interno della "DrawingArea", essa viene cancellata dalle coordinate ove era stata impostata all'inizio o rilasciata dopo il precedente spostamento::''</font>
			If bo Then
			With Paint
			.FillRect(x, y, im.W, im.H, Color.Background)
			.End
			End With
			Else
			<FONT Color=gray>' ''Iniziale impostazione dell'immagine all'interno della "DrawingArea":''</font>
			im = Picture["icon:/32/book"].Image
			<FONT Color=gray>' ''Mostra l'immagine alle coordinate x=0, y=0:''</font>
			With Paint
			.DrawImage(im, x, y, im.W, im.H)
			.End
			End With
			Endif

			End


			=Drag&Drop di un'immagine da un Oggetto grafico in una ''DrawingArea''=

	==Drag&Drop da una ''PictureBox'' in una ''DrawingArea''==		==Drag&Drop da una ''PictureBox'' in una ''DrawingArea''==
	Mostriamo un possibile codice per effettuare un semplice Drag-Drop di un'immagine da una ''PictureBox'' in una ''DrawingArea''.		Mostriamo un possibile codice per effettuare un semplice Drag-Drop di un'immagine da una ''PictureBox'' in una ''DrawingArea''.

Vuott il 13:20, 20 nov 2024

2024-11-20T13:20:52Z

← Versione meno recente		Versione delle 07:20, 20 nov 2024
Riga 66:		Riga 66:
	DrawingArea1.Drop = True		DrawingArea1.Drop = True

	PictureBox1.Image = Image.Load("<FONT Color=~~gray~~>''/percorso/del/file/immagine''</font>")		PictureBox1.Image = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>")

	End		End
Riga 177:		Riga 177:
	===Drag&Drop da più ''DrawingArea'' ad una ''DrawingArea'' principale===		===Drag&Drop da più ''DrawingArea'' ad una ''DrawingArea'' principale===
	Mostriamo un possibile codice per effettuare il Drag-Drop del disegno presente in varie ''DrawingArea'' in una ''DrawingArea'' principale.		Mostriamo un possibile codice per effettuare il Drag-Drop del disegno presente in varie ''DrawingArea'' in una ''DrawingArea'' principale.
	<BR>Poniamo il caso di avere una ''DrawingArea'' principale, nella quale saranno rilasciati i disegni presenti in altre quattro ''DrawingArea''. Assumiamo che le quattro ''DrawingArea'', dalle quali sarà trascinato il rispettivo disegno, appartengano ad un unico Gruppo degli Eventi (ad esempio "Dr").		<BR>Poniamo il caso di avere una ''DrawingArea'' principale, nella quale saranno rilasciati i disegni presenti in altre quattro ''DrawingArea''. Assumiamo che le quattro ''DrawingArea'', dalle quali sarà trascinato il rispettivo disegno, appartengano ad un unico Gruppo degli Eventi (ad esempio "AreaDisegno").
	~~<BR>Anche in questo caso, per le ragioni spiegate nel paragrafo precedente, è necessario un Oggetto ''Picture'' di appoggio~~.
	Public Struct IMMAGINI		Public Struct IMMAGINI
	drx As Short		drx As Short
Riga 195:		Riga 194:

	<FONT Color=gray>' ''Assegna ogni "DrawingArea" secondaria a un unico Gruppo degli Eventi (ad esempio "Dr"):''</font>		<FONT Color=gray>' ''Assegna ogni "DrawingArea" secondaria a un unico Gruppo degli Eventi (ad esempio "Dr"):''</font>
	Object.Attach(DrawingArea2, Me, "Dr")		Object.Attach(DrawingArea2, Me, "AreaDisegno")
	Object.Attach(DrawingArea3, Me, "Dr")		Object.Attach(DrawingArea3, Me, "AreaDisegno")
	Object.Attach(DrawingArea4, Me, "Dr")		Object.Attach(DrawingArea4, Me, "AreaDisegno")
	Object.Attach(DrawingArea5, Me, "Dr")		Object.Attach(DrawingArea5, Me, "AreaDisegno")

	<FONT Color=gray>' ''Assegna ogni "DrawingArea" esistente ad un elemento di un vettore di tipo "DrawingArea[]", al fine di collegare il suo Indice degli elementi a quello del vettore di tipo "Picture[]":''</font>		<FONT Color=gray>' ''Assegna ogni "DrawingArea" esistente ad un elemento di un vettore di tipo "DrawingArea[]", al fine di collegare il suo Indice degli elementi a quello del vettore di tipo "Picture[]":''</font>
Riga 209:		Riga 208:


	Public Sub ~~Dr_Draw~~()		Public Sub AreaDisegno_Draw()

	<FONT Color=gray>' ''Assegna ad ogni "DrawingArea" esistente un'immagine, che potrà essere trasferita e rilasciata nella "DrawingArea" principale:''</font>		<FONT Color=gray>' ''Assegna ad ogni "DrawingArea" esistente un'immagine, che potrà essere trasferita e rilasciata nella "DrawingArea" principale:''</font>
Riga 231:		Riga 230:


	Public Sub ~~Dr_MouseDrag~~()		Public Sub AreaDisegno_MouseDrag()

	<FONT Color=gray>' ''Preleviamo e trasciniamo l'immagine da una "DrawingArea":''</font>		<FONT Color=gray>' ''Preleviamo e trasciniamo l'immagine da una "DrawingArea":''</font>

Vuott il 13:16, 20 nov 2024

2024-11-20T13:16:31Z

← Versione meno recente		Versione delle 07:16, 20 nov 2024
Riga 56:		Riga 56:
	drx As Short		drx As Short
	dry As Short		dry As Short
	pc As ~~Picture~~		im As Image
	End Struct		End Struct
	Private iimm As New IMMAGINI[]		Private iimm As New IMMAGINI[]
Riga 66:		Riga 66:
	DrawingArea1.Drop = True		DrawingArea1.Drop = True

	PictureBox1.~~Picture~~ = ~~Picture~~.Load("<FONT Color=gray>''/percorso/del/file/immagine''</font>")		PictureBox1.Image = Image.Load("<FONT Color=gray>''/percorso/del/file/immagine''</font>")

	End		End
Riga 74:		Riga 74:

	<FONT Color=gray>' ''Preleviamo e trasciniamo l'immagine dalla "PictureBox":''</font>		<FONT Color=gray>' ''Preleviamo e trasciniamo l'immagine dalla "PictureBox":''</font>
	Drag.Icon = Last.Picture		Drag.Icon = Last.Image.Picture
	Last.Drag(~~Last~~.~~Picture~~.Image)		Last.Drag(Drag.Icon.Image)

	End		End
Riga 88:		Riga 88:
	.drx = Drag.X		.drx = Drag.X
	.dry = Drag.Y		.dry = Drag.Y
	.pc = Drag.Data~~.Picture~~		.im = Drag.Data
	End With		End With

Riga 99:		Riga 99:

	Public Sub DrawingArea1_Draw()		Public Sub DrawingArea1_Draw()

	Dim n As Integer		Dim n As Integer

	<FONT Color=gray>' ''Ridisegna le immagini precedentemente rilasciate nella "DrawingArea":''</font>		<FONT Color=gray>' ''Ridisegna le immagini precedentemente rilasciate nella "DrawingArea":''</font>
	For n = 0 To iimm.Max		For n = 0 To iimm.Max
	Paint.~~DrawPicture~~(iimm[n].pc, iimm[n].drX, iimm[n].drY)		Paint.DrawImage(iimm[n].im, iimm[n].drX, iimm[n].drY)
	Next		Next

	End		End

Vuott il 13:07, 20 nov 2024

2024-11-20T13:07:05Z

← Versione meno recente		Versione delle 07:07, 20 nov 2024
Riga 1:		Riga 1:
	==Drag&Drop da una ''PictureBox'' in una ''DrawingArea''==		==Drag&Drop da una ''PictureBox'' in una ''DrawingArea''==
	Mostriamo un possibile codice per effettuare un semplice Drag-Drop di un'immagine da una ''PictureBox'' in una ''DrawingArea''.		Mostriamo un possibile codice per effettuare un semplice Drag-Drop di un'immagine da una ''PictureBox'' in una ''DrawingArea''.
	Private pc As ~~Picture~~		Private im As Image
	Private x As Short		Private x As Short
	Private y As Short		Private y As Short
Riga 11:		Riga 11:
	DrawingArea1.Drop = True		DrawingArea1.Drop = True

	PictureBox1.~~Picture~~ = ~~Picture~~.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>")		PictureBox1.Image = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>")

	End		End
Riga 17:		Riga 17:

	Public Sub PictureBox1_MouseDrag()		Public Sub PictureBox1_MouseDrag()

	<FONT Color=gray>' ''Preleva e trascina l'immagine dalla "PictureBox":''</font>		<FONT Color=gray>' ''Preleva e trascina l'immagine dalla "PictureBox":''</font>
	Drag.Icon = Last.Picture		Drag.Icon = Last.Image.Picture
	Last.Drag(~~Last~~.~~Picture~~.Image)		Last.Drag(Drag.Icon.Image)

	End		End


	Public Sub DrawingArea1_Drop()		Public Sub DrawingArea1_Drop()

	pc = Drag.Data~~.Picture~~		im = Drag.Data
	x = Drag.X		x = Drag.X
	y = Drag.Y		y = Drag.Y

	DrawingArea1.Refresh		DrawingArea1.Refresh

	End		End

Riga 38:		Riga 38:
	Public Sub DrawingArea1_Draw() <FONT Color=gray>' ''Si disegna l'immagine nella "DrawingArea"''</font>		Public Sub DrawingArea1_Draw() <FONT Color=gray>' ''Si disegna l'immagine nella "DrawingArea"''</font>

	If Object.Address(pc) == 0 Then Return		If Object.Address(im) == 0 Then Return

	With Paint		With Paint
	.~~DrawPicture~~(pc, x, y, pc.W, pc.H)		.DrawImage(im, x, y, im.W, im.H)
	.End		.End
	End With		End With

Vuott il 12:45, 20 nov 2024

2024-11-20T12:45:19Z

← Versione meno recente		Versione delle 06:45, 20 nov 2024
Riga 153:		Riga 153:

	bo = True		bo = True

			<FONT Color=gray>' ''Assegna alle variabili "x" e "y" le rispettive coordinate, ove l'immagine è stata rilasciata sull'altra "DrawingArea":''</font>
	x = Drag.X		x = Drag.X
	y = Drag.Y		y = Drag.Y
Riga 164:		Riga 166:

	If bo == False Then Return		If bo == False Then Return

			<FONT Color=gray>' ''Mostra l'immagine alle coordinate "x" e "y", ossia ove la stessa è stata rilasciata:''</font>
	With Paint		With Paint
	.DrawImage(im, x, y, im.W, im.H)		.DrawImage(im, x, y, im.W, im.H)