Feedback

VB - Datei-Inhalt anzeigen

Veröffentlicht von am 24.10.2007
(1 Bewertungen)
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

Abgelegt unter Datei.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!