• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

abd4web

اعضاء جدد
  • عدد المشاركات

    5
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

1 عادي

عن abd4web

  • الرتبة
    عضو جديد
  • تاريخ الميلاد 07/01/1970

معلومات الملف الشخصي

  • الجنس ذكر
  • اهتمامات البرمجة و الشبكات

طرق الإتصال

  1. كورس ado او Data Access من الصفر للاحتراف

    جزاك الله خير على المجهود الرائع ويجعله في ميزان حسناتك طلب بسيط اذا امكن ان ترفق المثال المشروح بالكامل
  2. Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{Tab}" Select Case KeyAscii Case 48 To 57 ' Allow digits Case 8 ' Allow backspace Case 46 ' Allow period (.) Case Else KeyAscii = 0 Beep End Select End Sub هذه الارقام عبارة عن الاسكي كود للوحة المفاتيح مثال : KeyAscii = 13 تعني اذا ضغط Enter انتقل الى التالي من الحقول من 48 الى 57 الارقام و 8 ومفتاح المسافة اي ادخال مسافة في الحقل و 46 استخدام الفاصل العشرية من لوحة المفاتيح KeyAscii = 0 تعني اذا ادخل غير هذا اوقف الادخال وشكراً
  3. Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{Tab}" Select Case KeyAscii Case 48 To 57 ' Allow digits Case 8 ' Allow backspace Case 46 ' Allow period (.) Case Else KeyAscii = 0 Beep End Select End Sub هذه زيادة من عندي وما اوتيت من العلم الا قليلاً
  4. برنامج بنك الاكواد

    اسأل الله العظيم رب العرش العظيم ان يبارك فيك .... :calc: من فظلك اريد بريدك اللألكتروني و شكراً