Hi,
Wenn ich eine z.B. .vb datei öffne, wird diese nicht in meinem Editor angezeigt...
Wo liegt der Fehler?
mfg
gfc
Wenn ich eine z.B. .vb datei öffne, wird diese nicht in meinem Editor angezeigt...
VB.NET-Quellcode
- Sub Oeffnen()
- With OpenFileDialog1
- .Filter = "DOS-Batch (*.bat)|*.bat|VisualBasicScript (*.vbs)|*.vbs|HTMLEditor (*.html)|*.html|VB-Editor (*.vb)|*.vb|Textdocument (*.txt)|*.txt|AlleDateien (*.*)|*.*"
- .FilterIndex = 2
- .FileName = ""
- Dim dlgresult As DialogResult = .ShowDialog
- If dlgresult = Windows.Forms.DialogResult.Cancel Then
- Exit Sub
- End If
- If OpenFileDialog1.FilterIndex = ".bat" Then
- PictureBox5.Visible = True
- ElseIf OpenFileDialog1.FilterIndex = ".vbs" Then
- PictureBox1.Visible = True
- ElseIf OpenFileDialog1.FilterIndex = ".html" Then
- PictureBox2.Visible = True
- ElseIf OpenFileDialog1.FilterIndex = ".vb" Then
- PictureBox4.Visible = True
- ElseIf OpenFileDialog1.FilterIndex = ".txt" Then
- PictureBox3.Visible = True
- End If
- Try
- Me.CodeEditorControl1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Es ist ein Fehler aufgetreten", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
- End With
- End Sub
Wo liegt der Fehler?
mfg
gfc