[VB6] Esportare una Enum dal controllo OCX al suo contenitore

[Hell_Devil]

Ciao a tutti,

mi scuso in anticipo per il titolo un pò criptico, ma non sapevo come rendere l'idea del mio problema. Comunque rimedio subito spiegando meglio ciò che ho intenzione di fare.

Sto sviluppando un mio OCX per monitorare lo stato di un download, ed intercettare quattro possibili situazioni: se il download è in esecuzione, se è fallito, se è stato cancellato o se è stato completato.

Per far questo uso una Enum pubblica in UserControl1 e una funzione che legge lo status attuale del download come segue:

'Qui mi trovo in UserControl

Dim Status As Integer

Public Enum StatusCode
    Aborted = -1
    Failed = 0
    Completed = 1
    Executing = 2
End Enum

Public Function GetStatus () As Integer
    GetStatus = Status
End Sub

così posso richiamare la funzione GetStatus dal form che ospita il mio OCX. Ma quando cerco di fare

'Nel form

Private Sub Command1_Click()
     If UserControl.GetStatus = StatusCode.Completed Then 'Qui da errore perchè non trova l'enum
         '...codice...
     Else
         '...altro codice...
    End If
End Sub

Che posso fare quindi per poter sfruttare l'enum StatusCode anche nel form che ospita il mio OCX??

Grazie,

giovanni

[oregon]

Usa il nome del progetto dell'ocx, ad esempio

If UserControl.GetStatus = ProgettoOcx.StatusCode.Completed Then

...

Lo trovi se fai F2 ...

[Hell_Devil]

Grazie oregon, adesso provo e poi ti faccio sapere.