1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Visual Basic o Textbox não actualiza

Discussão em 'Programação' iniciada por DarkWolfXP, 30 de Dezembro de 2007. (Respostas: 4; Visualizações: 1200)

  1. DarkWolfXP

    DarkWolfXP Power Member

    Boas, neste momento ando a "brincar" com Visual Basic :003: estava a fazer uma aplicação básica ( tem uma DirListBox, FileListBox e um TextBox) que mostra os ficheiros que estão numa pasta, o problema chega em que gostava que o TextBox actualizasse sempre k mudasse de pasta mas não consigo. O que neste momento acontece na TextBox é que mostra m os ficheiros da pasta em que se encontra, e quando na DirListBox mudo para outra pasta o TextBox não actualiza mas na FileListBox actualiza...
    Eu sou mt verde nisto :( mas keria ter isto a funcionar para facilitar me a vida numas coisas, pois tencionava dps na textbox adicionar-m expressoes que se repetem.

    Eis o meu codigo:
    Código:
    Private Sub Dir1_Change()
    File1.Path = Dir1.Path
    End Sub
    
    Private Sub File1_Click()
    File1.Path = Dir1.Path
    
    End Sub
    
    Private Sub Form_Load()
            Dim file As Long
            For file = 0 To File1.ListCount - 2
            Text1.Text = Text1.Text & File1.List(file) & vbCrLf
            Next file
    End Sub
    
    
     
    Última edição: 30 de Dezembro de 2007
  2. SoundSurfer

    SoundSurfer Power Member

    Tens de mandar actualizar o texto outra vez quando mudas de directoria...

    o form_load só corre a primeira vez que a janela abre:

    Código:
    Private Sub Dir1_Change()
    File1.Path = Dir1.Path
    
    [COLOR="Red"]Dim file As Long
    For file = 0 To File1.ListCount - 2
    Text1.Text = Text1.Text & File1.List(file) & vbCrLf
     Next file[/COLOR]
    
    End Sub
    
    Private Sub File1_Click()
    File1.Path = Dir1.Path
    
    End Sub
    
    Private Sub Form_Load()
            Dim file As Long
            For file = 0 To File1.ListCount - 2
            Text1.Text = Text1.Text & File1.List(file) & vbCrLf
            Next file
    End Sub
    
     
  3. DarkWolfXP

    DarkWolfXP Power Member

    Boas!, Funcionou parcialmente 8|. Agr akilo vai acumulando os ficheiros ^^, isto é o Textbox vai mostrando os ficheiros k estao numa pasta e dps kuando mudo os ficheiros da pasta passada ainda la estao + os ficheiros da nova pasta :o.
    Existe alguma maneira de limpar "o rasto" :D?
    Desde já mt obrigado pela atenção!
     
  4. SoundSurfer

    SoundSurfer Power Member

    Antes de começar o ciclo:

    Código:
    Text1.Text = ""
    (ou o que quer que seja a string vazia em VB)
    
     
  5. DarkWolfXP

    DarkWolfXP Power Member

    Epah, Mt obrigado!!! :)
    Resolveste me o bicho de 7 cabeças num piscar de olhos -,-'', eu sou um valente nabo em VB :P ver-se nas proximas ferias aprendo isto de cabeça aos pes!!! :lol:
    Mais uma vez obrigado :D
    Já agr HAPPY NEW YEAR EVERYONE :D
     

Partilhar esta Página