• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

hitman95

bloco de notas textbox vb6

19 mensagens neste tópico

boas,é o seguinte, como faço para gravar dados de uma textbox num bloco de notas do windows? :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Um exemplo:

Dim num as Integer
num = FreeFile
Open "C:\FicheiroGravar.txt" For Output as #num
Print #num, text1.text
Close #ff

Não testado :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

jpaulino, experimentei, mas nao deu  :D...

aparece o seguinte erro "file already open", penso que o problema seja daqui:

Open "C:\FicheiroGravar.txt" For Output as #num

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Agora testado :)

Dim num as Integer
num = FreeFile
Open "C:\FicheiroGravar.txt" For Append #num
Print #num, text1.text
Close #num

A linha assinalada estava errada (o #ff não existia) e alterei para Append em vez de Input para poderes ir acrescentando informação.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

continua a dar um erro... :)    "syntax error"

talvez me tenha enganado, vou verificar outra vez.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Agora testado :)

Dim num as Integer
num = FreeFile
Open "C:\FicheiroGravar.txt" For Append #num
Print #num, text1.text
Close #num

A linha assinalada estava errada (o #ff não existia) e alterei para Append em vez de Input para poderes ir acrescentando informação.

E se mostrares como estás a utilizar ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

clar, tenho uma textbox que é o ecra principal, onde escrevo, depois tenho o botao onde queria que permitisse  guardar o contéudo que se escreve nessa textbox.epá queria meter aqui um prtsc mas não tá a dar

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não precisas de mostrar o printscreen, mostra o código.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Private Sub Command7_Click()
Dim num As Integer
num = FreeFile
Open "C:\FicheiroGravar.txt" For Append #num
Print #num, Text1.Text
Close #num
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Desculpa, mau copy/paste da minha parte :)

É que no meu está a trabalhar bem.

Aqui vai ... faltava um "As" (não sei como fiz isto)

Dim num As Integer
num = FreeFile
Open "C:\FicheiroGravar.txt" For Append As #num
Print #num, text1.text
Close #num

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Private Sub Command7_Click()
Dim num As Integer
num = FreeFile

Open "C:\FicheiroGravar.txt" For Append As #num

Print #num, Text1.Text
Close #num
End Sub

agora carrego no botão , nao faz nada...nem erro dá

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Está a ver o ficheiro C:\FicheiroGravar.txt ? Ele está a gravar para lá.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ups, fui eu que andei aqui a inventar na interface...já dá, obrigadao jpaulino...grande ajuda :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ups, fui eu que andei aqui a inventar na interface...já dá, obrigadao jpaulino...grande ajuda :)

Ainda bem que está a funcionar :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora