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

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    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

  • Question
    Entrar para Votar
    1
    Entrar para Votar

    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