[VB6] Passare un tipo definito dall'utente in una funzione

[Gammino]

In Module1:

Public Type myData
    Nome As String
    Cognome As String
End Type

In Form1:

Private Sub Command1_Click()
    Dim x As myData
    x = Form2.Nominativo
    MsgBox x.Cognome
End Sub

In Form2:

Public Function Nominativo() As myData
    Nominativo.Cognome = "Anderson"
    Nominativo.Nome = "Thomas"
End Function

In tre parole: PERCHE' NON FUNZA?

[iguana13]

E' un gran problema di vb questo! Cioè è sempre lì a rompere!!
Comunque, come dice il messaggio di errore,Non puoi mettere in una funzione PRIVATA un tipo def. dall'utente PUBBLICO.
Quindi penso che:
-O metti il codice in form2 in un modulo
-oppure lo dichiare come private, ma nn puoi accederci da form1.

[Gammino]

Originariamente inviato da iguana13
-oppure lo dichiare come private, ma nn puoi accederci da form1.

Speravo che non fosse così...

[tas]

Invece di definire il tipo myData com l'istruzione Type, prova a definire una classe:

'classe myData
Public Nome As String
Public Cognome As String

'in Form1
Private Sub Command1_Click()
   Dim x As myData

   Form2.Show
   Set x = Form2.Nominativo
   MsgBox x.Cognome
End Sub

'in Form2
Public Function Nominativo() As myData
   Dim md As New myData

   md.Cognome = "Anderson"
   md.Nome = "Pamela"

   Set Nominativo = md
End Function

[Gammino]

PORCA MISERIA! FANTASTICO!

E il bello è che ci avevo provato ad usare una classe, ma quando mi ha dato un errore ho pensato che fosse lo stesso problema del tipo utente...

GRANDE TAS! :mavieni:


Ehm... Cognome e Nome erano Thomas A. Anderson (Neo), non Pamela Anderson... :gren:

[Gammino]

Originariamente inviato da Gammino
non Pamela Anderson... :gren:

Ah, ho capito! E' la sorella, giusto? :gren: