Creare un Form mediante la Classe Window - Cronologia

Vuott il 21:32, 25 giu 2024

2024-06-25T21:32:29Z

← Versione meno recente		Versione delle 15:32, 25 giu 2024
Riga 8:		Riga 8:


	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	Dim b As Byte		Dim b As Byte
Riga 14:		Riga 14:
	For b = 0 To 4		For b = 0 To 4

	<FONT color=gray>' ''~~Creiamo~~ un nuovo "Form":''</font>		<FONT color=gray>' ''Crea un nuovo "Form":''</font>
	With w = New <FONT color=#B22222>Window</font> As "Finestra"		With w = New <FONT color=#B22222>Window</font> As "Finestra"
	.W = 300		.W = 300
Riga 24:		Riga 24:
	End With		End With

	<FONT color=gray>' ''~~Poniamo~~ su ciascun nuovo "Form" un "Button":''</font>		<FONT color=gray>' ''Pone su ciascun nuovo "Form" un "Button":''</font>
	creaTasto()		creaTasto()
	Next		Next

	~~'''~~End~~'''~~		End

	~~'''~~Public~~'''~~ Sub Finestra_Open()
			Public Sub Finestra_Open()

	<FONT color=gray>' ''Per ogni nuovo "~~From~~" creato, che si apre, ~~ne vediamo~~ in console il nome:''</font>		<FONT color=gray>' ''Per ogni nuovo "Form" creato, che si apre, mostra in console il nome:''</font>
	Print w.Text		Print w.Text

	~~'''~~End~~'''~~		End

	~~'''~~Public~~'''~~ Sub creaTasto()
			Public Sub creaTasto()

	With bt = New Button(<FONT color=#B22222>w</font>) As "bt"		With bt = New Button(<FONT color=#B22222>w</font>) As "bt"
Riga 48:		Riga 50:
	End With		End With

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub bt_Click() <FONT color=gray>' ''I "Button" presenti sui nuovi "Form" sono regolarmente funzionanti''</font>		Public Sub bt_Click() <FONT color=gray>' ''I "Button" presenti sui nuovi "Form" sono regolarmente funzionanti''</font>

	Print "Premuto " & Last.Text		Print "Premuto " & Last.Text
Riga 56:		Riga 59:
	Wait 2		Wait 2

	<FONT color=gray>' ''~~Chiudiamo~~ il "Form", individuandolo come "Parent", del "Button" cliccato:''</font>		<FONT color=gray>' ''Chiude il "Form", individuandolo come "Parent", del "Button" cliccato:''</font>
	Last.Parent.Close		Last.Parent.Close

	~~'''~~End~~'''~~		End


Riga 69:		Riga 72:


	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	With w = New Window		With w = New Window
Riga 77:		Riga 80:
	.H = 300		.H = 300
	.Border = Border.None		.Border = Border.None
	<FONT color=gray>' ''~~Carichiamo~~ nell'oggetto di tipo "Window" un'immagine semitrasparente, avente ovviamente una parte d'immagine visibile:</font>		<FONT color=gray>' ''Carica nell'oggetto di tipo "Window" un'immagine semitrasparente, avente ovviamente una parte d'immagine visibile:</font>
	.Picture = Picture.Load("<FONT color=gray>''/percorso/file/immagine.png''</font>")		.Picture = Picture.Load("<FONT color=gray>''/percorso/file/immagine.png''</font>")
	<FONT color=gray>' ''~~Impostiamo~~ la proprietà ".Mask" dell'oggetto di tipo "Window" a "True":''</font>		<FONT color=gray>' ''Imposta la proprietà ".Mask" dell'oggetto di tipo "Window" a "True":''</font>
	<FONT color=#B22222>.Mask</font> = <FONT color=#B22222>True</font>		<FONT color=#B22222>.Mask</font> = <FONT color=#B22222>True</font>
	.Show()		.Show()
	End With		End With

	~~'''~~End~~'''~~		End

Vuott il 18:52, 30 dic 2021

2021-12-30T18:52:43Z

← Versione meno recente		Versione delle 12:52, 30 dic 2021
Riga 1:		Riga 1:
	Poiché l'oggetto ''Form'' appartiene alla categoria dell'~~oggetto~~ ''Window'', è possibile creare un ''Form'' autonomo semplicemente dichiarando ed istanziando un ~~oggetto~~ ''Window'' per mezzo di una variabile di tipo ''Window'', con la quale sarà anche gestito.		Poiché l'oggetto ''Form'' appartiene alla categoria dell'Oggetto ''Window'', è possibile creare un ''Form'' autonomo semplicemente dichiarando ed istanziando un Oggetto ''Window'' per mezzo di una variabile di tipo ''Window'', con la quale sarà anche gestito.

	~~Detti ''Form'' creati mediante la Classe ''Window'' potranno contenere regolarmente degli oggetti~~.

			Detti ''Form'' creati mediante la Classe ''Window'' potranno contenere regolarmente degli Oggetti grafici.

	Nel seguente esempio creeremo diversi ''Form'' mediante la Classe ''Window'':		Nel seguente esempio creeremo diversi ''Form'' mediante la Classe ''Window'':
	~~'''~~Private~~'''~~ w As <FONT color=#B22222>Window</font>		Private w As <FONT color=#B22222>Window</font>
	~~'''~~Private~~'''~~ bt As Button		Private bt As Button


	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

	Dim j As Byte		Dim b As Byte

	For j = 0 To 4		For b = 0 To 4

	<FONT color=gray>' ''Creiamo un nuovo "Form":''</font>		<FONT color=gray>' ''Creiamo un nuovo "Form":''</font>
	With w = New <FONT color=#B22222>Window</font> As "w"		With w = New <FONT color=#B22222>Window</font> As "Finestra"
	.W = 300		.W = 300
	.H = 200		.H = 200
	.Caption = "num. " & CStr(j)		.Caption = "num. " & CStr(b)
	.Background = &111111 * (j + 1000)		.Background = &111111 * (b + 1000)
	<FONT color=gray>' ''Per far mostrare la finestra, è assolutamente necessario chiamare ~~la sua funzione~~ ".Show":''</font>		<FONT color=gray>' ''Per far mostrare la finestra, è assolutamente necessario chiamare il suo Metodo ".Show()":''</font>
	.Show		.Show()
	End With		End With

	<FONT color=gray>' ''Poniamo su ciascun nuovo "Form" un "Button":''</font>		<FONT color=gray>' ''Poniamo su ciascun nuovo "Form" un "Button":''</font>
	creaTasto()		creaTasto()
			Next
	Next

	'''End'''		'''End'''


	~~'''Public''' Sub w_Open()~~

	<FONT color=gray>' ''Per ogni nuovo "From" creato, che si apre,''		'''Public''' Sub Finestra_Open()
	~~' ''~~ne vediamo in console il nome:''</font>
	Print w.~~Caption~~		<FONT color=gray>' ''Per ogni nuovo "From" creato, che si apre, ne vediamo in console il nome:''</font>
			Print w.Text

	'''End'''		'''End'''


	'''Public''' Sub creaTasto()		'''Public''' Sub creaTasto()

	With bt = New Button(<FONT color=#B22222>w</font>) As "bt"		With bt = New Button(<FONT color=#B22222>w</font>) As "bt"
	.X = 20		.X = 20
	.Y = 20		.Y = 20
	.W = 100		.W = 100
	.H = 40		.H = 40
	.Background = Color.Yellow		.Background = Color.Yellow
	.Text = "Tasto " & w.~~Caption~~		.Text = "Tasto " & w.Text
	End With		End With

	'''End'''		'''End'''


	'''Public''' Sub bt_Click() <FONT color=gray>' ''I "Button" presenti sui nuovi "Form" sono regolarmente funzionanti''</font>		'''Public''' Sub bt_Click() <FONT color=gray>' ''I "Button" presenti sui nuovi "Form" sono regolarmente funzionanti''</font>
Riga 72:		Riga 66:

	Di seguito un semplice esempio:		Di seguito un semplice esempio:
	~~'''~~Private~~'''~~ w As Window		Private w As Window


	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

	With w = New Window		With w = New Window
	.X = Mouse.ScreenX		.X = Mouse.ScreenX
	.Y = Mouse.ScreenY		.Y = Mouse.ScreenY
	.W = 300		.W = 300
	.H = 300		.H = 300
	.Border = Border.None		.Border = Border.None
	<FONT color=gray>' ''Carichiamo nell'oggetto di tipo "Window" un'immagine semitrasparente,''		<FONT color=gray>' ''Carichiamo nell'oggetto di tipo "Window" un'immagine semitrasparente, avente ovviamente una parte d'immagine visibile:</font>
	~~' ''~~avente ovviamente una parte d'immagine visibile:</font>		.Picture = Picture.Load("<FONT color=gray>''/percorso/file/immagine.png''</font>")
	.Picture = Picture.Load("''~~percorso_file_immagine~~.png''")		<FONT color=gray>' ''Impostiamo la proprietà ".Mask" dell'oggetto di tipo "Window" a "True":''</font>
	<FONT color=gray>' ''Impostiamo la proprietà ".Mask" dell'oggetto di tipo "Window" a "True":</font>		<FONT color=#B22222>.Mask</font> = <FONT color=#B22222>True</font>
	<FONT color=#B22222>.Mask</font> = <FONT color=#B22222>True</font>		.Show()
	.Show		End With
	End With

	'''End'''		'''End'''

Vuott il 10:17, 28 set 2013

2013-09-28T10:17:50Z

← Versione meno recente		Versione delle 04:17, 28 set 2013
Riga 1:		Riga 1:
	Poiché l'oggetto ''Form'' appartiene alla categoria dell'oggetto ''Window'', è possibile creare un ''Form'' autonomo semplicemente dichiarando ed istanziando un oggetto ''Window'' per mezzo di una variabile di tipo ''Window'', con la quale sarà anche gestito.		Poiché l'oggetto ''Form'' appartiene alla categoria dell'oggetto ''Window'', è possibile creare un ''Form'' autonomo semplicemente dichiarando ed istanziando un oggetto ''Window'' per mezzo di una variabile di tipo ''Window'', con la quale sarà anche gestito.

	Detti ''Form'' creati mediante la ~~Clase~~ ''Window'' potranno contenere regolarmente degli oggetti.		Detti ''Form'' creati mediante la Classe ''Window'' potranno contenere regolarmente degli oggetti.


Riga 15:		Riga 15:
	For j = 0 To 4		For j = 0 To 4

	<FONT color=~~#006400~~>' ''Creiamo un nuovo "Form":''</font>		<FONT color=gray>' ''Creiamo un nuovo "Form":''</font>
	With w = New <FONT color=#B22222>Window</font> As "w"		With w = New <FONT color=#B22222>Window</font> As "w"
	.W = 300		.W = 300
Riga 21:		Riga 21:
	.Caption = "num. " & CStr(j)		.Caption = "num. " & CStr(j)
	.Background = &111111 * (j + 1000)		.Background = &111111 * (j + 1000)
			<FONT color=gray>' ''Per far mostrare la finestra, è assolutamente necessario chiamare la sua funzione ".Show":''</font>
	.Show		.Show
	End With		End With

	<FONT color=~~#006400~~>' ''Poniamo su ciascun nuovo "Form" un "Button":''</font>		<FONT color=gray>' ''Poniamo su ciascun nuovo "Form" un "Button":''</font>
	creaTasto()		creaTasto()

Riga 34:		Riga 35:
	'''Public''' Sub w_Open()		'''Public''' Sub w_Open()

	<FONT color=~~#006400~~>' ''Per ogni nuovo "From" creato, che si apre,''		<FONT color=gray>' ''Per ogni nuovo "From" creato, che si apre,''
	' ''ne vediamo in console il nome:''</font>		' ''ne vediamo in console il nome:''</font>
	Print w.Caption		Print w.Caption
Riga 55:		Riga 56:


	'''Public''' Sub bt_Click() <FONT color=~~#006400~~>' ''I "Button" presenti sui nuovi "Form" sono regolarmente funzionanti''</font>		'''Public''' Sub bt_Click() <FONT color=gray>' ''I "Button" presenti sui nuovi "Form" sono regolarmente funzionanti''</font>

	Print "Premuto " & Last.Text		Print "Premuto " & Last.Text
Riga 61:		Riga 62:
	Wait 2		Wait 2

	<FONT color=~~#006400~~>' ''Chiudiamo il "Form", individuandolo come "Parent", del "Button" cliccato:''</font>		<FONT color=gray>' ''Chiudiamo il "Form", individuandolo come "Parent", del "Button" cliccato:''</font>
	Last.Parent.Close		Last.Parent.Close

Riga 82:		Riga 83:
	.H = 300		.H = 300
	.Border = Border.None		.Border = Border.None
	<FONT color=~~#006400~~>' ''Carichiamo nell'oggetto di tipo "Window" un'immagine semitrasparente,''		<FONT color=gray>' ''Carichiamo nell'oggetto di tipo "Window" un'immagine semitrasparente,''
	' ''avente ovviamente una parte d'immagine visibile:</font>		' ''avente ovviamente una parte d'immagine visibile:</font>
	.Picture = Picture.Load("''percorso_file_immagine.png''")		.Picture = Picture.Load("''percorso_file_immagine.png''")
	<FONT color=~~#006400~~>' ''Impostiamo la proprietà ".Mask" dell'oggetto di tipo "Window" a "True":</font>		<FONT color=gray>' ''Impostiamo la proprietà ".Mask" dell'oggetto di tipo "Window" a "True":</font>
	<FONT color=#B22222>.Mask</font> = <FONT color=#B22222>True</font>		<FONT color=#B22222>.Mask</font> = <FONT color=#B22222>True</font>
	.Show		.Show

Vuott il 23:45, 6 mar 2013

2013-03-06T23:45:47Z

← Versione meno recente		Versione delle 17:45, 6 mar 2013
Riga 68:		Riga 68:

	==Semitrasparenza di un ''Form'' creato con la Classe ''Window==		==Semitrasparenza di un ''Form'' creato con la Classe ''Window==
	E' possibile applicare la ''semitrasparenza'' anche ad un ''Form'', generato con la Classe ''Window'', (e più in generale la si può applicare ad un oggetto di tipo ''Window'') mediante la ~~modalità~~ [[Semitrasparenza_di_un_Form\|modalità prevista per la specifica Classe ''Form'']].		E' possibile applicare la ''semitrasparenza'' anche ad un ''Form'', generato con la Classe ''Window'', (e più in generale la si può applicare ad un oggetto di tipo ''Window'') mediante la medesima [[Semitrasparenza_di_un_Form\|modalità prevista per la specifica Classe ''Form'']].

	Di seguito un semplice esempio:		Di seguito un semplice esempio:

Vuott il 23:44, 6 mar 2013

2013-03-06T23:44:25Z

← Versione meno recente		Versione delle 17:44, 6 mar 2013
Riga 64:		Riga 64:
	Last.Parent.Close		Last.Parent.Close

			'''End'''


			==Semitrasparenza di un ''Form'' creato con la Classe ''Window==
			E' possibile applicare la ''semitrasparenza'' anche ad un ''Form'', generato con la Classe ''Window'', (e più in generale la si può applicare ad un oggetto di tipo ''Window'') mediante la modalità [[Semitrasparenza_di_un_Form\|modalità prevista per la specifica Classe ''Form'']].

			Di seguito un semplice esempio:
			'''Private''' w As Window


			'''Public''' Sub Button1_Click()

			With w = New Window
			.X = Mouse.ScreenX
			.Y = Mouse.ScreenY
			.W = 300
			.H = 300
			.Border = Border.None
			<FONT color=#006400>' ''Carichiamo nell'oggetto di tipo "Window" un'immagine semitrasparente,''
			' ''avente ovviamente una parte d'immagine visibile:</font>
			.Picture = Picture.Load("''percorso_file_immagine.png''")
			<FONT color=#006400>' ''Impostiamo la proprietà ".Mask" dell'oggetto di tipo "Window" a "True":</font>
			<FONT color=#B22222>.Mask</font> = <FONT color=#B22222>True</font>
			.Show
			End With

	'''End'''		'''End'''

Vuott il 15:42, 12 feb 2013

2013-02-12T15:42:44Z

← Versione meno recente		Versione delle 09:42, 12 feb 2013
Riga 58:		Riga 58:

	Print "Premuto " & Last.Text		Print "Premuto " & Last.Text

			Wait 2

			<FONT color=#006400>' ''Chiudiamo il "Form", individuandolo come "Parent", del "Button" cliccato:''</font>
			Last.Parent.Close

	'''End'''		'''End'''

Vuott il 14:49, 12 feb 2013

2013-02-12T14:49:43Z

← Versione meno recente		Versione delle 08:49, 12 feb 2013
Riga 5:		Riga 5:

	Nel seguente esempio creeremo diversi ''Form'' mediante la Classe ''Window'':		Nel seguente esempio creeremo diversi ''Form'' mediante la Classe ''Window'':
	'''Private''' w As Window		'''Private''' w As <FONT color=#B22222>Window</font>
	'''Private''' bt As Button		'''Private''' bt As Button

Riga 16:		Riga 16:

	<FONT color=#006400>' ''Creiamo un nuovo "Form":''</font>		<FONT color=#006400>' ''Creiamo un nuovo "Form":''</font>
	With w = New Window As "w"		With w = New <FONT color=#B22222>Window</font> As "w"
	.W = 300		.W = 300
	.H = 200		.H = 200
Riga 43:		Riga 43:
	'''Public''' Sub creaTasto()		'''Public''' Sub creaTasto()

	With bt = New Button(w) As "bt"		With bt = New Button(<FONT color=#B22222>w</font>) As "bt"
	.X = 20		.X = 20
	.Y = 20		.Y = 20

Vuott il 13:40, 12 feb 2013

2013-02-12T13:40:21Z

← Versione meno recente		Versione delle 07:40, 12 feb 2013
Riga 1:		Riga 1:
	Poiché l'oggetto ''Form'' appartiene alla categoria dell'oggetto ''Window'', è possibile ~~pertanto~~ creare un ''Form'' autonomo dichiarando ed istanziando un oggetto ''Window'' per mezzo di una variabile di tipo ''Window'', con la quale sarà anche gestito.		Poiché l'oggetto ''Form'' appartiene alla categoria dell'oggetto ''Window'', è possibile creare un ''Form'' autonomo semplicemente dichiarando ed istanziando un oggetto ''Window'' per mezzo di una variabile di tipo ''Window'', con la quale sarà anche gestito.

	Detti ''Form'' creati mediante la Clase ''Window'' potranno contenere regolarmente degli oggetti.		Detti ''Form'' creati mediante la Clase ''Window'' potranno contenere regolarmente degli oggetti.
Riga 14:		Riga 14:

	For j = 0 To 4		For j = 0 To 4

			<FONT color=#006400>' ''Creiamo un nuovo "Form":''</font>
	With w = New Window As "w"		With w = New Window As "w"
	.W = 300		.W = 300

Vuott il 13:38, 12 feb 2013

2013-02-12T13:38:47Z

← Versione meno recente		Versione delle 07:38, 12 feb 2013
Riga 22:		Riga 22:
	.Show		.Show
	End With		End With

	<FONT color=#006400>' ''Poniamo su ciascun nuovo "Form" un "Button":''</font>		<FONT color=#006400>' ''Poniamo su ciascun nuovo "Form" un "Button":''</font>
	creaTasto()		creaTasto()

Vuott il 13:38, 12 feb 2013

2013-02-12T13:38:32Z

← Versione meno recente		Versione delle 07:38, 12 feb 2013
Riga 1:		Riga 1:
	Poiché l'oggetto ''Form'' appartiene alla categoria dell'oggetto ''Window'', è possibile pertanto creare un ''Form'' autonomo dichiarando ed istanziando un oggetto ''Window'' per mezzo di una variabile di tipo ''Window'', con la quale sarà anche gestito.		Poiché l'oggetto ''Form'' appartiene alla categoria dell'oggetto ''Window'', è possibile pertanto creare un ''Form'' autonomo dichiarando ed istanziando un oggetto ''Window'' per mezzo di una variabile di tipo ''Window'', con la quale sarà anche gestito.

			Detti ''Form'' creati mediante la Clase ''Window'' potranno contenere regolarmente degli oggetti.

	~~Poniamo l'~~esempio ~~che in un applicativo intendiamo creare un secondo~~ ''Form''~~, secondario rispetto al principale,~~ mediante la Classe ''Window''. Creeremo innanzitutto una nuova classe prima di ''Form'' (che per il nostro esempio chiameremo ''ClassWin.class''). Nella Classe principale porremo ovviamente una funzione che richiamerà la predetta classe secondaria ''ClassWin.class'', nella quale porremo semplicemente un codice ad esempio simile al seguente:
			Nel seguente esempio creeremo diversi ''Form'' mediante la Classe ''Window'':
	'''Private''' w As Window		'''Private''' w As Window
			'''Private''' bt As Button


			'''Public''' Sub Button1_Click()

			Dim j As Byte

	'''~~Public~~''~~' Sub mostraFormWindow~~() ~~as "finestra"~~		For j = 0 To 4

			With w = New Window As "w"
			.W = 300
			.H = 200
			.Caption = "num. " & CStr(j)
			.Background = &111111 * (j + 1000)
			.Show
			End With

			<FONT color=#006400>' ''Poniamo su ciascun nuovo "Form" un "Button":''</font>
			creaTasto()

	With w = New ~~Window~~		Next
	.X = ~~100~~
	.Y = ~~100~~		'''End'''
	.W = ~~200~~
	.H = ~~150~~
			'''Public''' Sub w_Open()

			<FONT color=#006400>' ''Per ogni nuovo "From" creato, che si apre,''
			' ''ne vediamo in console il nome:''</font>
			Print w.Caption

			'''End'''


			'''Public''' Sub creaTasto()

			With bt = New Button(w) As "bt"
			.X = 20
			.Y = 20
			.W = 100
			.H = 40
	.Background = Color.Yellow		.Background = Color.Yellow
	.~~Show~~		.Text = "Tasto " & w.Caption
	End With		End With

	'''End'''		'''End'''


	'''Public''' Sub ~~finestra_MouseDown~~()		'''Public''' Sub bt_Click() <FONT color=#006400>' ''I "Button" presenti sui nuovi "Form" sono regolarmente funzionanti''</font>

	Print "~~Hai cliccato sulla Finestra !~~"		Print "Premuto " & Last.Text

	'''End'''		'''End'''