السلام علكيم ورحمة الله وبركته
الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس
اريد عرض ملف مرفق مع السورس
في الليست بوكس
واريد بروقرام بار يعمل مع طريقة العرض
تم نعديل المرفق
الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس
كود :
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
اريد عرض ملف مرفق مع السورس
في الليست بوكس
واريد بروقرام بار يعمل مع طريقة العرض
تم نعديل المرفق