[VB6] Elenco valori possibili di un parametro di una fuzione

[Luciano79]

Ciao a tutti,
ho una dll che mi sono costruito con gli anni contenente metodi che uso in maniera ricorrente, in modo da non dover riscrivere le stesse procedure in vari programmi. Ora ho l'esigenza di scrivere una funzione che riceva in input un parametro di tipo String. Ad ogni valore di tipo String deve corrispondere un intero. Devo fare in modo che quando scrivo un programma e richiamo questa funzione della dll mi venga proposto l'elenco di tutti i valori possibili del parametro.
Per fare un esempio banale: quando scrivo "Var=MsgBox("CIAO",...) mi compare un elenco a tendina contentente VbOk, VbNo, VbYesNo...
Ho cercato su internet, ma con scarsi risultati...

Grazie in anticipo!!!

[gibra]

Devi crearti un enumerazione pubblica:

Public Enum eTipo
    eTipo_PRIMO = 1
    eTipo_SECONDO=2
End Enum

Nella funzione poi assegna il parametro l'enumeratore eTipo

Public Sub Test (ByVal param as eTipo)

[cepu96]

Quoto Gibra

[Luciano79]

Perfetto, grazie!

[gibra]

Dimenticavo un piccolo suggerimento.

Siccome i valori enumerati sono sì delle costanti, ma purtroppo se uno le scrive 'direttamente' nel codice (invece che selezionarle dall'elenco) possono anche non rispettare il 'case', ovvero le si può scrivere in minuscolo, maiuscolo o misto ad esempio:

eTipo_Primo invece di eTipo_PRIMO.
L'IDE di VB6 non corregge il 'case' (come ci si aspetta).

Si può evitare questo utilizzando le opzioni di compilazione condizionale, ovvero:

#If False Then
    Public eTipo_PRIMO
    Public eTipo_SECONDO
#End If

Public Enum eTipo
    eTipo_PRIMO = 1
    eTipo_SECONDO=2
End Enum

Così, in qualsiasi modo si digitino i valori enumerati, l'IDE riporterà al 'case' originale.