none
Ajuda com textbox RRS feed

  • Pergunta

  • Boa tarde pessoal, buscando na net informações sobre vba acabei encontrando esse site. Meu nome é Ronaldo, trabalho num Hospital público no Município de Uruará no interior do Pará, na Rodovia Transamazônica pra ser mais exato, ocorre que me encontro num problema, vários setores desse hospital não possui nenhuma forma de controle de gastos, atendimentos e outros, então, resolvi criar uma aplicação em vba para controle do setor de emergência, criei o layout, programei algumas funções, e a tela de login mas agora não consigo programar o seguinte:
    Minha aplicação tem uma textbox chamada "quadro clínico" preciso que tudo o que for digitado ali seja armazenado em um arquivo "txt" bem como o conteúdo de outros textbox para que essas informações servam como de banco numa possível restauração de backup e também para a geração de relatórios mais tarde.
    Se alguém puder me ajudar eu posso enviar um print da tela da minha aplicação para se ter uma ideia mais claro do que estou falando. o email é rrf_27@hotmail.com

     

    Desde já agradeço se puder me ajudar.

    Ronaldo Ferreira

    terça-feira, 12 de novembro de 2013 11:43

Respostas

Todas as Respostas

  • Nao entendi bem qual é a duvida.. mas porque vc nao guarda o texto dento do proprio banco de dados?

    Existem varios tutoriais na Internet, mas um que pode ser usado sem problemas (inclusive existe um tutorial completo de um sistema de clinica) é o do siste Macoratti:

    http://www.macoratti.net/vbn_app1.htm

    Ele vende o Cd (preço modico R$90,00 ) contendo varios exemplos completos de sistema. Creio que seja o caminho a ser seguido

    http://www.macoratti.net/superdvd.htm

    Att


    William John Adam Trindade
    Analyste-programmeur
    ----------------------------------------------------------

    terça-feira, 12 de novembro de 2013 14:29
    Moderador
  • Olá! Veja uma forma simples em VB.NET:

    Dim save As New SaveFileDialog
            Dim mystreamwriter As System.IO.StreamWriter
            save.Filter = "Arquivo de Texto|*.txt|Arquivo Fly|*.fly|Arquivo Bat|*.bat|Todos os Arquivos (*.*)|*.*"
            save.CheckPathExists = True
            save.Title = "Salvar Arquivo - Salvar Como"
            save.ShowDialog(Me)
            Try
                mystreamwriter = System.IO.File.AppendText(save.FileName)
                mystreamwriter.Write(TextBox1.Text)
                mystreamwriter.Flush()
    
            Catch ex As Exception
    
            End Try

    Coloque este código dentro de um Button.

    terça-feira, 12 de novembro de 2013 20:29
  • Mas esse comando vb.net é reconhecido pelo visual studio? Desde já obrigado pela ajuda.

    Ronaldo

    quarta-feira, 13 de novembro de 2013 20:01
  • Ok Willian já olhei lá, vou comprar um dvd. Obrigado pela dica.

    Ronaldo

    quarta-feira, 13 de novembro de 2013 20:01
  • Este código é para o Visual Basic 8 ou posterior. Visual Studio (Visual Basic) 8 ou posterior é VB.NET.
    quarta-feira, 13 de novembro de 2013 20:34
  • Bom dia.

    Tô passando aqui pra te agradecer, o código que vc me enviou funcionou perfeitamente para o que eu queria. Obrigado.

    Mas depois que usei o código percebi que esqueci de falar algo na minha primeira dúvida. É que após clicar no botão "Salvar" as caixas não limpam há uma linha de comando capaz de limpar o form e deixá-lo pronto para digitar os próximos dados?

    Ronaldo Ferreira

    quinta-feira, 14 de novembro de 2013 12:09
  • Olhe este código, só verificar que o componente TextBox armazena string então como se faz para limpar uma string ? nao seria isso "". Veja videos no Youtube e leia livros ajuda muito.

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
            Dim texto As String
    
            texto = "TESTE"
    
            TextBox1.Text = texto
    
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            'Limpa o textbox
            TextBox1.Text = ""
            'ou isso 
            TextBox1.Text = vbNullString
    
        End Sub
    End Class

    quinta-feira, 14 de novembro de 2013 12:25
  • Coloque este código no mesmo Button, depois do outro código:

    TextBox1.Text=""

    O código completo ficaria assim:

       Dim save As New SaveFileDialog
            Dim mystreamwriter As System.IO.StreamWriter
            save.Filter = "Arquivo de Texto|*.txt|Arquivo Fly|*.fly|Arquivo Bat|*.bat|Todos os Arquivos (*.*)|*.*"
            save.CheckPathExists = True
            save.Title = "Salvar Arquivo - Salvar Como"
            save.ShowDialog(Me)
            Try
                mystreamwriter = System.IO.File.AppendText(save.FileName)
                mystreamwriter.Write(TextBox1.Text)
                mystreamwriter.Flush()
    
            Catch ex As Exception
            End Try
            TextBox1.Text = ""

    Qualquer dúvida é só perguntar! *Não se esqueça de escolher a melhor resposta :D

    • Editado Free4k quinta-feira, 14 de novembro de 2013 13:36
    quinta-feira, 14 de novembro de 2013 13:11
  • Coloque este código no mesmo Button, depois do outro código:

    TextBox1.Text=""

    O código completo ficaria assim:

       Dim save As New SaveFileDialog
            Dim mystreamwriter As System.IO.StreamWriter
            save.Filter = "Arquivo de Texto|*.txt|Arquivo Fly|*.fly|Arquivo Bat|*.bat|Todos os Arquivos (*.*)|*.*"
            save.CheckPathExists = True
            save.Title = "Salvar Arquivo - Salvar Como"
            save.ShowDialog(Me)
            Try
                mystreamwriter = System.IO.File.AppendText(save.FileName)
                mystreamwriter.Write(TextBox1.Text)
                mystreamwriter.Flush()
    
            Catch ex As Exception
            End Try
            TextBox1.Text = ""

    Qualquer dúvida é só perguntar! *Não se esqueça de escolher a melhor resposta :D

    Só tenho a agradecer, o comando que vc me mandou resolveu meu problema, mas, agora tem algo que eu não previa. É o seguinte: Quando salvo o conteúdo do meu aplicativo ele cria um arquivo de texto como eu queria, porém quando abro o arquivo que acabou de ser criado tudo o que foi digitado nos campos do aplicativo estão em apenas uma linha enorme de texto ao invés de obedecer a formatação da tela do aplicativo. Outro ponto é que sempre que mando salvar ele cria um arquivo com nome diferente ao invés de criar dentro arquivo salvo anteriormente ser apagar o conteúdo já salvo é claro. Tem alguma forma de resolver isso? Grato.

    Ronaldo

    segunda-feira, 18 de novembro de 2013 22:35
  • Olá! Fiz um exemplo para você, baixe no link abaixo; se quiser falar comigo diretamente me adicione no Facebook que explico melhor.

    https://sites.google.com/site/hospedagemfiles/animacoes/Ronaldo%20R.%20Ferreira.rar?attredirects=0&d=1

    http://www.facebook.com/howar.mateus


    • Editado Free4k segunda-feira, 18 de novembro de 2013 23:05
    • Marcado como Resposta Ronaldo R. Ferreira quarta-feira, 20 de novembro de 2013 12:33
    segunda-feira, 18 de novembro de 2013 23:03
  • Olá Ronaldo,

    Utilize este código, salvará todas as informações de Todos os Textboxs.

    crie um botão Salvar, e em seu código acrescente este.irá salvar as labels e Textboxs.

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    Dim salvar As New SaveFileDialog

    salvar.Filter =

    "Texto|*.txt"

    salvar.FileName =

    ""

    If salvar.ShowDialog = Windows.Forms.DialogResult.OK Then

    End If

    Dim escrever As New System.IO.StreamWriter(salvar.FileName)

    escrever.Write(Label1.Text)

    escrever.Write(TextBox1.Text)

    escrever.Write(Label3.Text)

    escrever.Write(TextBox3.Text)

    escrever.Write(Label38.Text)

    escrever.Write(TextBox36.Text)

    escrever.Write(Label4.Text)

    escrever.Write(TextBox4.Text)

    escrever.Write(Label5.Text)

    escrever.Write(TextBox5.Text)

    escrever.Write(Label6.Text)

    escrever.Write(TextBox6.Text)

    escrever.Write(Label2.Text)

    escrever.Write(Label23.Text)

    escrever.Write(TextBox2.Text)

    escrever.Write(Label24.Text)

    escrever.Write(TextBox23.Text)

    escrever.Write(Label25.Text)

    escrever.Write(TextBox24.Text)

    escrever.Write(Label26.Text)

    escrever.Write(TextBox25.Text)

    escrever.Write(Label7.Text)

    escrever.Write(TextBox7.Text)

    escrever.Write(Label8.Text)

    escrever.Write(TextBox8.Text)

    escrever.Write(Label33.Text)

    escrever.Write(TextBox31.Text)

    escrever.Write(Label34.Text)

    escrever.Write(TextBox32.Text)

    escrever.Write(Label35.Text)

    escrever.Write(TextBox33.Text)

    escrever.Write(Label9.Text)

    escrever.Write(TextBox9.Text)

    escrever.Write(Label10.Text)

    escrever.Write(TextBox10.Text)

    escrever.Write(Label11.Text)

    escrever.Write(TextBox11.Text)

    escrever.Write(Label12.Text)

    escrever.Write(TextBox12.Text)

    escrever.Write(Label13.Text)

    escrever.Write(TextBox13.Text)

    escrever.Write(Label14.Text)

    escrever.Write(TextBox14.Text)

    escrever.Write(Label15.Text)

    escrever.Write(TextBox15.Text)

    escrever.Write(Label16.Text)

    escrever.Write(TextBox16.Text)

    escrever.Write(Label17.Text)

    escrever.Write(TextBox17.Text)

    escrever.Write(Label18.Text)

    escrever.Write(TextBox18.Text)

    escrever.Write(Label19.Text)

    escrever.Write(TextBox19.Text)

    escrever.Write(Label20.Text)

    escrever.Write(TextBox20.Text)

    escrever.Write(Label21.Text)

    escrever.Write(TextBox21.Text)

    escrever.Write(Label22.Text)

    escrever.Write(TextBox22.Text)

    escrever.Write(Label36.Text)

    escrever.Write(TextBox34.Text)

    escrever.Write(Label37.Text)

    escrever.Write(TextBox35.Text)

    escrever.Close()

    End Sub


    Marcel Sampaio

    segunda-feira, 7 de abril de 2014 20:10