Disegnare in una DrawingArea dei punti - Cronologia

Vuott il 10:34, 9 ago 2025

2025-08-09T10:34:16Z

← Versione meno recente		Versione delle 04:34, 9 ago 2025
Riga 86:		Riga 86:
	.Arc(x + (r * Cos(Rad(t))), y + (r * Sin(Rad(t))), 2, Rad(0), Rad(360), False)		.Arc(x + (r * Cos(Rad(t))), y + (r * Sin(Rad(t))), 2, Rad(0), Rad(360), False)
	.Fill		.Fill
	~~.End~~
	End With		End With

Riga 131:		Riga 130:

	Dim i As Short		Dim i As Short

	i = 50 * c		i = 50 * c

	~~With~~ Paint		Paint.FillRect(i, DrawingArea1.H / 2, 4, 4, Color.Red)
	.FillRect(i, DrawingArea1.H / 2, 4, 4, Color.Red)
	~~.End~~
	~~End With~~

	Inc c		Inc c

	If i > DrawingArea1.W Then c = 0		If i > DrawingArea1.W Then c = 0

	End		End

Riga 208:		Riga 204:
	.FillRect(w, y, 4, 4, Color.Red)		.FillRect(w, y, 4, 4, Color.Red)
	.DrawText(String(d, "- "), 0, DrawingArea1.H / 2, d, 3, Align.Left)		.DrawText(String(d, "- "), 0, DrawingArea1.H / 2, d, 3, Align.Left)
	~~.End~~
	End With		End With

Riga 259:		Riga 254:
	<FONT Color=gray>' ''Centra l'onda nel mezzo della "DrawingArea":''</font>		<FONT Color=gray>' ''Centra l'onda nel mezzo della "DrawingArea":''</font>
	y += DrawingArea1.H / 2		y += DrawingArea1.H / 2
	~~With~~ Paint		Paint.FillRect(x, y, 4, 4, Color.Red)
	.FillRect(x, y, 4, 4, Color.Red)
	~~.End~~
	~~End With~~

	End		End

Riga 303:		Riga 295:
	.Arc(f + (DrawingArea1.W / 2), DrawingArea1.H / 2, 4, Rad(0), Rad(360), False)		.Arc(f + (DrawingArea1.W / 2), DrawingArea1.H / 2, 4, Rad(0), Rad(360), False)
	.Fill		.Fill
	~~.End~~
	End With		End With

Riga 356:		Riga 347:
	.Arc(p[0], p[1], b, Rad(0), Rad(360), False)		.Arc(p[0], p[1], b, Rad(0), Rad(360), False)
	.Fill		.Fill
	~~.End~~
	End With		End With

Riga 377:		Riga 367:
	.Fill		.Fill
	Next		Next
	~~.End~~
	End With		End With

Riga 425:		Riga 414:
	Dim c As Short		Dim c As Short

	~~With Paint~~		For c = 0 To pnt.Max
	For c = 0 To pnt.Max		Paint.FillRect(pnt[c], DrawingArea1.H / 2, 3, 3, Color.Red)
	.FillRect(pnt[c], DrawingArea1.H / 2, 3, 3, Color.Red)		Next
	Next
	~~.End~~
	~~End With~~

	d += 4		d += 4
	pnt.Push(d)		pnt.Push(d)
Riga 476:		Riga 462:
	i += incr		i += incr
	Wend		Wend
	~~.End~~
	End With		End With

Riga 513:		Riga 498:
	Next		Next
	.Fill		.Fill
	~~.End~~
	End With		End With

Riga 549:		Riga 533:
	.Fill		.Fill
	Next		Next
	~~.End~~
	End With		End With

Riga 610:		Riga 593:
	.Fill		.Fill
	Next		Next
	~~.End~~
	End With		End With

Riga 686:		Riga 668:
	.Fill		.Fill
	Next		Next
	~~.End~~
	End With		End With

Vuott il 20:31, 2 ago 2025

2025-08-02T20:31:42Z

← Versione meno recente		Versione delle 14:31, 2 ago 2025
Riga 27:		Riga 27:
	.<FONT Color=red><B>Arc</b></font>(200, 200, 1, Rad(0), Rad(360), False)		.<FONT Color=red><B>Arc</b></font>(200, 200, 1, Rad(0), Rad(360), False)
	.Fill		.Fill

	.Brush = .Color(Color.Blue)		.Brush = .Color(Color.Blue)
	.<FONT Color=blue><B>Ellipse</b></font>(300, 200, 2, 2, Rad(0), Rad(360), False)		.<FONT Color=blue><B>Ellipse</b></font>(300, 200, 2, 2, Rad(0), Rad(360), False)
	.Fill		.Fill

	.Brush = .Color(Color.Orange)		.Brush = .Color(Color.Orange)
	.<FONT Color=Orange><B>Rectangle</b></font>(400, 200, 2, 2, 0.0)		.<FONT Color=Orange><B>Rectangle</b></font>(400, 200, 2, 2, 0.0)
	.Fill		.Fill

	.<FONT Color=Green><B>FillRect</b></font>(500, 200, 2, 2, Color.Green)		.<FONT Color=Green><B>FillRect</b></font>(500, 200, 2, 2, Color.Green)
	~~.End~~
	End With		End With

Vuott il 20:30, 2 ago 2025

2025-08-02T20:30:05Z

Mostra modifiche

Vuott il 19:27, 23 nov 2024

2024-11-23T19:27:41Z

← Versione meno recente		Versione delle 13:27, 23 nov 2024
Riga 827:		Riga 827:
	[2] Vedere anche questa pagina: [[Disegnare_in_una_DrawingArea_una_spirale#Disegnare_una_Spirale_Archimedea\|Disegnare in una DrawingArea una spirale di Archimede]]		[2] Vedere anche questa pagina: [[Disegnare_in_una_DrawingArea_una_spirale#Disegnare_una_Spirale_Archimedea\|Disegnare in una DrawingArea una spirale di Archimede]]

	[3] Vedere anche la seguente pagina: [[Disegnare in una DrawingArea ~~più~~ linee rette con il mouse]]		[3] Vedere anche la seguente pagina: [[Disegnare in una DrawingArea linee rette con il mouse]]

Vuott il 18:29, 23 nov 2024

2024-11-23T18:29:35Z

← Versione meno recente		Versione delle 12:29, 23 nov 2024
Riga 232:		Riga 232:

	====Il punto percorre una traiettoria sinusoidale====		====Il punto percorre una traiettoria sinusoidale====
			Sarà necessario cliccare sulla ''DrawingArea'', per avviare l'effetto.
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea
	Private Const AMPIEZZA As Float = 100.0		Private Const AMPIEZZA As Float = 100.0
Riga 297:		Riga 298:
	End With		End With
	With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"		With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
	.Background = Color.~~SoftYellow~~		.Background = Color.White
	End With		End With
	Me.Show		Me.Show
Riga 317:		Riga 318:
	With Paint		With Paint
	.Brush = .Color(Color.Red)		.Brush = .Color(Color.Red)
	.Arc(f + (DrawingArea1.W / 2), DrawingArea1.H / 2, 2, Rad(0), Rad(360), False)		.Arc(f + (DrawingArea1.W / 2), DrawingArea1.H / 2, 4, Rad(0), Rad(360), False)
	.Fill		.Fill
	.End		.End
Riga 666:		Riga 667:

	===Ottenere un effetto gomma per cancellare===		===Ottenere un effetto gomma per cancellare===
	In questo esempio, dopo aver disegnato qualcosa nella "DrawingArea", cliccare ~~sul tasto "Effetto gomma"~~ e ~~passare~~ il ~~puntatore~~ del mouse ~~(tenendo~~ premuto ~~sul~~ tasto destro del mouse) su quanto ~~è stato~~ già disegnato: sarà sostituito dal colore giallo di fondo della "DrawingArea" restituendo così un effetto "gomma per cancellare".		In questo esempio, dopo aver disegnato qualcosa nella "DrawingArea", cliccare e rilasciare il tasto <U>centrale</u> (rotellina) del mouse.
			<BR>Usando poi il mouse, cliccando e mantenendo premuto il tasto sinistro o quello destro, e passando il puntatore del mouse su quanto già disegnato in rosso, il disegno sarà sostituito dal colore giallo di fondo della "DrawingArea" restituendo così un effetto "gomma per cancellare".
			<BR>Per ristabilire il colore rosso con l'uso del tasto sinistro o di quello destro, cliccare nuovamente sul tasto centrale (rotellina) del mouse.
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea
	Private Const GRANDEZZA_PUNTO As Float = 2.0		Private Const GRANDEZZA_PUNTO As Float = 2.0

Vuott il 17:52, 23 nov 2024

2024-11-23T17:52:44Z

← Versione meno recente		Versione delle 11:52, 23 nov 2024
Riga 29:		Riga 29:
	.Fill		.Fill
	.Brush = .Color(Color.Blue)		.Brush = .Color(Color.Blue)
	.<FONT Color=blue><B>Ellipse</b></font>(300, ~~400~~, 2, 2, Rad(0), Rad(360), False)		.<FONT Color=blue><B>Ellipse</b></font>(300, 200, 2, 2, Rad(0), Rad(360), False)
	.Fill		.Fill
	.Brush = .Color(Color.Orange)		.Brush = .Color(Color.Orange)

Vuott il 17:51, 23 nov 2024

2024-11-23T17:51:38Z

← Versione meno recente		Versione delle 11:51, 23 nov 2024
Riga 8:		Riga 8:
	Mostriamo un semplice esempio, nel quale si mostrerà l'uso dei predetti quattro Metodi:		Mostriamo un semplice esempio, nel quale si mostrerà l'uso dei predetti quattro Metodi:
	Public Sub Form_Open()		Public Sub Form_Open()

			Dim DrawingArea1 As DrawingArea

	With Me		With Me
Riga 24:		Riga 26:
	With Paint		With Paint
	.Brush = .Color(Color.Red)		.Brush = .Color(Color.Red)
	.<FONT Color=~~#B22222~~><B>Arc</b></font>(200, 200, 2, Rad(0), Rad(360), False)		.<FONT Color=red><B>Arc</b></font>(200, 200, 1, Rad(0), Rad(360), False)
	.Fill		.Fill
	.Brush = .Color(Color.Blue)		.Brush = .Color(Color.Blue)
	.<FONT Color=blue><B>Ellipse</b></font>(~~400~~, 400, 2, 2, Rad(0), Rad(360), False)		.<FONT Color=blue><B>Ellipse</b></font>(300, 400, 2, 2, Rad(0), Rad(360), False)
			.Fill
	.Brush = .Color(Color.Orange)		.Brush = .Color(Color.Orange)
	.<FONT Color=Orange><B>Rectangle</b></font>(~~500~~, 200, 2, 2, 0.0)		.<FONT Color=Orange><B>Rectangle</b></font>(400, 200, 2, 2, 0.0)
	.Fill		.Fill
	.<FONT Color=Green><B>FillRect</b></font>(~~600~~, 200, 2, 2, Color.Green)		.<FONT Color=Green><B>FillRect</b></font>(500, 200, 2, 2, Color.Green)
	.End		.End
	End With		End With

Vuott il 13:42, 16 ott 2024

2024-10-16T13:42:02Z

Mostra modifiche

Vuott il 18:55, 26 lug 2023

2023-07-26T18:55:08Z

← Versione meno recente		Versione delle 12:55, 26 lug 2023
Riga 246:		Riga 246:
	Do		Do
	Inc x		Inc x
	If x > DrawingArea1.w Then x = 0		If Not Object.IsValid(DrawingArea1) Then Break
			If x > DrawingArea1.W Then x = 0
	DrawingArea1.Refresh		DrawingArea1.Refresh
	Wait 0.01		Wait 0.01

Vuott il 14:42, 4 giu 2023

2023-06-04T14:42:37Z

← Versione meno recente		Versione delle 08:42, 4 giu 2023
Riga 782:		Riga 782:

	'''End'''		'''End'''
	Potrebbe accadere che alla prima pressione del ''Button'' non appaia il puntino giallo, ma che sia necessario un secondo clic. In tal caso, al fine di ottenere la comparsa del punto giallo al primo clic del ''Button'', è necessario porre una riga di comando		Potrebbe accadere che alla prima pressione del ''Button'' non appaia il puntino giallo, ma che sia necessario un secondo clic. In tal caso, al fine di evitare di dover cliccare due volte sul tasto del mouse e di ottenere così la comparsa del punto giallo al primo clic del ''Button'', è necessario porre una riga di comando:
	Wait 0.01		Wait 0.01
	o valore superiore dopo la riga di verifica della funzione "XCreateGC(~~...~~)".		o valore superiore dopo la riga di verifica della funzione "XCreateGC()".