[[ Ebram Nagy ]]

مرحباً اعضاء وزوار الفيجوال بيسك لكل العرب   هذا اول موضوع لي   وهو كود لـ فتح ملف نصي في التكست بوكس

اولاً في اكواد الفورم لديك اول كود هو

كود :

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

انتهينا 

[أبوبكر سويدان]

يعطيك الصحة. بارك الله فيك.

[[ Ebram Nagy ]]

(27-08-16, 09:56 PM)أبوبكر سويدان كتب : يعطيك الصحة. بارك الله فيك.

شكرا لمرورك