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
Kommentare zum Snippet