[The Light Fire]

السلام عليكم احتاج مساعدة

كيف اخلي برنامجي يفتح ملف نصي و يعرضه في تكست بوكس

تكفون ساعدوني 

[ابراهيم النعيمي]

استخدم السطر التالي:

PHP كود :

TextBox1.Text = File.ReadAllText("d:\123.txt") 


مع استبدال (d:\123.txt) بمسار و اسم الملف النصي عندك
للتذكير / يجب استخدام المجال (Imports System.IO)
تحياتي ..

[فارس جراح]

ضع هذا الكود في Button

كود :

Dim op As New OpenFileDialog
       op.Filter = "*.txt|*.txt"
       If op.ShowDialog = Windows.Forms.DialogResult.OK Then
           TextBox1.Text = IO.File.ReadAllText(op.FileName)
       End If

[The Light Fire]

(26-11-16, 11:01 PM)فارس جراح كتب : ضع هذا الكود في Button

كود :

Dim op As New OpenFileDialog
       op.Filter = "*.txt|*.txt"
       If op.ShowDialog = Windows.Forms.DialogResult.OK Then
           TextBox1.Text = IO.File.ReadAllText(op.FileName)
       End If

جزاك الله خير 

[The Light Fire]

(25-11-16, 12:28 AM)ابراهيم النعيمي كتب : استخدم السطر التالي:

PHP كود :

TextBox1.Text = File.ReadAllText("d:\123.txt") 


مع استبدال (d:\123.txt) بمسار و اسم الملف النصي عندك
للتذكير / يجب استخدام المجال (Imports System.IO)
تحياتي ..

معليش بس ما اشتغل الكود 

[ali.alfoly]

جرب

كود :

TextBox1.Text = My.Computer.FileSystem.ReadAllText("d:\123.txt")