Verificare l´esistenza di un oggetto - Cronologia

Vuott: Redirect alla pagina Verificare l'esistenza di un oggetto

2020-09-06T14:32:25Z

Redirect alla pagina Verificare l'esistenza di un oggetto

← Versione meno recente		Versione delle 08:32, 6 set 2020
Riga 1:		Riga 1:
	~~Analizzeremo il caso in cui si debba verificare l'esistenza di un oggetto su un ''Form'', e l'esistenza di un oggetto a sé stante privo di ''genitore''.~~		#REDIRECT [[Verificare_l'esistenza_di_un_oggetto]]


	~~=Verifica sul form principale=~~

	~~Per verificare l'esistenza di oggetto su un ''Form'', possiamo adottare almeno tre modalità:~~


	~~====1<SUP>a</sup> modalità====~~
	~~'''Public''' Sub Button1_Click()~~

	~~If Object.IsValid(FMain~~[~~"<FONT color=gray>~~'~~'Variabile_dell'oggetto''</font>"~~]~~) Then~~
	~~Print "L'oggetto è presente nel Form !"~~
	~~Endif~~

	~~'''End'''~~


	~~====2<SUP>a</sup> modalità:====~~
	~~'''Public''' Sub Button1_Click()~~

	~~If IsNull(Me.Controls["<FONT color=gray>''Variabile_dell'oggetto''</font>"~~]~~) = False Then~~
	~~Print "L'oggetto è presente nel Form !"~~
	~~Endif~~

	~~'''End'''~~


	~~====3<SUP>a</sup> modalità:====~~
	~~'''Public''' Sub Button1_Click()~~

	~~Dim obj As Object~~

	~~For Each obj In FMain.Children~~
	~~If obj.Name = "<FONT color=gray>''Variabile_dell'oggetto''</font>" Then Print "L'oggetto è presente nel Form !"~~
	~~Next~~

	~~'''End'''~~



	~~=Verifica di un oggetto a sé stante senza ''genitore''=~~
	~~Poniamo il caso di un oggetto di tipo ''Window'' <SPAN style="text-decoration:underline">senza genitore</span>, creato ad esempio così:~~
	~~Private w As Window~~


	~~'''Public''' Sub Form_Open()~~

	~~With w = New Window As "w"~~
	~~.W = 100~~
	~~.H = 200~~
	~~.X = 300~~
	~~.Y = 300~~
	~~.Background = Color.Yellow~~
	~~.Show~~
	~~End With~~

	~~'''End'''~~

	~~Ne potremo verificare l'esistenza come segue:~~
	~~'''Public''' sub Button1_Click()~~

	~~<FONT color=gray>' ''All'interno della funzione "Object.IsValid()" verrà inserita la variabile''~~
	~~' ''del tipo dell'oggetto a sé stante, del quale cui si vuole verificare l'esistenza:''</font>~~
	~~If <FONT color=#B22222>Object.IsValid(w)</font> Then~~
	~~Print "Oggetto esistente !"~~
	~~Endif~~

	~~'''End'''~~

Vuott il 21:27, 12 apr 2016

2016-04-12T21:27:41Z

← Versione meno recente		Versione delle 15:27, 12 apr 2016
Riga 61:		Riga 61:
	'''Public''' sub Button1_Click()		'''Public''' sub Button1_Click()

	<FONT color=gray' ''All'interno della funzione "Object.IsValid()" verrà inserita la variabile''		<FONT color=gray>' ''All'interno della funzione "Object.IsValid()" verrà inserita la variabile''
	' ''del tipo dell'oggetto a sé stante, del quale cui si vuole verificare l'esistenza:''</font>		' ''del tipo dell'oggetto a sé stante, del quale cui si vuole verificare l'esistenza:''</font>
	If <FONT color=#B22222>Object.IsValid(w)</font> Then		If <FONT color=#B22222>Object.IsValid(w)</font> Then

Vuott il 21:26, 12 apr 2016

2016-04-12T21:26:05Z

← Versione meno recente		Versione delle 15:26, 12 apr 2016
Riga 1:		Riga 1:
	Analizzeremo il caso in cui si debba verificare l'esistenza di un oggetto su un ''Form'', e l'esistenza di un oggetto a sé stante ~~che non abbia~~ genitore.		Analizzeremo il caso in cui si debba verificare l'esistenza di un oggetto su un ''Form'', e l'esistenza di un oggetto a sé stante privo di ''genitore''.


	=Verifica sul form principale=		=Verifica sul form principale=

	Per verificare l'esistenza di oggetto su un ~~form~~, possiamo adottare tre modalità:		Per verificare l'esistenza di oggetto su un ''Form'', possiamo adottare almeno tre modalità:


Riga 10:		Riga 10:
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

	If Object.IsValid(FMain["~~Nome_dell~~'oggetto"]) Then		If Object.IsValid(FMain["<FONT color=gray>''Variabile_dell'oggetto''</font>"]) Then
			Print "L'oggetto è presente nel Form !"
	Print "L'oggetto è presente nel Form !"		Endif

	Endif

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

Riga 21:		Riga 19:
	====2<SUP>a</sup> modalità:====		====2<SUP>a</sup> modalità:====
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

	~~Print~~ IsNull(Me.Controls["~~Nome_dell~~'oggetto"])		If IsNull(Me.Controls["<FONT color=gray>''Variabile_dell'oggetto''</font>"]) = False Then
			Print "L'oggetto è presente nel Form !"
			Endif

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

Riga 33:		Riga 33:

	For Each obj In FMain.Children		For Each obj In FMain.Children
			If obj.Name = "<FONT color=gray>''Variabile_dell'oggetto''</font>" Then Print "L'oggetto è presente nel Form !"
	~~Print~~ obj.Name

	Next		Next

Riga 44:		Riga 42:
	=Verifica di un oggetto a sé stante senza ''genitore''=		=Verifica di un oggetto a sé stante senza ''genitore''=
	Poniamo il caso di un oggetto di tipo ''Window'' <SPAN style="text-decoration:underline">senza genitore</span>, creato ad esempio così:		Poniamo il caso di un oggetto di tipo ''Window'' <SPAN style="text-decoration:underline">senza genitore</span>, creato ad esempio così:
	~~'''~~Private~~'''~~ w As Window		Private w As Window


Riga 63:		Riga 61:
	'''Public''' sub Button1_Click()		'''Public''' sub Button1_Click()

	<FONT color=~~#006400>~~' ''All'interno della funzione "Object.IsValid()" verrà inserita la variabile		<FONT color=gray' ''All'interno della funzione "Object.IsValid()" verrà inserita la variabile''
	' ''del tipo dell'oggetto a sé stante, del quale cui si vuole verificare l'esistenza:''</font>		' ''del tipo dell'oggetto a sé stante, del quale cui si vuole verificare l'esistenza:''</font>
	If <FONT color=#B22222>Object.IsValid(w)</font> Then		If <FONT color=#B22222>Object.IsValid(w)</font> Then

Vuott il 22:43, 23 mar 2015

2015-03-23T22:43:14Z

← Versione meno recente		Versione delle 16:43, 23 mar 2015
Riga 37:		Riga 37:

	Next		Next

	~~'''End'''~~


	~~====4<SUP>a</sup> modalità====~~
	~~'''Public''' Sub Button1_Click()~~

	~~If Object.IsValid(FMain["nome_oggetto"]) Then~~

	~~Print "L'oggetto è presente nel Form !"~~

	~~Endif~~

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

Vuott il 16:07, 23 mar 2015

2015-03-23T16:07:29Z

← Versione meno recente		Versione delle 10:07, 23 mar 2015
Riga 7:		Riga 7:


	====1a modalità====		====1<SUP>a</sup> modalità====
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

Riga 19:		Riga 19:


	====2a modalità:====		====2<SUP>a</sup> modalità:====
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

Riga 27:		Riga 27:


	====3a modalità:====		====3<SUP>a</sup> modalità:====
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

Riga 41:		Riga 41:


			====4<SUP>a</sup> modalità====
	=~~Verifica su un form secondario~~=

	~~Se la verica dovrà essere compiuta su un form secondario, si potrà adottare il seguente algoritmo:~~

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

	If Object.IsValid(FMain~~.classeSecondaria.FormSecondario~~["nome_oggetto"]) Then		If Object.IsValid(FMain["nome_oggetto"]) Then

	Print "L'oggetto è presente nel Form ~~secondario~~ !"		Print "L'oggetto è presente nel Form !"

	Endif		Endif

Vuott il 17:56, 24 feb 2013

2013-02-24T17:56:00Z

← Versione meno recente		Versione delle 11:56, 24 feb 2013
Riga 58:		Riga 58:


	=Verifica di un oggetto a sé stante=		=Verifica di un oggetto a sé stante senza ''genitore''=
	Poniamo il caso di un oggetto di tipo ''Window'' senza genitore creato ad esempio così:		Poniamo il caso di un oggetto di tipo ''Window'' <SPAN style="text-decoration:underline">senza genitore</span>, creato ad esempio così:
	'''Private''' w As Window		'''Private''' w As Window

Vuott: Nuova pagina: Analizzeremo il caso in cui si debba verificare l'esistenza di un oggetto su un ''Form'', e l'esistenza di un oggetto a sé stante che non abbia genitore. =Verifica sul form principa...

2013-02-20T01:14:16Z

Nuova pagina: Analizzeremo il caso in cui si debba verificare l'esistenza di un oggetto su un ''Form'', e l'esistenza di un oggetto a sé stante che non abbia genitore. =Verifica sul form principa...

Nuova pagina

Analizzeremo il caso in cui si debba verificare l'esistenza di un oggetto su un ''Form'', e l'esistenza di un oggetto a sé stante che non abbia genitore.

=Verifica sul form principale=

Per verificare l'esistenza di oggetto su un form, possiamo adottare tre modalità:

====1a modalità====
'''Public''' Sub Button1_Click()

If Object.IsValid(FMain["Nome_dell'oggetto"]) Then

Print "L'oggetto è presente nel Form !"

Endif

'''End'''

====2a modalità:====
'''Public''' Sub Button1_Click()

Print IsNull(Me.Controls["Nome_dell'oggetto"])

'''End'''

====3a modalità:====
'''Public''' Sub Button1_Click()

Dim obj As Object

For Each obj In FMain.Children

Print obj.Name

Next

'''End'''

=Verifica su un form secondario=

Se la verica dovrà essere compiuta su un form secondario, si potrà adottare il seguente algoritmo:

'''Public''' Sub Button1_Click()

If Object.IsValid(FMain.classeSecondaria.FormSecondario["nome_oggetto"]) Then

Print "L'oggetto è presente nel Form secondario !"

Endif

'''End'''

=Verifica di un oggetto a sé stante=
Poniamo il caso di un oggetto di tipo ''Window'' senza genitore creato ad esempio così:
'''Private''' w As Window

'''Public''' Sub Form_Open()

With w = New Window As "w"
.W = 100
.H = 200
.X = 300
.Y = 300
.Background = Color.Yellow
.Show
End With

'''End'''

Ne potremo verificare l'esistenza come segue:
'''Public''' sub Button1_Click()

<FONT color=#006400>' ''All'interno della funzione "Object.IsValid()" verrà inserita la variabile
' ''del tipo dell'oggetto a sé stante, del quale cui si vuole verificare l'esistenza:''</font>
If <FONT color=#B22222>Object.IsValid(w)</font> Then
Print "Oggetto esistente !"
Endif

'''End'''