+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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وارجو ان يكون مفيد
والسلام عليكم ورحمة الله تعالى وبركاته