[wolf1120]

السلام علكيم  ورحمة الله وبركته 

الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس

كود :

Imports System.IO


Public Class Form1


   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


       Dim oReader As StreamReader

       OpenFileDialog1.CheckFileExists = True
       OpenFileDialog1.CheckPathExists = True
       OpenFileDialog1.DefaultExt = "BIN"
       OpenFileDialog1.FileName = ""
       OpenFileDialog1.Filter = "Text Files (*.BIN)|*.BIN|All Files (*.*)|*.*"
       OpenFileDialog1.Multiselect = False

       If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
           oReader = New StreamReader(OpenFileDialog1.FileName, True)
           ListBox1.Text = oReader.ReadToEnd
       End If
   End Sub




 
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim oReader As StreamReader

       SaveFileDialog1.CheckFileExists = True
       SaveFileDialog1.CheckPathExists = True
       SaveFileDialog1.DefaultExt = "BIN"
       SaveFileDialog1.FileName = ""
       SaveFileDialog1.Filter = "Text Files (*.BIN)|*.BIN|All Files (*.*)|*.*"
       SaveFileDialog1.Multiselect = False

       If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
           oReader = New StreamReader(OpenFileDialog1.FileName, True)
           ListBox1.Text = oReader.ReadToEnd
       End If
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   End Sub
End Class

اريد عرض ملف مرفق مع السورس 
في الليست بوكس

واريد بروقرام بار يعمل مع طريقة العرض


تم نعديل المرفق