+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=27133)
كود سحب النص من مستند نصي خارج المشروع - ahmadpal - 27-10-18
نقوم بانشاء تكست بوكس وليكن بحجم كبير حتى يتمكن لنا ادراج نص طويل بداخلة ثم نقوم بانشاء زر لجلب التكست الخارجي ونقوم باضافة الكود التالي داخل الحدث click
كود :
Dim ahmad As New OpenFileDialog
ahmad.Filter = "Text file (*.txt)|*.txt"
ahmad.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
If ahmad.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
Dim myfile As String = ahmad.FileName
Dim reader As New System.IO.StreamReader(myfile)
TextBox1.Text = reader.ReadToEndRE: كود سحب النص من مستند نصي خارج المشروع - حريف برمجة - 28-10-18
بارك الله فيك ،، بالتوفيق للجميع
RE: كود سحب النص من مستند نصي خارج المشروع - الحمد لله - 10-11-18
استمر بارك الله بك