hanysaad

بارك الله فيك اخى ناصر على هذا الشرح الرائع

السلام عليكم شكرا لك اخى Pharaonic_Guy على رأيك وان شاء الله ربنا يوفقنى ان اكون عند حسن ظنكم جميعا وشكرا جزيلا للاخوة المشرفين على ارجاع الموضوع للقسم العام لحين انتهاء الشرح واخص بالشكر المشرف الرائع محمد المهدى :D واحب ان اطمئن جميع الاعضاء انه ربما من الشر…

شكرا جزيلا وبارك الله فيك

فى الواقع لا هو المفروض ده يحصل؟؟؟ :unsure:

هو الشرح وحش للدرجة دى؟؟ :wacko: يا جماعة ردوا عليا بأى رد وانا على استعداد لاعادة شرح اى جزئية مرات ومرات :rolleyes: :rolleyes: :rolleyes:

السلام عليكم الاخ hussein2005 شكرا على متابعتك الاخ hishamnasr شكرا على المتابعة والرد الاخ ail_fahad777 اولا شكرا لك على المتابعة بالنسبة لسؤالك ارجو ان تراجع السطور الاتية فى الكود فى الحدث Private Sub Form_Load() و اقرأ الملاحظات جيدا 'Replace '0' with the …

بالفعل يا محمد زى ما انت قلت اقترح عمل موضوع فى القسم العام لفهرسة اهم المواضيع فى قسم الدروس للفت الانظار اليها مثل موضوع الاخ عبدالله فتحى (مصادر تعليمية) او اقترح عدم نقل اى موضع الى قسم الدروس الا بعد انتهاءه (انتهاء الشرح)

السلام عليكم الاخ hussein2005 والاخ aymanmoftah شكرا جزيلا على مشاركتم كود اخر I = 1 Do While I <= MyFunction() MyNum = MyNum + I ...... Loop ' هذه أسرع MyResult = MyFunction() I = 1 Do While I <= MyResult MyNum = MyNum + I ...... Loop

السلام عليكم اخى محمد شكرا على الطريقة وطبعا انت تتكلم عنى براحتك ياباشا :D الاخ seaprince46 شكرا لك على المتابعة الاخ hussein2005 شكرا جزيلا على رأيك وصداقتك تشرفنى وتسعدنى بالطبع مرحبا بك اخ وصديق فى المنتدى

السلام عليكم الاخ hussein2005 والاخ seaprince46 شكرا جزيلا على متابعتكم

السلام عليكم شكرا على الرد يا محمد بالفعل الموضوع فى مكانه الطبيعى ولكن ما لاحظته ان قسم الدروس لا يحظى بنفس الاهتمام ونفس عدد الزيارات مثل القسم العام مش عارف ليه؟؟ :o

كود لتتبع الخطأ فى برنامجك واظهار رسالة تصف الخطأ 'بداية معالج الخطأ On Error GoTo ErrHandler 'هنا يوضع الكود 'إنهاء تتبع الأخطاء والخروج من الإجراء On Error GoTo 0 Exit Function ErrHandler: Dim strErr As String strErr = "Error " & Err.Number & " " & Err.Descr…

كود لبالونات التعليمات السريعة جديدة 'ضع هذا في موديل Option Explicit '14 May 2003 'Important: 'I am not the original author of this code and it can be found on this forum 'What I did is make additions to it so that one can change the tip, or remove it as 'you…

كود لانهاء البرنامج بطريقة صحيحة حتى لا يترك اجزاء منه فى الذاكرة 'نضع في كود زر انهاء البرنامج هذا الكود Dim f As Integer f = Forms.Count Do While f > 0 Unload Forms(f - 1) ' If form isn't unloaded exit (User had canceled...) If f = Forms.Count Then Exit Do f…

ارجو من كل الاعضاء المشاركة فى هذا الموضوع للمقارنة بين الاكواد الاسرع والابطأ فى التنفيذ وانا سأبدأ بهذه الامثلة ' هذه الشفرة بطيئة If Test1 And Test2 Then Debug.Print "صحيح" End If ' Test1 إذا لم ينجح اختبار Test2 هذه الشفرة أسرع لأنه لن يتم اختبار If Test1 …

كود جميل لإدراج صورة في قائمة Add a module to your project (In the menu choose Project -> Add Module, Then click Open) 'Add 1 Command Button And 2 Picture Boxes to your form. 'Set Picture Boxes AutoSize property to True. Add pictures to the Picture Boxes. 'Whe…

بعد انتقال الموضوع لقسم الدروس لاحظت انخفاض( وربما انعدام) حجم الردود والتفاعل مع الموضوع (انا نفسى عرفت انه انتقل قسم الدروس بالصدفة :wacko: وفى الاول ما كنتش عارف اوصل للموضوع :wacko: ) فرأيت (بعد اذن المشرفين طبعا ) ان اضع لينك له هنا فى المنتدى العام نظرا …

السلام عليكم اعتقد انه عندى كتاب عن هذا الموضوع بس اتمنى انك توضحى الموضوع اللى تريديه اكثر

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

السلام عليكم شكرا لك اخى ammar7lb على المرور