Ir para o conteúdo
hitman95

bloco de notas textbox vb6

Mensagens Recomendadas

jpaulino    106
jpaulino

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
hitman95    0
hitman95

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

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 ?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
hitman95    0
hitman95

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
hitman95    0
hitman95
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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
hitman95    0
hitman95

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á

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

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

Ainda bem que está a funcionar :)

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade