Åbn tekstfil

Skal man ikke bruge i commondialog?

Min kode ser sådan her ud:
If Cancelvalgt = True Then Exit Sub
CommonDialog1.FileName = "*.BMP"
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
Form1.Caption = CommonDialog1.FileTitle & " - Tegne program"
lblFilNavn.Caption = CommonDialog1.FileName

Ikke forstået..? :)

OpenFileDialog1.CheckFileExists = True
OpenFileDialog1.CheckPathExists = True
OpenFileDialog1.Multiselect = False
OpenFileDialog1.InitialDirectory = DocumentPath
OpenFileDialog1.FileName = ""
OpenFileDialog1.Filter = "Tekstfiler (*.txt)|*.txt"
OpenFileDialog1.ShowDialog()

Dim PathAndFileName As String = OpenFileDialog1.FileName.ToString
Dim FileToRead As StreamReader

FileToRead = File.OpenText(PathAndFileName)

RichTextBox.Text = FileToRead.ReadToEnd().ToString

FileToRead.Close()

Jeg vil næsten gætte på at du bare mangler et 1-tal:

RichTextBox1.Text = FileToRead.ReadToEnd().ToString()

Nej, desværre. Har omdøbt den...

Du kan i hvertfald ikke kalde den for "RichTextBox" for det hedder selve klassen jo, og så får du en navnekonflikt i stedet.

Ok. Har så omdøbt den til RichTextBox1, men stadig ingen held.

Det her er sgu pinligt..:

I min efterhånden avancerede applikation kunne jeg pludselig se, at jeg efterfølgende kaldte en Sub, som satte RichTextBox1.Text = "" !

Sorry guys..!  :(

nielle > smid et svar for din ulejlighed.

Denne kode virker hos mig:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.CheckFileExists = True
        OpenFileDialog1.CheckPathExists = True
        OpenFileDialog1.Multiselect = False
        OpenFileDialog1.InitialDirectory = "C:\"
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.Filter = "Tekstfiler (*.txt)|*.txt"
        OpenFileDialog1.ShowDialog()

        Dim PathAndFileName As String = OpenFileDialog1.FileName.ToString
        Dim FileToRead As StreamReader

        FileToRead = File.OpenText(PathAndFileName)

        RichTextBox1.Text = FileToRead.ReadToEnd().ToString()

        FileToRead.Close()
    End Sub

Måske hedder din RichTextBox1 én ting i din kode, mens at den hedder noget andet på dis design-side - sådan at du i virkeligheden har gang i to forskellige RichTextBox-objekter?

Nej tak til point på denne her - tag du dem bare selv igen :^)

Ok. Beklager altsp mange gange..!

Ikke noget problem - det sker også for alle os andre. :^)