Arthy67
New member
- Joined
- Dec 30, 2019
- Messages
- 3
- Programming Experience
- 1-3
hello everyone,
I've just signed up and I am a new user of Visual Basic 2019.
I am a VB6 & VBScript developer for many years, but now I have to evolve ... and obviously the trouble is starting!
Here is the first problem I don't understand how to solve.
Like explainded in the Subject, the error occurs by invoking:
	
	
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
where "gestore" is a my Class and the Function in particular is:
	
	
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
The "ArchivioEstrazioni" procedure is defined as follows:
	
	
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
where:
	
	
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
	
	
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
I have declared the Archive variable in a Module as Obect.
I hope I haven't forgotten anything ....
I await your precious comments ...
Thank you, Arturo.
	
		
			
		
		
	
				
			I've just signed up and I am a new user of Visual Basic 2019.
I am a VB6 & VBScript developer for many years, but now I have to evolve ... and obviously the trouble is starting!

Here is the first problem I don't understand how to solve.
Like explainded in the Subject, the error occurs by invoking:
			
				VB.NET:
			
		
		
		Archive = MDIPanel.Gestore.GetArchivewhere "gestore" is a my Class and the Function in particular is:
			
				VB.NET:
			
		
		
		Public Function Get Archive () As Object
Dim Archive (0 To NumeroTotaleEstrazioni, 0 To 10, 0 To 5) As Object
For i = 0 To NumeroTotaleEtrazioni
For j = 0 To 10
For k = 0 To 5
Archive (i, j, k) = Extraction Archive (i). Numbers (j, k)
Next k
Next j
Next i
GetArchivio = Archive
End FunctionThe "ArchivioEstrazioni" procedure is defined as follows:
			
				VB.NET:
			
		
		
		Public ArchivioEstrazioni () As TArchivioEstrazioniwhere:
			
				VB.NET:
			
		
		
		Public Structure TExtraction Archive
Dim Numbers (,) As Integer '0 To 10, 0 To 5
Dim DataEstrazione As TDataEstrazione
End Structure
			
				VB.NET:
			
		
		
		Public Structure TData Extraction
Dim Day As Byte
Dim Month As Byte
Dim Anno As Integer
Dim DayWeek As String
End StructureI have declared the Archive variable in a Module as Obect.
I hope I haven't forgotten anything ....
I await your precious comments ...
Thank you, Arturo.
 
	 
 
		 
 
		 
 
		 
 
		