Hallo,
Ich habe folgendes Problem:
Ich möchte eine Datei mit einem OpenFileDialog auswählen, dabei kommt allerdings immer die Fehlermeldung: "Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist."
Der Fehler tritt immer bei "If openfiledialog1.ShowDialog = DialogResult.OK Then" auf.
Ich habe schon hier im Forum und bei Google gesucht aber bisher nichts gefunden
Ich habe folgendes Problem:
Ich möchte eine Datei mit einem OpenFileDialog auswählen, dabei kommt allerdings immer die Fehlermeldung: "Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist."
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- openfiledialog1.Filter = "VB-Dateien|*.vb|XML-Dateien|*.xml|JavaScript Dateien|*.js|PHP Dateien|*.php|HTML Dateien|*.htm;*.html;*.shtml;*.shtm|C# Dateien|*.cs|C++ Dateien|*.cpp;*.c++|XHTML Dateien|*.xhtml;*.xhtm|Batch Dateien|*.bat|Alle Dateien|*.*"
- openfiledialog1.Multiselect = False
- If openfiledialog1.ShowDialog = DialogResult.OK Then
- If openfiledialog1.FileName Like "*.vb" Then
- TextBox2.Document.HighlightingStrategy = DigitalRune.Windows.TextEditor.Highlighting.HighlightingManager.Manager.FindHighlighter("VBNET")
- ElseIf openfiledialog1.FileName Like "*.xml" Then
- TextBox2.Document.HighlightingStrategy = DigitalRune.Windows.TextEditor.Highlighting.HighlightingManager.Manager.FindHighlighter("XML")
- ElseIf openfiledialog1.FileName Like "*.js" Then
- TextBox2.Document.HighlightingStrategy = DigitalRune.Windows.TextEditor.Highlighting.HighlightingManager.Manager.FindHighlighter("JavaScript")
- ElseIf openfiledialog1.FileName Like "*.php" Then
- TextBox2.Document.HighlightingStrategy = DigitalRune.Windows.TextEditor.Highlighting.HighlightingManager.Manager.FindHighlighter("PHP")
- ElseIf openfiledialog1.FileName Like "*.htm*" Or openfiledialog1.FileName Like "*.shtm*" Then
- TextBox2.Document.HighlightingStrategy = DigitalRune.Windows.TextEditor.Highlighting.HighlightingManager.Manager.FindHighlighter("HTML")
- ElseIf openfiledialog1.FileName Like "*.cs" Then
- TextBox2.Document.HighlightingStrategy = DigitalRune.Windows.TextEditor.Highlighting.HighlightingManager.Manager.FindHighlighter("C#")
- ElseIf openfiledialog1.FileName Like "*.c??" Then
- TextBox2.Document.HighlightingStrategy = DigitalRune.Windows.TextEditor.Highlighting.HighlightingManager.Manager.FindHighlighter("C++.NET")
- ElseIf openfiledialog1.FileName Like "*.xhtm*" Then
- TextBox2.Document.HighlightingStrategy = DigitalRune.Windows.TextEditor.Highlighting.HighlightingManager.Manager.FindHighlighter("ASP/XHTML")
- ElseIf openfiledialog1.FileName Like "*.bat" Then
- TextBox2.Document.HighlightingStrategy = DigitalRune.Windows.TextEditor.Highlighting.HighlightingManager.Manager.FindHighlighter("BAT")
- Else
- End If
- TextBox2.Text = File.ReadAllText(openfiledialog1.FileName)
- sfd.FileName = openfiledialog1.FileName
- Else
- Exit Sub
- End If
- End Sub
Der Fehler tritt immer bei "If openfiledialog1.ShowDialog = DialogResult.OK Then" auf.
Ich habe schon hier im Forum und bei Google gesucht aber bisher nichts gefunden