معلّمي الفاضل، يا مَن زرعت في عقولنا حبَّ البرمجة والمعرفة، ومهَّدتَ لنا الطريق كي نصلَ إلى أعلى المراتب، نقدّم لك رسالة شكرٍ ملؤها المحبّة الخالصة والامتنان الكبير، وهي رسالة من قلوب الاشخاص الذين طالما تعبت لأجلهم، وطالما قدمت لهم العون والمساعدة دون كللٍ أو ملل، وإننا اليوم يا استاذنا الفاضل نخطّ لك أجمل العبارات والأمنيات، ونرفع إليك حروفنا المرصعة بمعاني الحب لنقول لك: شكرًا، رغم أن كلمة شكرًا كلمة صغيرة لا توفيك حقّك أبدًا، ولا تُعوضك عن تعبك المتواصل معنا، فأنت من أعطيتنا شغف حب البرمجة، وأنت من حرصت على أن نكون دومًا في الطليعة، ووضعتنا على الطريق الصحيح، وأغدقت علينا من نور علمك الكثير. اخي احمد منصور الفاضل، إنّ بناءَ العقول أصعب أنواع البناء، ونُشهد الله أنكَ قد بنيت عقول أجيالٍ كثيرة، وأدّيت الأمانة على أكملِ وجه، وصقلت شخصياتنا بما يليقُ , واليوم أصبح الكثير منا ممن يُشار إليه بالمبرمجين في إنجازاته وعلمه وفكره، وكلّ هذا بسببك أنتِ؛ لأنك وضعتنا في الاتجاه الصحيح عندما تاهت منا الاتجاهات، وأرشدتنا إلى منابع العلم
لك حبنا واحترامنا اخونا احمد منصور
المثال شغال حلاوة
احترمك
السلام عليكم ورحمة الله وبركاته
أهلا بك أخي الكريم , العفو أخي الكريم , شكرا جزيلا لك أخي على هذه الكلمات الطيبه وفعلا هذا مانطمح إليه ونرجوه من تقديم يد المساعده والعون للإخوه الأعضاء وما يتم من تبادل الخبرات فيما بيننا وأكيد قبل كل ذلك نرجو من الله سبحانه وتعالى الرضى وما عنده من الأجر , بارك الله فيك أخي الكريم وجزاك الله كل خير , وأرجو من الله لك دوام التوفيق والنجاح .
العفو اخي واستاذي احمد منصور مفتاح F9 لم يعد يعمل مثل ماكان
ولم استطع تعديلة
الجنرال
PHP كود :
Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
في Timer2
PHP كود :
Private Sub Timer2_Timer()
If Getasynckeystate(120) Then
ItemsID = ""
Form4.Show 1
fox.TextMatrix(fox.Row, 0) = ItemsID
If ItemsID > 0 Then
fox.Rows = fox.Rows + 1
End If
End If
If fox.TextMatrix(fox.Rows - 1, 0) = "" And fox.TextMatrix(fox.Rows - 2, 0) = "" Then
fox.RemoveItem (fox.Rows - 1)
End If
End Sub
في الفورم لود
عند تكملة التصميم وتجربته بادخال رقم الصنف يدوي تمام مافي مشكلة
ولكن بعد تجربتي لF9
اتضح انه لا يعمل مع ان الكود شغال في المثال قبل مساعدتك لي
والله مستحي جداً منك اخي على اسئلتي الكثيرة
والعفو منك
حد يحل لي المشكلة دي واكون له شاكراً
تم حل المشكلة
جزاكم الله خير
أهلا بك أخي الكريم , أرجو المعذره منك لم أنتبه لردك , المشكلة أنني قمت بتعطيل Timer2 ونسيت أن أعيد تفعيله أرجو المعذره وأعتقد أن التايمر هو الذي يقوم بمرقبة مفتاح F9 إذا تم ضغطه , أرجو من الله لك دوام التوفيق والنجاح .
نقلت الكود من ضمن
Private Sub fox_KeyDown(KeyCode As Integer, Shift As Integer)
واستغنيت عن التايمر
شكراً جزيل لك
احترمك
اخزاني الاعزاء عندي طلب بسيط عرض اسم الوحدة بدلا من رقم الوحدة فقط في الفليكس جريد
فقط كعرض
تما الاضافة والحذف والتعديل ساقوم انا بعملة
[
attachment=23117]
أهلا بك أخي الكريم , تم تعديل المثال .
شكراً اخي الكريم احمد منصور
هذا البرنامج برنامجك لانه 97% من برمجتك
شكراً لك وجزاك الله خير