[Resolvido] Richtextbox não aceita acentos ?

[leo2012]

Como eu faço pro meu Richtextbox aceitar acentos? olha o código que eu tenho até agora:

RichTextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)

Mas isso só lê o arquivo,e nao reconhece os acentos

Edited July 22, 2012 by ribeiro55

[ribeiro55]

http://wiki.portugal-a-programar.pt/dev_net:vb.net:stream_readers_writers#porque_razao_nao_e_possivel_ler_caracteres_especiais_como_acentos

Esse ReadAllText é uma implementação "straightforward", para casos menos específicos.

Experimenta com um StreamReader, como se demonstra no artigo.

[leo2012]

Nao consegui :/ tentei esse código,mas ele só exibe a primeira linha do documento

Dim SR As New IO.StreamReader(OpenFileDialog1.FileName, System.Text.Encoding.Default)
 While Not SR.EndOfStream
	 RichTextBox1.Text = SR.ReadLine
 End While
 SR.Close()

Edited July 23, 2012 by ribeiro55

[leo2012]

Consegui,olha,vou postar o código pra quem estiver com o mesmo problema, O ReadLine,estava impedindo a leitura de todas as linhas,entao coloquei ReadEnd,assim ele le o arquivo ate o final 👍

Dim SR As New IO.StreamReader(OpenFileDialog1.FileName, System.Text.Encoding.Default)
 RichTextBox1.Text = SR.ReadToEnd

Edited July 23, 2012 by ribeiro55