none
Como usar o OpenFileDialog? RRS feed

  • Pergunta

  • Olá, 

    Eu gostaria de saber como fazer para abrir ler um arquivo em um RichtTextBox usando o OpenFileDialog

    Eu abro o tentando abrir o OpenFileDialog, olhem como eu fiz:

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
          If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
              RichTextBox1.LoadFile(OpenFileDialog1.ShowDialog())
          End If
    End Sub
    Sei que é bem simples mas sou iniciante.

    Obrigado pela atençao.
    segunda-feira, 6 de abril de 2009 23:55

Respostas

  • Usei esse aqui e ficou bom:
       
    Private Sub OpenToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FolderPath.Click
            OpenFileDialog1.Filter = "Arquivos de Texto (*.txt)|*.txt"
            OpenFileDialog1.ShowDialog()
            Dim sr As New System.IO.StreamReader(OpenFileDialog1.FileName)
            TextBox1.Text = sr.ReadToEnd
            sr.Close()
        End Sub

    terça-feira, 16 de junho de 2009 00:34

Todas as Respostas

  • Olá Paitach,

    Eu costumo usar o streamReader para ler arquivos...
    Um Exemplo:



    Dim

     

    fileChooser As OpenFileDialog = New OpenFileDialog()

    Dim

     

    result As DialogResult = fileChooser.ShowDialog

     

    Dim reader As StreamReader = File.OpenText(fileChooser.FileName)

    RichTextBox1.Text = reader.readToEnd


    Vale a pena lembrar que vc deve importar o namespace system.IO no início do seu programa

    Abraço
    T+

    • Sugerido como Resposta Alan Cossari quinta-feira, 30 de abril de 2009 20:22
    terça-feira, 7 de abril de 2009 01:10
  • PAitach,

        Reparei que tem um probleminha neste bloco de código:

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
          If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then

              RichTextBox1.LoadFile(OpenFileDialog1.ShowDialog())  'Nesta linha, vc está chamando a caixa de diálogo novamente. Tente assim:

             RichTextBox1.LoadFile( OpenFileDialog1.Filename ) 

          End If

    End Sub


    Abs
    Bruno Gallego - Se este poste foi útil, por favor, classifique MCP - MCTS - MCDBA - MCPD.NET
    • Sugerido como Resposta Alan Cossari sexta-feira, 30 de outubro de 2009 12:57
    terça-feira, 7 de abril de 2009 20:29
  • Eu tentei o descrito acima (sou novato em VB também), e não deu certo, o programa trava e fica uma setinha amarela.
    segunda-feira, 15 de junho de 2009 22:08
  • Usei esse aqui e ficou bom:
       
    Private Sub OpenToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FolderPath.Click
            OpenFileDialog1.Filter = "Arquivos de Texto (*.txt)|*.txt"
            OpenFileDialog1.ShowDialog()
            Dim sr As New System.IO.StreamReader(OpenFileDialog1.FileName)
            TextBox1.Text = sr.ReadToEnd
            sr.Close()
        End Sub

    terça-feira, 16 de junho de 2009 00:34