USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Windows)

Título da Dica:  Comando "Salvar Como" do Windows
Postada em 13/3/2004 por Josefh Hennyere         
Private Sub command1_Click()
Dim strNew As String
On Error GoTo ErrHandler
CommonDialog1.CancelError = True
CommonDialog1.Flags = cdlOFNHideReadOnly + cdlOFNOverwritePrompt
CommonDialog1.Filter = "All Files (*.*)|*.*|Rich Text Files"&"(*.rtf)|*.rtf|Text Files(*.txt)|*.txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
strNew = CommonDialog1.FileName
RichTextBox1.SaveFile strNew
ErrHandler:
Exit Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página