Common Dialog No Vb

[luc_carolino]

fiz um bloco de notas no VB, e estou tentando usar a caixa de dialogo Salvar do common dialog.

Eu consegui abrir a janela de salvar, porém gostaria de saber como faço para salvar o conteúdo que o usuário digitar no bloco de notas que eu fiz

valeu

[tabgal]

Postado Originalmente por luc_carolino@20 jan 2004, 21:23

fiz um bloco de notas no VB, e estou tentando usar a caixa de dialogo Salvar do common dialog.

Eu consegui abrir a janela de salvar, porém gostaria de saber como faço para salvar o conteúdo que o usuário digitar no bloco de notas que eu fiz

valeu

Quando o camarada clicar em Salvar na caixa, ela vai te retornar o nome do arquivo, daí use as funções do basic pra salvar...

[Clemente Silva]

Olá,

Na propriedade 'FileName', você terá o caminho e nome de arquivo onde o conteúdo digitado será salvo. Agora para efetivamente salvar, você pode fazer uma rotina assim:

Public Function SalvarTexto(Arquivo As String, ControleTextBox As TextBox) As Boolean

    'Retorna 'True' se salvar, ou 'False' se ocorrer erro
    
    Dim Texto As String, IdArquivo As Integer, Resposta As VbMsgBoxResult
        
    On Error GoTo Erro
    
    'A operação ainda não começou
    SalvarTexto = False
    
    'Esta pergunta é dispensável se estiver usando a constante
    'cdlOFNOverwritePrompt' na propriedade 'Flags' do CommonDialogControl
    If Not Dir$(Arquivo) = "" Then
        Resposta = MsgBox("O arquivo já existe. Sobrescrever?", vbQuestion Or vbYesNo, "Mensagem")
        If Resposta = vbYes Then Kill Arquivo Else Exit Function
    End If
    
    'Colocar o texto numa variável...
    Texto = TriMicrosoft(ControleTextBox.Text)
    
    '... e salvar apenas se contiver dados.
    If Not Texto = "" Then
        
        'Reservar um identificador para o arquivo
        IdArquivo = FreeFile
        'Abrir o arquivo pelo identificador, com acesso apenas para escrita
        Open Arquivo For Output Access Write As IdArquivo
        'Gravar os dados no arquivo
        Print #IdArquivo, Texto
        'Fechar arquivo pelo identificador
        Close IdArquivo
    
        'Arquivo salvo, retornar 'True'
        SalvarTexto = True
    
    Else
    
        MsgBox "Não há nada digitado. O arquivo não será salvo.", vbExclamation, "Erro"
        
    End If
    
Erro:
    
    If Not Err.Number = 0 Then MsgBox "Ocorreu um erro: " & Err.Description, vbCritical, Err.Number
    
End Function

T+!