Feedback

Datei-Inhalt anzeigen

VB - Hardt Oktober 24, 2007
1 Ratings 4.5/5

Sprache: VB

Die ByteViewer Klasse ermöglicht es mit wenigen Code-Zeilen den Inhalt einer Datei anzuzeigen (Hex-Format, Ansi-Format oder Unicode-Format). Es ist wird ein Verweis auf die System.Design.dll benötigt. 
Imports System.ComponentModel.Design
'---------------------------------------------------------------------------------

' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen 
' Element einbinden 

Viewer.Location = New System.Drawing.Point(10, 10)
' Feste Breite kann nicht verändert werden ! 
Viewer.Height = 400
Viewer.ForeColor = System.Drawing.SystemColors.WindowText
Viewer.BackColor = System.Drawing.Color.AliceBlue
Viewer.Visible = True
Viewer.SetDisplayMode(DisplayMode.Hexdump)

Me.Controls.Add(Viewer)

'----------------------------------------------------------------------------------

Dim Viewer As New System.ComponentModel.Design.ByteViewer
 
Private Sub ShowFileContent(ByVal filename As String)

   Try
      Viewer.SetFile(filename)
      Viewer.SetStartLine(0)

   Catch ex As System.IO.IOException
      MessageBox.Show(ex.Message, _
                                 "Fehler", _
                                 MessageBoxButtons.OK, _
                                 MessageBoxIcon.Error)

   End Try

End Sub

Imports System.ComponentModel.Design
'---------------------------------------------------------------------------------

' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen 
' Element einbinden 

Viewer.Location = New System.Drawing.Point(10, 10)
' Feste Breite kann nicht verändert werden ! 
Viewer.Height = 400
Viewer.ForeColor = System.Drawing.SystemColors.WindowText
Viewer.BackColor = System.Drawing.Color.AliceBlue
Viewer.Visible = True
Viewer.SetDisplayMode(DisplayMode.Hexdump)

Me.Controls.Add(Viewer)

'----------------------------------------------------------------------------------

Dim Viewer As New System.ComponentModel.Design.ByteViewer
 
Private Sub ShowFileContent(ByVal filename As String)

   Try
      Viewer.SetFile(filename)
      Viewer.SetStartLine(0)

   Catch ex As System.IO.IOException
      MessageBox.Show(ex.Message, _
                                 "Fehler", _
                                 MessageBoxButtons.OK, _
                                 MessageBoxIcon.Error)

   End Try

End Sub
Abgelegt unter Datei

Alte URL: /snippet/datei-inhalt-anzeigen/649