Essa é um post que eu nuca encontrei em outro lugar, sempre que procurava não tava completo... agora está aqui par atodos que també, nunca encontrou.. mas esse funciona de verdade...:
Private Sub Command13_Click()
If texto.Filename = "" Then
Dialog.Filename = ""
Dialog.DefaultExt = "txt"
Dialog.DialogTitle = "Salvar o Arquivo"
Dialog.Flags = cdlOFNOverwritePrompt
Dialog.ShowSave
texto.SaveFile Dialog.Filename
End If
End Sub
Comentário:
Olha, "texto" é o objeto de onde vc vai salvar o texto... tipo "textbox"
e dialog e a ferramenta que o VB precisa para execultar os dialogos tipo: Abrir, Salvar...
De acordo o controlo que vc vai usar é melhor salvar como aquivo .doc, pois .txt as vezes dá uns erros...
vc pode defini-lo como :
Dialog.Filter = "Texto Simples| *.txt"
Private Sub Command13_Click()
If texto.Filename = "" Then
Dialog.Filename = ""
Dialog.DefaultExt = "txt"
Dialog.DialogTitle = "Salvar o Arquivo"
Dialog.Flags = cdlOFNOverwritePrompt
Dialog.ShowSave
texto.SaveFile Dialog.Filename
End If
End Sub
Comentário:
Olha, "texto" é o objeto de onde vc vai salvar o texto... tipo "textbox"
e dialog e a ferramenta que o VB precisa para execultar os dialogos tipo: Abrir, Salvar...
De acordo o controlo que vc vai usar é melhor salvar como aquivo .doc, pois .txt as vezes dá uns erros...
vc pode defini-lo como :
Dialog.Filter = "Texto Simples| *.txt"
Comentários
Postar um comentário