DUVIDA COM ARRAYS

JOAOVITOR 12/09/2009 20:36:48
#322719
Fala galera blz?


Bom é o seguinte, estou fazendo um sisteminha aqui pra empresa e eu to habituado a trabalhar com PHP no momento e acabei até me deixando esquecer muitas coisas sobre VB...

No atual presente estou necessitado da seguinte ajuda:

Tenho 5 campos de textos que deve ser preenchidos, caso não preenchidos eu tenho um array chamado retornoErros que eu faço o seguinte, eu pego a descrição do erro e taco na array, exemplo: retornoError(1) = [Ô]erro 1[Ô], retornoError(2) = [Ô]erro 2[Ô] e assim por diante.

Agora no PHP quando quero algo parecido eu conto quantos erros eu tenho na array e ai eu dou um Foreach e imprimo na tela os erros, só que no VB6 nem faço ideia como faço pra contar quantos erros tem na Array muito menos pra mostrar cada erro....

Alguém tem uma forma de se fazer essa rotina??

Abraços e Fiquem na paz de Jesus
TECLA 12/09/2009 21:10:50
#322722 Resposta escolhida
Fiz um exemplo simples, mas bem prático como ilustração:

[txt-color=#0B6138][ô]Declaracao no General Declarations[/txt-color]
Option Explicit
Dim Vetor() As String, Indice As Byte


Private Sub cmdContar_Click()
[txt-color=#0B6138][ô]Mostrar os elementos do array em um loop[/txt-color]
Dim i As Byte
For i = 0 To Indice - 1
    MsgBox Vetor(i)
Next
End Sub


Private Sub cmdMontar_Click()
[txt-color=#0B6138][ô]Montar o array com os erros[/txt-color]
ReDim Preserve Vetor(Indice)
Vetor(Indice) = [Ô]Erro [Ô] & Indice
Indice = Indice + 1
End Sub


Private Sub Form_Load()
[txt-color=#0B6138][ô]Inicializando o index do array[/txt-color]
Indice = 0
End Sub
JOAOVITOR 13/09/2009 14:25:16
#322757
Opa funcionou legal brigado pela resposta Tecla, abraço!
Tópico encerrado , respostas não são mais permitidas
Voltar