COMANDO FOR

MOKOVA666 25/01/2014 15:15:43
#433541
olá.
estou com problema para fazer uma sequencia com o comando FOR.
meu código é esse:

[txt-color=#e80000]Dim imgitem As String
Dim i As Integer
For i = 0 To 1
Open [Ô]config\config.dat[Ô] For Input As #1 [ô]esse comando ele abre o arquivo
Line Input #1, imgitem [ô]ele pega a linha e joga na variavel imgitem
Close #1
wp00(i).Picture = LoadPicture(imgitem)
Next[/txt-color]

no caso eu tenho 2 Image com index, com os nomes assim:
wp00(0)
wp00(1)

e dentro do arquivo config.dat esta assim:
[txt-color=#e80000]config\img\wp\wp303.gif[/txt-color]

o comando for passa e coloca a imagem wp303.gif nos 2 Image do form.
só que eu gostaria de fazer ele pegar as imagem de cada linha do config.dat, por exemplo:

linha 1: [txt-color=#e80000]config\img\wp\wp303.gif[/txt-color]
linha2: [txt-color=#e80000]config\img\wp\wp124.gif[/txt-color]

ai no wp00(0) fica a wp303.gif e no wp00(1) fica o wp124.gif.
Ja tentei alterar tudo mais não consigo.

Obrigado!
FILMAN 25/01/2014 17:47:02
#433543 Resposta escolhida
Boa tarde, cara nesse caso você não vai precisar usar o FOR e sim um WHILE ara percorrer o arquivo .DAT

Faça assim

Dim imgitem As String
Dim i As Integer, F As Integer

i = 0
F = FreeFile [ô]Essa linha aqui é para armazenar a numeração livre para abertura do arquivo

Open [Ô]config\config.dat[Ô] For Input As #F
    While Not EOF(F)
        Line Input #F, imgitem
        i = i + 1

        if i = 1 then
            wp00(i-1).Picture = LoadPicture(imgitem)
        else
            wp00(i-1).Picture = LoadPicture(imgitem)
            Resume ENCERRA
        End If

    Wend

ENCERRA: [ô]Essa linha aqui é para fechar o arquivo depois de preencher as duas imagens
Close #F


Espero ter ajudado
MOKOVA666 25/01/2014 19:20:30
#433546
Muito bom, realmente resolveu o problema.
Muito Obrigado!
Tópico encerrado , respostas não são mais permitidas
Voltar