none
Visual basic Criançao de text RRS feed

  • Pergunta

  • bom dia a todos gostaria de saber como eu realizo uma impressão do do text no arquivo de texto , 

    exemplo tudo que eu escrever na caixa de texto do form vai abri o arquivo txt e ja vai imprimir os dados 

    terça-feira, 14 de agosto de 2012 13:32

Respostas

Todas as Respostas

  • Dim createFile As System.IO.FileStream
    createFile = System.IO.File.Create(Application.StartupPath & "\arquivo.txt")
    createFile.Close()
    Dim writeFile As New System.IO.StreamWriter(Application.StartupPath & "\arquivo.txt")
    writeFile.Write("Seu texto aqui")
    writeFile.Close()


    terça-feira, 14 de agosto de 2012 14:22
  • jHONAS KENNE BOENO 

    com seus códigos não consegui ainda mais conseguir fazer que o vb abra o arquivo txt na area de trabalho , so que nao conseguir imprimi o campo do text1 nele 

    segue o código abaixo e o erro também:

    Código 




    Private Sub Command1_Click()
    Shell "notepad " & Chr(34) & "nomedotxt.txt" & Chr(34)
    Print Text1.Text & nomedotxt.txt
    Text1.Text = nomedotxt.txt

    End Sub

    Private Sub Command2_Click()
    Unload Me
    End Sub

    erro:

    RUN-time error '424 '
    object required

    terça-feira, 14 de agosto de 2012 18:00
  • Você pode utilizar um bloco using para isso, a sintaxe é mostrada abaixo:

    Using writeFile As New System.IO.File.Create(Application.StartupPath & "\arquivo.txt")

    'implementação omitida

    End Using


    Atenciosamente, Marcio Nogueira Cardoso Pinto.

    terça-feira, 14 de agosto de 2012 20:13
  • Faça o seguinte:

    Dim createFile As System.IO.FileStream
    createFile = System.IO.File.Create("C:\") ' ATENÇÃO: O arquivo irá aparecer no Disco Local (C)
    createFile.Close()
    Dim writeFile As New System.IO.StreamWriter("C:\")
    writeFile.Write(TextBox1.Text)
    writeFile.Close()

    Se quiser eu faço um exemplo aqui e hospedo em algum lugar pra você baixar.

    Mas me responda, quando você diz imprimir, e simplesmente escrever o que está na TextBox no arquivo txt?

    quarta-feira, 15 de agosto de 2012 03:25
  • SIM APENAS APARECER NO TXT MANO 

    FIZ UMA CLASSE QUE ABRE O TXT SÓ QUE QUANDO PREENCHO O TEXTBOX ELE NÃO APARECE NO TXT ESSE CÓDIGO QUE ME PASSOU DA DANDO ERRO JHONAS KENNE 

    CÓDIGO :

    
    Private Sub Command1_Click()
    Shell "notepad " & Chr(34) & "nomedotxt.txt" & Chr(34)
    Print Text1.Text & nomedotxt.txt  ------------------------------> O ERRO APARECE NESSA LINHA O TXT CRIA MAIS NAO APARECE NADA NELE 
    Text1.Text = nomedotxt.txt

    End Sub

    Private Sub Command2_Click()
    Unload Me
    End Sub

    quarta-feira, 15 de agosto de 2012 17:25
  • quinta-feira, 16 de agosto de 2012 15:43
    Moderador