[تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94) +--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167) +--- الموضوع : [تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس (/showthread.php?tid=6715) |
[تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس - عاشق الفيجوال - 27-10-12 بسم الله الرحمن الرحيم اريد كود يعرض مايحتويه ملف txt الي هو (notepad) في text محدد يعني مثلا انا عملت notepad وحفظتها باسم am.txt اريد البرنامج يعرض مايحتويه am.txt في label او textbox :confused: [تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس - nablion - 27-10-12 TextBox1.Text = My.Computer.FileSystem.ReadAllText("c:\1.txt") [تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس - عاشق الفيجوال - 27-10-12 nablion كتب :TextBox1.Text = My.Computer.FileSystem.ReadAllText("c:\1.txt") مايشتغل الكود هذا الكود اظنه ل فيجوال دوت نت [تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس - ناجي إبراهيم - 28-10-12 السلام عليكم... ضع كود الدالة التالية في Module لاستخدامها في أكثر من Form واحدة (إذا كنت ستستعملها في Form واحدة فقط فيمكنك وضعها في بداية كود الـ Form و جعلها Private بدل Public): كود : Public Function OpenTextFile(ByVal AFilePath As String) As String و لاستعمالها قم باستدعائها. مثلاً لدينا مربع نص Text1 (مع الخاصية MultiLine مضبوطة على True) و زر أمر. الكود التالي يعمل على فتح الملف المحدد بالمسار C:\Setup.log عند النقر على الزر: كود : Private Sub Command1_Click() * طبعاً عند استدعاء الدالة سترسل لها مسار الملف الذي تريده. إذا كنت تصنع برنامج مثل المفكرة (NotePad) فبالتأكيد ستستعمل المكون CommonDialog لتسمح للمستخدم باحتيار الملف الذي يريد فتحه، و بعد الحصول على مسار الملف (باستخدام الـ CommonDialog أو غيره) ترسله إلى الدالة لفتحه و الحصول على محتوياته النصية و عرضها في مربع النص. نرجو الاستفادة و السلام. [تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس - nablion - 28-10-12 بعد اذن الاستاذ الكبير ناجي ابراهيم كود اخر يقوم بالمهمه Private Sub Command1_Click() Dim FileName As String Dim f As Integer FileName = "C:\README.TXT" f = FreeFile 'Get a file handle Open FileName For Input As f 'Open the file Text1.Text = Input$(LOF(f), f) 'Read entire file into text box Close f 'Close the file. End Sub [تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس - samy666 - 16-11-12 الكود جميل ومفيد حقا - وياريت لكى تكون الفائدة اكبر - هل يمكن تطبيق نفس الفكرة فى ملف وورد - اى نريد مثلا ننقل فقرة محددة او كل ماتحتوية صفحة الوورد فى تكست بوكس - منتظ الرد ولكم جزيل الشكر |