السلام عليكم ورحمة الله وبركاته
عندي سؤال في الفيجوال بيسك عن كيفية عرض محتويات ملف بعد فتحه بـ common dialog في
مربع نص .....
On Error GoTo err_handler cdl.ShowOpen FileName = cdl.FileName Open FileName For Input As 1 Do Until EOF(1) Line Input #1, s List1.AddItem s Text1.Text = s loop
لما اكتب الكود السابق بس ينضاف اخر كلمة في الملف في التكست السؤال هو كيف اضيف جميع محتويات الملف في التكست الحركة تضبط مع الليست بس التيكست لا
ممكن مساعدة شباب اخوكم محتاج فزعتكم
سلااااااااااام
تم تعديل هذه المشاركة بواسطة Moh@mmed في 13 أكتوبر 2005 في 04:58
السلام عليكم ورحمة الله وبركاته
Text1.Text = s
قم بتغييره الى
Text1.Text = Text1.Text & VBCRLF & s
وسوف تجد ما تريد
شريف...
;) ;) :rolleyes:
أعمل لدنياك كأنك تعيش أبداً وأعمل لأخرتك كأنك تموت غداً
أحفظ لسانك تصان كرامتك
-----------------
من مواضيعى بالمنتدى
جديد الباب الاول من كتابى المدخل الى قواعد البيانات
جديد دروس قواعد البيانات
الان حرك الماوس بواسطة الكيبورد
برنامج VB6 Projects Viewer مساعد المبرمجين
او التالى:-
Text1.Text = s & vbnewline & text1.text
والكود ده سوف يقلب التكست يعنى اللى فوق يبقى تحت واللى تحت يبقى فوق
;) ;) :rolleyes:
تم تعديل هذه المشاركة بواسطة شريف عادل في 13 أكتوبر 2005 في 05:14
أعمل لدنياك كأنك تعيش أبداً وأعمل لأخرتك كأنك تموت غداً
أحفظ لسانك تصان كرامتك
-----------------
من مواضيعى بالمنتدى
جديد الباب الاول من كتابى المدخل الى قواعد البيانات
جديد دروس قواعد البيانات
الان حرك الماوس بواسطة الكيبورد
برنامج VB6 Projects Viewer مساعد المبرمجين
هذا الموضوع مغلق.