mostafazidani

اولا في الفورم لود picture1.fillstyle=vbsloid معناها ان اي نقطة سوف ترسم على الاداة لن تكون فارغة من الداخل وبالتالي ستكون كأنه جسم صلب اما في الحدث mousemove if button=1 then معناها انه اذا كان الزر الأ يسر للماوس مضغوطا فإنه picture1.circle(x,y),3,label1.bac…

عموما اذا كان هناك عدة سطور في الاداة فإنه تلقائيا ستظهر على الورقة كما هي

البرنامج بعد التعديل لكن احب ان انبه ان الصورة التي تعرض سوف تحذف كليا من الجهاز بعد عرض الصورة التاليه بحيث تعرض الصورة التاليه مع حذف الصورة السابقة من الجهاز picture viewer.zip

اسف على التاخير لقد سبقني بها اخي vb6-rocket

سأبحث لك إن شاء الله لانه نسيته بالضبط لكن سيكون الرد سريع بإذن الله

ياسلام عليكي يااختي بنت اليمن دائما تقدمين الرائع شكرا لك

اميييييييييييين

يمكنك الطباعة عن طريق الامر التالي richtextbox1.selprint=printer.hdc

ارجو من اخي vb6rocket و اخي ghost ومن جميع الاعضاء الرجاء الحار مناقشة موضوع التحميل من الانترنت على شكل خطوات تبين الفكرة والعمليه التي تتم مثلا التحكم بسرعة التحميل وما الى ذلك من الامور التي تخص التحميل اكرر رجائي

في الخدمة اخي امير البحر حيث كان الخطأ هو خطأ املائي فقط

اخي جرب هذا الكود بعد التعديل لاتنسى ان تضيف لست بوكس طبعا dim fs as new filesystemobject dim fold dim subfold dim fo set fold=fs.getfolder(folderpath) set subfold=fold.subfolders for each fo in subfold list1.additem fo.name next

اتمنى ان يعجبك اخي coloring pic.zip

ماهي الاداة التي تستخدمها في التعامل مع قاعدة البيانات لديك

رائع اخي هيثم وبارك الله فيك

اولا اضف microsoft script run time من قائمة project->reference->microsoft script runtime ثم اكتب الكود التالي في زر الامر dim fs as new filesystemobject dim fold dim subfold dim folders set fold=fs.getfolder(folderpath) set subfold=fold.subfolders for each fol…

edit text file

هياسلام عليك يامبرمج احمد دائما تقدم الرائع الف شكر لك

اذا كان القصد من كلمة فورم جديد هو مشروع اخر standard exe فلابد من اضافة microsoft script runtime من project->reference->microsoft script runtime اما اذا كان القصد هو فورم جديد داخل البرنامج الذي انا عملته فلم تواجهني هذه الرسالة حقيقة ولكن سأرى إن شاء الله

الرجاء لمن حمل البرنامج ان يعطيني رأيه بصراحة لانه حاولت فيه الى ان اصبح بهذا الشكل

اخي ميثم نستخدم replace اذا اردنا ان نستبدل كلمة او نص موجود بدون التأثير على بقية النص مثلا لو كان لدينا النص التالي text1.text="you are in the programming world " واردنا ان نستبدل الكلمة world الى forum فتكون الصيغة كالتالي text1.text=replace(text1.text,"wor…