Salve, ho il seguente problema. Vi posto il codice:
1) La classe si chiama "MainClass.cls" e c'è questo codice:
2) Poi ho un form chiamato "FrmMain.frm" e dentro c'è:codice:Option Explicit Private fieldUser() As TipoDati Private Type TipoDati Type As String Desc As String Enabled As Boolean End Type Private Sub Class_Initialize() ReDim fieldUser(6) fieldUser(0).Type = "cod" fieldUser(0).Desc = "Codice" fieldUser(0).Enabled = False fieldUser(1).Type = "text" fieldUser(1).Desc = "Nome" fieldUser(1).Enabled = True fieldUser(2).Type = "text" fieldUser(2).Desc = "Cognome" fieldUser(2).Enabled = True fieldUser(3).Type = "date" fieldUser(3).Desc = "Data di nascita" fieldUser(3).Enabled = True fieldUser(4).Type = "num" fieldUser(4).Desc = "Età" fieldUser(4).Enabled = False fieldUser(5).Type = "text" fieldUser(5).Desc = "Sesso" fieldUser(5).Enabled = True fieldUser(6).Type = "text" fieldUser(6).Desc = "Comune di nascita" fieldUser(6).Enabled = True End Sub Property Get getFieldUser() As Variant getFieldUser = fieldUser End Property
Ecco appena esegue il codice:codice:Private mClass As MainClass Private Sub Form_Load() '// Richiama la classe principale Set mClass = New MainClass c = mClass.getFieldUser End Sub
c = mClass.getFieldUser
entra nella classe e nel metodo "getFieldUser()".
Appena ci entra VB6 va in debug e mi dice il seguente errore:
A questo punto non so che fare.Errore di compilazione:
Solo i tipi definiti dall'utente in moduli di oggetto pubblici possono essere assegnati a o da una variabile Variant oppure passati a funzioni per cui è prevista l'associazione tardiva.
Grazie per un eventuale aiuto![]()

Rispondi quotando