Hi,
und zwar hab ich ein prob das ich irgendwie net lösen kann. Ich hab zwei Fenster mit dem einem öffne ich die Datei und in dem anderen Fenster soll der Dateiinhalt ausgegeben werden.Hab auch beides jetzt verknüpft nur wird mir nur in der Textbox der Pfad angeziegt wo die Datei liegt nicht was darin steht.
main.vb
Sec.vb:
So sieht meins aus wie ich es schon hab weiss nur nicht was ich umschreiben muss damit er den Textinhalt der Textdatei die ich auswähle in die Textbox schreibt.
Kann mir da evtl einer weiterhelfen?
und zwar hab ich ein prob das ich irgendwie net lösen kann. Ich hab zwei Fenster mit dem einem öffne ich die Datei und in dem anderen Fenster soll der Dateiinhalt ausgegeben werden.Hab auch beides jetzt verknüpft nur wird mir nur in der Textbox der Pfad angeziegt wo die Datei liegt nicht was darin steht.
main.vb
Code:
Public Sub mnuOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpen.Click
'Eine neue OpenFileDialog-Klasse instanzieren
Dim dateiÖffnenDialog As New OpenFileDialog
Dim currFileName As String = ""
'Dim objDateiLeser As StreamReader
'Alles Weitere bezieht sich nun darauf, bis ‘End With’
With dateiÖffnenDialog
.CheckFileExists = True ' Datei muss existieren
.CheckPathExists = True ' der Pfad ebenfalls
.DefaultExt = "*.txt" ' Standardendung ist *.TXT
'Alle angezeigten Dateifilter werden folgendermaßen angegeben
.Filter = "Log Files(*.log)|*log|Text Files(*.txt)|*.txt|Data Files(*.dat)|*.dat|All Files(*.*)|*.*"
.FilterIndex = 1
'Diese Enum-Variable nimmt das Dialogergebnis (OK, Abbrechen) entgegen
Dim dialogErgebnis As DialogResult = .ShowDialog
'Falls das Dialogergebnis 'Abbrechen' war,
If dialogErgebnis = Windows.Forms.DialogResult.Cancel Then
End If
'Falls das Dialogergebnis 'OK' war,
If dialogErgebnis = Windows.Forms.DialogResult.OK Then
currFileName = .FileName
Sec.Show()
Sec.testbox(currFileName)
End If
End With
End SubSec.vb:
Code:
Imports System
Imports System.io
Public Class Sec
Dim dateiÖffnenDialog As New OpenFileDialog
Dim currFileName As String = ""
Dim objDateiLeser As StreamReader
Public Function testbox(ByVal MyFileName As String)
TextBox1.AppendText(MyFileName)
TextBox1.SelectionStart = TextBox1.Text.Length
TextBox1.ScrollToCaret()
'With dateiÖffnenDialog
' currFileName = .FileName
'objDateiLeser = New StreamReader(currFileName)
'currFileName = objDateiLeser.ReadToEnd()
'objDateiLeser.Close()
'End With
End Function
End ClassSo sieht meins aus wie ich es schon hab weiss nur nicht was ich umschreiben muss damit er den Textinhalt der Textdatei die ich auswähle in die Textbox schreibt.
Kann mir da evtl einer weiterhelfen?
