MoonMan

ألف مبروك أخ Undo :) :) :) أعتقد أن هذه الترقية لم تفاجئ أحدا, فأنت تستحقها بجدارة.

عذرا للتأخير.. غريب هذا الطلب, فالمعلومات التي وضعتها أنت في الموديول أعقد بكثير من هذا و تشمله, على كل, إذا كان الملف المطلوب ضمن نفس موقع البرنامج الخاص بتسجيل الأدوات ضع التالي في نهاية الإجراء Main Shell GMyPath & "Te.exe", vbNormalFocus

السلام عليكم الحدث Initialize هو أول حدث يتم إطلاقه عند إنشاء نسخة جديدة من النافذة. في هذه المرحلة كائن النافذة لم يخلق بعد, الأدوات لم تخلق. يفيد هذا الحدث في إعطاء بعض القيم الإبتدائية للمتحولات العمومية أو الخصائص المنشئة من قبل المستخدم(وليس الخصائص الخاص…

الموديول بعد التعديل. جرب و أخبرني بالنتيجة. Register.zip

السلام عليكم ممتاز أخ Buffer, الآن احلو الكلام... كونك طالب طب فهذا يعني أنك تنطلق من أرضية صحيحة. معك حق في هذا, و لا خلاف, فأنا لم أكن أقلل من أهمية المشروع أو أثبط من عزيمتك, بل على العكس أنا جدا متحمس له, و لكني كنت أضع مجرد خطوط عريضة على هامش المشروع,من …

تحياتي لأعضاء المنتدى الكرام... بحكم كوني أدرس في المجال الطبي أريد أن أعطي رأيي في المشروع.. بالنسبة لعملية ربط الجهاز بالحاسب لا يوجد لدي أدنى فكرة عن إمكانية عمل ذلك, سيما و أن أجهزة التخطيط مختلفة بعضها قديم و بعضها حديث .. إلخ أريد أن أقدم نبذة عن جهاز ال…

السلام عليكم أخ Undo أعتقد أني وجدت الحل: نقسم الزجاجات إلى ثلاث مجموعات : هي م1(تحتوي الزجاجات من ز1 حتى ز4), م2 (ز5 حتى ز8), م3 (ز9 حتى ز12) الميزان الأول: نقارن المجموعة م1 مع المجموعة م2 فنجد الحالات التالية: *الحالة الأولى: و هي الأبسط, تساوي المجموعتين, …

في الحقيقة لا أعرف ما الفائدة من حفظ نتيجة الإحتمالات في ملف طالما يمكن استنتاجها برمجيا. على كل لقد قمت بتحضير مثال يقوم بإعطائك الإحتمالات طالما أنها أصغر من العدد 999999999999999 لماذا؟ لأنه متى زاد عدد خانات الرقم عن 15 ظهر بالشكل +E و بالتالي سيأكل بعض ال…

رد للسؤال الثاني : إن الحل الأمثل لمشاكل من هذا النوع هو التالي ( مع الخاصية CausesValidation=True للتيكست بوكس) Private Sub Text1_Validate(Cancel As Boolean) If Trim(Text1.Text) = "" Then MsgBox "invalid data", vbExclamation Cancel = True End If End Sub لكنك …

في الحقيقة لا أعرف

إذهب إلى الرابط التالي /index.php?showtopic=43261 وهو لأكسس فقط بجميع إصداراته فقد قام الأخ Baihan مشكورا بوضع البرنامج مع الكود!!

مرحبا أخي الصاعق كنت قد صممت برنامجا يقوم باستعراض المجلدات في أداة الشجرة و الملفات في ليستة منذ عدة أشهر لكن لغرض آخر , ولم أعد أذكر بالضبط ماذا فيه , مشكلته أنه يحتوي على تعقيد غير مبرر و بعض الكود الذي فيه غير مقروء بشكل جيد . على كل سأضعه كما هو قد تستفيد…

جرب الكود المرفق MultiLevelChild.zip

مشكور أخ BESHEER على الرد لكن إعذرني فأنا مبتدئ جداً في لينكس و لم أعرف ماذا تقصد بالكرنل , على كل سأخبرك ماذا فعلت: لقد قمت بعمل ما ذكرت و مشيت معه حتى وصلت إلى شاشة تشبه الدوس (أعتقد أنها الـ Shell ) ينتظر مني أن أكتب , مكتوب فيها: Your system is mounted und…

تحياتي... مشكلتي باختصار هي التالية: لقد قمت بتنصيب Win98 ثم قمت بتنصيب WinXp فأصبح لدي نظامي تشغيل لكل منهما استعمالات. بعد ذلك قررت أن أعرف ما هو Linux فقمت بتنصيبه (Red hat 9) و خلال عملية التنصيب كان هنالك خيار للإقلاع من القرص المرن , و هو ما فعلت . و بذل…

مرجع رائع !!!! شكرا

أخي abasy الكود صحيح , كل ما عليك فعله هو نسخ الكود و لصقه الفورم بعد أن تضيف 4 أزرار و 4 أداة عنوان و 4 أداة نص . ثم أنني طرحت فكرة عليك فهمها و حسب دون التقيد حرفياً بما كتبت . إنك مبتدأ في الفيجوال. أليس كذلك؟

رغم أنني انصعقت عندما عرفت أن حذف العقد (خاصة العقد الجذرية ) ضمن حلقة For أسرع من المنهج Clear (الغبي جداًً جداًً و العديم الفائدة و الحال هذه) كما نوه الأخ Maverick, فهذا آخر ما كان يخطر ببالي , إلا أن ما قدمته أخ مجرد إنسان هو بالضبط 100% ما كنت أبحث عنه Th…

رغم أن الكود الذي كتبته فيه بعض الغموض إلا أنه من الواضح أن A1,A2 ... هي عبارة عن أدوات , و إذا كانت هذه الأدوات من نفس النوع فإنني أنصحك أن تعتمد الـ Control Array مصفوفة الأدوات بدلا من ذلك ومن ثم الدخول في حلقة For لترتيبهم. و إذا كانت الأدوات من أنواع مختل…

مشكور أخ Maverick في الواقع لم أكن أتوقع أبداً أن حذف العقدة بهذه الطريقة أسرع من إستعمال المنهج Clear حتى أني لم أجربها.