منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] فتح ملف نصي في التكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] فتح ملف نصي في التكست بوكس (/showthread.php?tid=17023)

فتح ملف نصي في التكست بوكس - [ Ebram Nagy ] - 27-08-16

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

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

كود :
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



انتهينا  Cool

RE: فتح ملف نصي في التكست بوكس - أبوبكر سويدان - 27-08-16

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

RE: فتح ملف نصي في التكست بوكس - [ Ebram Nagy ] - 27-08-16

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

شكرا لمرورك  Heart