ARRAY DE CONSTANTES

JALEXM 27/12/2012 15:42:43
#416474
Olá.
é possível criar um array de constantes em VB6?
Algo do tipo:

const Frutas as String() = [Ô]LARANJA[Ô], [Ô]BANANA[Ô], [Ô]LIMÃO[Ô]

Tem jeito de se fazer isso em VB6?
Obrigado.
GANDA.NICK 27/12/2012 16:25:20
#416477
beleza

Não é possível não....

o mais perto será do que vc pretende será qualquer coisa parecida com isto:

Const Frutas As String = [Ô]LARANJA,BANANA,LIMÃO[Ô]

Dim ArrFrutas() As String

Private Sub ConstToArray()
    Dim i As Integer
    ArrFrutas = Split(Frutas, [Ô],[Ô])
     
    For i = 0 To UBound(ArrFrutas)
        MsgBox [Ô]Index: [Ô] & i & [Ô]   -   Fruta: [Ô] & ArrFrutas(i)
    Next
End Sub


té +
MARCELO.TREZE 27/12/2012 18:01:39
#416487 Resposta escolhida
em vb6 é assim

Private Sub Command1_Click()
Dim frutas() As Variant
frutas = Array([Ô]maça[Ô], [Ô]banana[Ô], [Ô]pera[Ô], [Ô]uva[Ô])
MsgBox frutas(0) [txt-color=#007100][ô] 0=maça, 1=banana,2=pera, 3=uva[/txt-color]
End Sub
GANDA.NICK 28/12/2012 01:54:41
#416495
desconhecia a solução do marcelo....

parece-me aproximar mais do que pendente com menos code....


vivendo e aprendendo...

valeu aí marcelo
Tópico encerrado , respostas não são mais permitidas
Voltar