منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود قصير مفيد ( قارئ txt ) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : كود قصير مفيد ( قارئ txt ) (/showthread.php?tid=8245)



كود قصير مفيد ( قارئ txt ) - علاء الاكرمي - 30-03-13

السلام عليكم ورحمة الله تعالى وبركاته

اليوم انا جبت لكم كود هو صراحة لما دون المتوسط لكنه جميل ويستفاد منه

كود يقرأ ال مفكرة

انشئ كومند بوتن واكتب :

كود :
Open "وضع هنا امتداد المفكرة" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1

مثل :
كود :
Open "C:\Users\Alaa\Desktop\1.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1


وارجو ان يكون مفيد

والسلام عليكم ورحمة الله تعالى وبركاته