Metodo di pseudo indirizzamento ad Oggetti grafici - Cronologia

Picavbg il 20:29, 5 set 2013

2013-09-05T20:29:04Z

← Versione meno recente		Versione delle 14:29, 5 set 2013
Riga 7:		Riga 7:


	Immagianiamo una data Form contenente due GridView di cui una di esse, la prima o la seconda, non importa quale, è stata caricata con valori diversi in più righe. L'altra Gridview può essere vuota o pure parzialmente riempita. Lo scopo è quello di trasferire, tramite doppio click su ciascuna riga, il contenuto di tutte le caselle, colonna dopo colonna, da una GridView all'altra. Col trasferimento si vuole ottenere infatti una diversa ridistribuzione dei dati presenti nelle GridView, in funzione delle necessità operative dell'utente.		Immagianiamo una data Form contenente due GridView di cui una di esse, la prima o la seconda, non importa quale, sia stata caricata con valori diversi in più righe. L'altra Gridview può essere vuota o pure parzialmente riempita. Lo scopo è quello di trasferire, tramite doppio click su ciascuna riga, il contenuto di tutte le caselle, colonna dopo colonna, da una GridView all'altra. Col trasferimento si vuole ottenere infatti una diversa ridistribuzione dei dati presenti nelle GridView, in funzione delle necessità operative dell'utente.

	In Gambas non è possibile puntare all'indirizzo di un oggetto. Esiste però la possibilità di creare una nuova istanza, copiando il contenuto delle due GridView in un array da gestire con appropriati indici.		In Gambas non è possibile puntare all'indirizzo di un oggetto. Esiste però la possibilità di creare una nuova istanza, copiando il contenuto delle due GridView in un array da gestire con appropriati indici.
Riga 25:		Riga 25:
	3) Nelle procedure evento _DblClick delle due GridView basta richiamare un'unica procedura Sub o Function, destinata a contenere le istruzioni di trattamento del testo della riga, selezionata di volta in volta:		3) Nelle procedure evento _DblClick delle due GridView basta richiamare un'unica procedura Sub o Function, destinata a contenere le istruzioni di trattamento del testo della riga, selezionata di volta in volta:
	'''Public''' Sub GridView1_DblClick()		'''Public''' Sub GridView1_DblClick()
	GriViewComu_DblClick		GriViewComu_DblClick
	'''End'''		'''End'''

	'''Public''' Sub GridView2_DblClick()		'''Public''' Sub GridView2_DblClick()
	GriViewComu_DblClick		GriViewComu_DblClick
	'''End'''		'''End'''

Riga 38:		Riga 38:
	Dim iInd2 As Integer		Dim iInd2 As Integer

	oGridView1 = New Object[ ]		oGridView1 = New Object[ ]
	oGridView2 = New Object[ ]		oGridView2 = New Object[ ]
	If Last.Name = "GridView1" Then		If Last.Name = "GridView1" Then
	oGridView1.Add(GridView1) 'GridView di partenza		oGridView1.Add(GridView1) 'GridView di partenza
	oGridView2.Add(GridView2) 'GridView di arrivo		oGridView2.Add(GridView2) 'GridView di arrivo
	Else		Else
	oGridView1.Add(GridView2) 'nuova GridView di partenza		oGridView1.Add(GridView2) 'nuova GridView di partenza
	oGridView2.Add(GridView1) 'nuova GridView di arrivo		oGridView2.Add(GridView1) 'nuova GridView di arrivo
	~~Endif~~
	~~For Each oIndGridView1 In oGridView1~~
	~~Next~~
	~~For Each oIndGridView2 In oGridView2 │~~
	~~Next~~
	~~iInd1 = oIndGridView1.Row~~
	~~For iInd2 = 0 To oIndGridView2.Rows.count – 1~~
	~~If oIndGridView2[iInd2, 0].Text <> "" Then~~
	~~oIndGridView2[iInd2, 0].Text = oIndGridView1[iInd1, 0].Text~~
	~~oIndGridView2[iInd2, 1].Text = oIndGridView1[iInd1, 1].Text~~
	~~oIndGridView2[iInd2, n].Text = oIndGridView1[iInd1, n].Text (n = numero di colonne – 1 delle GridView di partenza e d'arrivo)~~
	~~oIndGridView1[iInd1, 0].Text = “”~~
	~~oIndGridView1[iInd1, 1].Text = “”~~
	~~oIndGridView1[iInd1, n].Text = “”~~
	Endif		Endif
	Next		For Each oIndGridView1 In oGridView1
			Next
			For Each oIndGridView2 In oGridView2 │
			Next
			iInd1 = oIndGridView1.Row
			For iInd2 = 0 To oIndGridView2.Rows.count – 1
			If oIndGridView2[iInd2, 0].Text <> "" Then
			oIndGridView2[iInd2, 0].Text = oIndGridView1[iInd1, 0].Text
			oIndGridView2[iInd2, 1].Text = oIndGridView1[iInd1, 1].Text
			oIndGridView2[iInd2, n].Text = oIndGridView1[iInd1, n].Text (n = numero di colonne – 1 delle GridView di partenza e d'arrivo)
			oIndGridView1[iInd1, 0].Text = “”
			oIndGridView1[iInd1, 1].Text = “”
			oIndGridView1[iInd1, n].Text = “”
			Endif
			Next
	'''End'''		'''End'''

	L'effetto operativo di quanto scritto sopra è dipendente dall'azione operativa dell'utente che eseguendo il doppio click sulla riga di pertinenza da spostare, per Es. della GridView1 permette la schedulazione dell'evento GridView1_DblClick dentro il quale l'istruzione GriViewComu_DblClick non fa altro che richiamare la procedura GriViewComu_DblClick che si occuperà dello spostamento fisico dei valori di tutta lariga dalla GridView1 alla GridView2. ~~La stessa~~ effetto, in senso opposto avverrà eseguendo il doppio click su una riga valorizzata della GridView2.		L'effetto operativo di quanto scritto sopra è dipendente dall'azione operativa dell'utente che eseguendo il doppio click sulla riga di pertinenza da spostare, per Es. della GridView1 permette la schedulazione dell'evento GridView1_DblClick dentro il quale l'istruzione GriViewComu_DblClick non fa altro che richiamare la procedura GriViewComu_DblClick che si occuperà dello spostamento fisico dei valori di tutta lariga dalla GridView1 alla GridView2. Lo stesso effetto, in senso opposto, avverrà eseguendo il doppio click su una riga valorizzata della GridView2.

79.42.172.237 il 08:03, 12 feb 2013

2013-02-12T08:03:51Z

← Versione meno recente		Versione delle 02:03, 12 feb 2013
Riga 34:		Riga 34:

	4) La procedura comune potrebbe essere:		4) La procedura comune potrebbe essere:
	'''Private''' Sub ~~GriMovDblClick_Comu~~()		'''Private''' Sub GriViewComu_DblClick()
	Dim iInd1 As Integer		Dim iInd1 As Integer
	Dim iInd2 As Integer		Dim iInd2 As Integer

Picavbg il 21:13, 11 feb 2013

2013-02-11T21:13:01Z

← Versione meno recente		Versione delle 15:13, 11 feb 2013
Riga 34:		Riga 34:

	4) La procedura comune potrebbe essere:		4) La procedura comune potrebbe essere:
	Private Sub GriMovDblClick_Comu()		'''Private''' Sub GriMovDblClick_Comu()
	Dim iInd1 As Integer		Dim iInd1 As Integer
	Dim iInd2 As Integer		Dim iInd2 As Integer
Riga 63:		Riga 63:
	Next		Next
	'''End'''		'''End'''

	L'effetto operativo di quanto scritto sopra è dipendente dall'azione operativa dell'utente che eseguendo il doppio click sulla riga di pertinenza da spostare, per Es. della GridView1 permette la schedulazione dell'evento GridView1_DblClick dentro il quale l'istruzione GriViewComu_DblClick non fa altro che richiamare la procedura GriViewComu_DblClick che si occuperà dello spostamento fisico dei valori di tutta lariga dalla GridView1 alla GridView2. La stessa effetto, in senso opposto avverrà eseguendo il doppio click su una riga valorizzata della GridView2.		L'effetto operativo di quanto scritto sopra è dipendente dall'azione operativa dell'utente che eseguendo il doppio click sulla riga di pertinenza da spostare, per Es. della GridView1 permette la schedulazione dell'evento GridView1_DblClick dentro il quale l'istruzione GriViewComu_DblClick non fa altro che richiamare la procedura GriViewComu_DblClick che si occuperà dello spostamento fisico dei valori di tutta lariga dalla GridView1 alla GridView2. La stessa effetto, in senso opposto avverrà eseguendo il doppio click su una riga valorizzata della GridView2.

Picavbg il 21:12, 11 feb 2013

2013-02-11T21:12:15Z

← Versione meno recente		Versione delle 15:12, 11 feb 2013
Riga 33:		Riga 33:


	4) La procedura comune potrebbe essere: ~~<BR>~~		4) La procedura comune potrebbe essere:
			Private Sub GriMovDblClick_Comu()
			Dim iInd1 As Integer
			Dim iInd2 As Integer

	~~<CODE>Private Sub GriMovDblClick_Comu()~~		oGridView1 = New Object[ ]
	~~Dim iInd1 As Integer~~		oGridView2 = New Object[ ]
	~~Dim iInd2 As Integer~~		If Last.Name = "GridView1" Then

	oGridView1 = New Object[ ]
	oGridView2 = New Object[ ]
	If Last.Name = "GridView1" Then
	oGridView1.Add(GridView1) 'GridView di partenza		oGridView1.Add(GridView1) 'GridView di partenza
	oGridView2.Add(GridView2) 'GridView di arrivo		oGridView2.Add(GridView2) 'GridView di arrivo
	Else		Else
	oGridView1.Add(GridView2) 'nuova GridView di partenza		oGridView1.Add(GridView2) 'nuova GridView di partenza
	oGridView2.Add(GridView1) 'nuova GridView di arrivo		oGridView2.Add(GridView1) 'nuova GridView di arrivo
Riga 52:		Riga 51:
	For Each oIndGridView2 In oGridView2 │		For Each oIndGridView2 In oGridView2 │
	Next		Next
	iInd1 = oIndGridView1.Row		iInd1 = oIndGridView1.Row
	For iInd2 = 0 To oIndGridView2.Rows.count – 1		For iInd2 = 0 To oIndGridView2.Rows.count – 1
	If oIndGridView2[iInd2, 0].Text <> "" Then		If oIndGridView2[iInd2, 0].Text <> "" Then
	oIndGridView2[iInd2, 0].Text = oIndGridView1[iInd1, 0].Text		oIndGridView2[iInd2, 0].Text = oIndGridView1[iInd1, 0].Text
	oIndGridView2[iInd2, 1].Text = oIndGridView1[iInd1, 1].Text		oIndGridView2[iInd2, 1].Text = oIndGridView1[iInd1, 1].Text
	oIndGridView2[iInd2, n].Text = oIndGridView1[iInd1, n].Text (n = numero di colonne – 1 delle GridView di partenza e d'arrivo)		oIndGridView2[iInd2, n].Text = oIndGridView1[iInd1, n].Text (n = numero di colonne – 1 delle GridView di partenza e d'arrivo)
	oIndGridView1[iInd1, 0].Text = “”		oIndGridView1[iInd1, 0].Text = “”
	oIndGridView1[iInd1, 1].Text = “”		oIndGridView1[iInd1, 1].Text = “”
	oIndGridView1[iInd1, n].Text = “”		oIndGridView1[iInd1, n].Text = “”
	~~·Endif~~		Endif
	· Next		Next
	End		'''End'''
	~~</CODE>~~

	L'effetto operativo di quanto scritto sopra è dipendente dall'azione operativa dell'utente che eseguendo il doppio click sulla riga di pertinenza da spostare, per Es. della GridView1 permette la schedulazione dell'evento GridView1_DblClick dentro il quale l'istruzione GriViewComu_DblClick non fa altro che richiamare la procedura GriViewComu_DblClick che si occuperà dello spostamento fisico dei valori di tutta lariga dalla GridView1 alla GridView2. La stessa effetto, in senso opposto avverrà eseguendo il doppio click su una riga valorizzata della GridView2.		L'effetto operativo di quanto scritto sopra è dipendente dall'azione operativa dell'utente che eseguendo il doppio click sulla riga di pertinenza da spostare, per Es. della GridView1 permette la schedulazione dell'evento GridView1_DblClick dentro il quale l'istruzione GriViewComu_DblClick non fa altro che richiamare la procedura GriViewComu_DblClick che si occuperà dello spostamento fisico dei valori di tutta lariga dalla GridView1 alla GridView2. La stessa effetto, in senso opposto avverrà eseguendo il doppio click su una riga valorizzata della GridView2.

Picavbg il 21:09, 11 feb 2013

2013-02-11T21:09:42Z

← Versione meno recente		Versione delle 15:09, 11 feb 2013
Riga 25:		Riga 25:
	3) Nelle procedure evento _DblClick delle due GridView basta richiamare un'unica procedura Sub o Function, destinata a contenere le istruzioni di trattamento del testo della riga, selezionata di volta in volta:		3) Nelle procedure evento _DblClick delle due GridView basta richiamare un'unica procedura Sub o Function, destinata a contenere le istruzioni di trattamento del testo della riga, selezionata di volta in volta:
	'''Public''' Sub GridView1_DblClick()		'''Public''' Sub GridView1_DblClick()
	GriViewComu_DblClick ~~<BR>~~		GriViewComu_DblClick
	'''End'''		'''End'''

	'''Public''' Sub GridView2_DblClick() ~~<BR>~~		'''Public''' Sub GridView2_DblClick()
	GriViewComu_DblClick ~~<BR>~~		GriViewComu_DblClick
	'''End'''		'''End'''

Picavbg il 21:08, 11 feb 2013

2013-02-11T21:08:45Z

← Versione meno recente		Versione delle 15:08, 11 feb 2013
Riga 16:		Riga 16:
	Private oGridView1 As Object[ ]		Private oGridView1 As Object[ ]
	Private oGridView2 As Object[ ]		Private oGridView2 As Object[ ]


	2) gli oggetti indice che serviranno successivamente per indirizzare il puntamento alle righe delle due GridView:		2) gli oggetti indice che serviranno successivamente per indirizzare il puntamento alle righe delle due GridView:
Riga 21:		Riga 22:
	Private oInd2 As Object		Private oInd2 As Object

	3) Nelle procedure evento _DblClick delle due GridView basta richiamare un'unica procedura Sub o Function, destinata a contenere le istruzioni di trattamento del testo della riga, selezionata di volta in volta: <BR>
			3) Nelle procedure evento _DblClick delle due GridView basta richiamare un'unica procedura Sub o Function, destinata a contenere le istruzioni di trattamento del testo della riga, selezionata di volta in volta:
			'''Public''' Sub GridView1_DblClick()
			GriViewComu_DblClick <BR>
			'''End'''

	~~<CODE>~~		'''Public''' Sub GridView2_DblClick() <BR>
	Public Sub ~~GridView1_DblClick~~() <BR>		GriViewComu_DblClick <BR>
	GriViewComu_DblClick <BR>		'''End'''
	End

	~~Public Sub GridView2_DblClick() <BR>~~
	~~GriViewComu_DblClick <BR>~~
	~~End~~
	~~</CODE>~~

	4) La procedura comune potrebbe essere: <BR>		4) La procedura comune potrebbe essere: <BR>

Picavbg il 21:06, 11 feb 2013

2013-02-11T21:06:52Z

← Versione meno recente		Versione delle 15:06, 11 feb 2013
Riga 14:		Riga 14:
	Dopo avere nominate le due GridView:Es. GridView1 e Gridview2, si passa a scrivere:<BR>		Dopo avere nominate le due GridView:Es. GridView1 e Gridview2, si passa a scrivere:<BR>
	1) nella sezione Dichirazioni della Form.Class relativa la dichiarazione degli oggetti costituenti la nuova istanza delle due GridView:		1) nella sezione Dichirazioni della Form.Class relativa la dichiarazione degli oggetti costituenti la nuova istanza delle due GridView:
	~~'''~~Private~~'''~~ oGridView1 As Object[ ]		Private oGridView1 As Object[ ]
	~~'''~~Private~~'''~~ oGridView2 As Object[ ]		Private oGridView2 As Object[ ]


	2) gli oggetti indice che serviranno successivamente per indirizzare il puntamento alle righe delle due GridView:		2) gli oggetti indice che serviranno successivamente per indirizzare il puntamento alle righe delle due GridView:
	Private oInd1 As Object		Private oInd1 As Object
	Private oInd2 As Object		Private oInd2 As Object

	3) Nelle procedure evento _DblClick delle due GridView basta richiamare un'unica procedura Sub o Function, destinata a contenere le istruzioni di trattamento del testo della riga, selezionata di volta in volta: <BR>		3) Nelle procedure evento _DblClick delle due GridView basta richiamare un'unica procedura Sub o Function, destinata a contenere le istruzioni di trattamento del testo della riga, selezionata di volta in volta: <BR>

Picavbg il 21:05, 11 feb 2013

2013-02-11T21:05:13Z

← Versione meno recente		Versione delle 15:05, 11 feb 2013
Riga 19:		Riga 19:

	2) gli oggetti indice che serviranno successivamente per indirizzare il puntamento alle righe delle due GridView:		2) gli oggetti indice che serviranno successivamente per indirizzare il puntamento alle righe delle due GridView:
			Private oInd1 As Object
	Private oInd1 As Object ~~<BR>~~		Private oInd2 As Object
	Private oInd2 As Object

	3) Nelle procedure evento _DblClick delle due GridView basta richiamare un'unica procedura Sub o Function, destinata a contenere le istruzioni di trattamento del testo della riga, selezionata di volta in volta: <BR>		3) Nelle procedure evento _DblClick delle due GridView basta richiamare un'unica procedura Sub o Function, destinata a contenere le istruzioni di trattamento del testo della riga, selezionata di volta in volta: <BR>

Picavbg il 21:03, 11 feb 2013

2013-02-11T21:03:56Z

← Versione meno recente		Versione delle 15:03, 11 feb 2013
Riga 14:		Riga 14:
	Dopo avere nominate le due GridView:Es. GridView1 e Gridview2, si passa a scrivere:<BR>		Dopo avere nominate le due GridView:Es. GridView1 e Gridview2, si passa a scrivere:<BR>
	1) nella sezione Dichirazioni della Form.Class relativa la dichiarazione degli oggetti costituenti la nuova istanza delle due GridView:		1) nella sezione Dichirazioni della Form.Class relativa la dichiarazione degli oggetti costituenti la nuova istanza delle due GridView:
	'''Private oGridView1 As Object[ ]		'''Private''' oGridView1 As Object[ ]
	Private oGridView2 As Object[ ]		'''Private''' oGridView2 As Object[ ]
	~~'''~~

	2) gli oggetti indice che serviranno successivamente per indirizzare il puntamento alle righe delle due GridView:		2) gli oggetti indice che serviranno successivamente per indirizzare il puntamento alle righe delle due GridView:

Picavbg il 21:01, 11 feb 2013

2013-02-11T21:01:52Z

← Versione meno recente		Versione delle 15:01, 11 feb 2013
Riga 15:		Riga 15:
	1) nella sezione Dichirazioni della Form.Class relativa la dichiarazione degli oggetti costituenti la nuova istanza delle due GridView:		1) nella sezione Dichirazioni della Form.Class relativa la dichiarazione degli oggetti costituenti la nuova istanza delle due GridView:
	'''Private oGridView1 As Object[ ]		'''Private oGridView1 As Object[ ]
	Private oGridView2 As Object[ ] '''		Private oGridView2 As Object[ ]
			'''

	2) gli oggetti indice che serviranno successivamente per indirizzare il puntamento alle righe delle due GridView:		2) gli oggetti indice che serviranno successivamente per indirizzare il puntamento alle righe delle due GridView: