none
Preencher Textbox com conteudo de TXT definido por um Combobox RRS feed

  • Pergunta

  • Olá, boa tarde!

    Preciso de uma ajuda para resolver meu problema!
    É o seguinte, tenho um Form com 1 Combobox e 1 Textbox.
    Preciso que quando escolher um valor no Combobox, o conteúdo de um TXT seja carregado no Textbox.
    Exemplo: Se eu escolher "Texto1" no Combobox, o conteúdo do TXT "Texto1" seja carregado no Textbox.

    Desde já agradeço pela atenção.
    sexta-feira, 31 de maio de 2013 18:24

Respostas

  • Para tal, recomendo que cada arquivo de texto contenha apenas uma linha de texto. O código abaixo mostra como fazer isso, mas não há tratamento de exceção e, além disso, não detecta quantos arquivos de texto existem (embora seja possível fazer isso):

    'Altere para o caminho desejado.
    Const mcstrDiretório As String = "c:\temp\"
    
    Dim mstrDiretório As String
    
    Private Sub ComboBox1_Change()
        Dim intFF As Integer
        Dim str As String
        
        If Me.ComboBox1 = "" Then Exit Sub
        
        intFF = FreeFile
        Open mstrDiretório & Me.ComboBox1 & ".txt" For Input As intFF
            Line Input #intFF, str
        Close intFF
        
        Me.TextBox1 = str
    End Sub
    
    Private Sub UserForm_Initialize()
        With Me.ComboBox1
            .Style = fmStyleDropDownList
            .AddItem "Texto1"
            .AddItem "Texto2"
            .AddItem "Texto3"
        End With
        
        mstrDiretório = mcstrDiretório
        If Right(mstrDiretório, 1) <> "\" Then
            mstrDiretório = mstrDiretório & "\"
        End If
    End Sub
    


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta McJota sexta-feira, 31 de maio de 2013 22:06
    sexta-feira, 31 de maio de 2013 21:20
    Moderador