Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Pilantra

Salvando Todos Os Text Usando Commondialog

Question

Olá

Eu sei como se faz pra salvar com o commondialog em .txt somente um textbox, que no caso aquele que fica como multiline, mas eu tentei fazer pra salvar com todos os text e não da certo! alguém poderia me passar uma rotina pra isso?!

Obrigado

Abraços

Pilantra :ph34r:

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Iæ brother....

Li a sua dúvida cara e vou passar-lhe um script que resolverá seu pequeno problema cara....

Vamos lá...

Inicie um novo projeto no VB 6.0 e insira 3(três) TXT no seu FORM. Se quiser pode alterar a propriedades de uma delas para MULTILINE=TRUE pra que nosso exemplo fique mais veridico.

Após ter inserido as 3(três) TXT coloque o componente Commom Dialog (Project/Components..Ctrl+T) e insira-o em seu FORM, coloque também um botão com o Caption de Salvar. Altere as propriedades do nosso componente. Veja:

DefaultExt=TXT

FilterIndex=755

Filter=Arquivos de textos(*.txt)

Ative também CancelError na caixa de propriedades do nosso componente.

Agora vamos ao nosso pequeno código cara:

Dim txt1 as String

Dim txt2 as String

Dim txt3 as String

txt1 = Text1.Text

txt2 = Text2.Text

txt3 = Text3.Text

On Error Resume Next

Me.CMDialog.ShowSave

Open Me.CMDialog.Filename For Output As #1

Print #1, txt1, txt2, txt3

Close #1

Pronto brother....

Agora o seu Commom Dialog salvar as 3(três) ou mais TXT´S que você quiser cara.

Ah, a TXT sendo ou não com a propriedade MULTILINE=TRUE.

Espero que tenha entendido e que tenha te ajudado cara...

Abraços

Até mais

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148588
    • Total Posts
      644154
×
×
  • Create New...