27-08-16, 09:34 PM
مرحباً اعضاء وزوار الفيجوال بيسك لكل العرب هذا اول موضوع لي وهو كود لـ فتح ملف نصي في التكست بوكس
اولاً في اكواد الفورم لديك اول كود هو
اعلي هذا الكود قم بي اضافة الكود الاتي :-
الان نضيف اداة OpenFileDialog1 ثم نضع الكود الاتي في الزر Button
وضع به الكود :-
انتهينا
اولاً في اكواد الفورم لديك اول كود هو
كود :
Public Class Form1
اعلي هذا الكود قم بي اضافة الكود الاتي :-
كود :
Imports System.IO
الان نضيف اداة OpenFileDialog1 ثم نضع الكود الاتي في الزر Button
وضع به الكود :-
كود :
Dim oReader As StreamReader
OpenFileDialog1.CheckFileExists = True
OpenFileDialog1.CheckPathExists = True
OpenFileDialog1.DefaultExt = "txt"
OpenFileDialog1.FileName = ""
OpenFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
OpenFileDialog1.Multiselect = False
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
oReader = New StreamReader(OpenFileDialog1.FileName, True)
TextBox1.Text = oReader.ReadToEnd
End If
انتهينا