[VB6] Enumerazione testuale

[ale500]

salve a tutti, è ormai un po che lavoro con VB ma non ho mai capito una cosa, esiste un equivalente delle enumerazioni però di tipo testuale, senza dichiararmi un tipo e poi dargli dei valori....???

una cosa del tipo:

'invece di così
Public Const CONFIG_INI As String = "Config.ini"
Public Const APPOGGIO_INI As String = "Appoggio.ini"
Public Const VERIFICA_DB As String = "VerificaDB.mdb"

'fare unacosa del genere
public enum enFILE
 CONFIG_INI = "Config.ini"
 APPOGGIO_INI = "Appoggio.ini"
 VERIFICA_DB = "VerificaDB.mdb"
end enum

grazie a tutti....

[SimoneVB]

Ciao !
Le cosanti che assegni ai membri di una enumerazione DEVONO essere tipi long e, purtroppo non esiste un equivalente.
Esistono però alcune alternative come: ricorrere alle Collection oppure la seguente:

dichiari la tua enumerazione con valori Long:

public enum enFILE
 CONFIG_INI = 0
 APPOGGIO_INI = 1
 VERIFICA_DB = 2
end enum

poi scrivi una function che restituisce la stringa corrispondente...
Magari prelevandola da un'aray:
[CODE]
Function enFile_To_String(ByVal fl As enFile)As String

Dim sArray(0 To 2) As String

sArray(0) = "Config.ini"
sArray(1) = "Appoggio.ini"
sArray(2) = "VerificaDB.mdb"

enFile_To_String = sArray(fl)

End Function

Ciao
Simo

[ale500]

va bene grazie.... VVoVe: