عمل شكل كمدرب طباعه " أرجو المســاعدة "

الكاتب : عصام الخليدي   المشاهدات : 503   الردود : 3    ‏2004-06-03
      مشاركة رقم : 1    ‏2004-06-03
  1. عصام الخليدي

    عصام الخليدي عضو

    التسجيل :
    ‏2004-06-03
    المشاركات:
    2
    الإعجاب :
    0
    عمل شكل كمدرب طباعه

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


    عصام الخليدي
     
  2.   مشاركة رقم : 2    ‏2004-06-03
  3. رمال الصحراء

    رمال الصحراء مشرف سابق

    التسجيل :
    ‏2002-09-30
    المشاركات:
    11,312
    الإعجاب :
    1
    وعليكم السلام ورحمة الله وبركاته..

    ننقل المشاركة حيث مكانها الصحيح وبإذن الله أخي الكريم يساعدك الكرام في قسم الكمبيوتر .. :)

    تحية وتقدير..
    رمال الصحراء،،
     
  4.   مشاركة رقم : 3    ‏2004-06-06
  5. الصمود

    الصمود قلم فضي

    التسجيل :
    ‏2003-02-12
    المشاركات:
    3,693
    الإعجاب :
    0
    الله أعلم
    =======
    هذة ما نعرفها وإذا لي عمر إن شاء الله سأعود للموضوع وأضع روابط تجد فيها الحلول إن شاء الله تعالى
    =========
    الله يوفقك
     
  6.   مشاركة رقم : 4    ‏2004-06-07
  7. نجيب المجيدي

    نجيب المجيدي عضو فعّال

    التسجيل :
    ‏2003-12-08
    المشاركات:
    527
    الإعجاب :
    0
    بسم الله الرحمن الرحيم
    السلام عليكم ورحمة الله وبركاته

    أولاً دعني أرحب بك أخي عصام بين إخوانك و أخواتك أعضاء المجلس اليمني و الذي أتمنى أن تستفيد منه ويستفيد جميع الأعضاء ...

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

    عموماً هذا هو الكود وقد عملته على عجل ولكن أعتقد أنه يفي بالغرض وتستطيع تطويره إلى الشكل المطلوب





    [align=left]
    كود:
    Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    'نقوم هنا بإعادة اللون الأصلي لأزرار الأوامر
    For i = 0 To 7
         cmdkeys(i).BackColor = vbButtonFace
    Next
    'نحدد أي زر تحكم تم  الضغط عليه في لوحة المفاتيح
    'ثم نقوم بتغيير لونه
    'يجب تغيير خاصية
    'style لأزرار الأورامر
    'إلى grafical
    Select Case (KeyCode)
    
        Case 16: cmdkeys(5).BackColor = vbRed 'Shift
        Case 17: cmdkeys(6).BackColor = vbRed 'Ctrl
        Case 18: cmdkeys(7).BackColor = vbRed 'Alt
        
    End Select
    
    End Sub
    
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    'نقوم هنا بإعادة اللون الأصلي لأزرار الأوامر
    For i = 0 To 7
         cmdkeys(i).BackColor = vbButtonFace
    Next
    'الأحرف و الرموز و الأرقام ويمكن مراجعة جدول رموز
    'Ascii
    'للتعرف على الرمز الخاص بكل حرف
    Select Case (KeyAscii)
        Case Asc("a"): cmdkeys(0).BackColor = vbRed
        Case Asc("b"): cmdkeys(1).BackColor = vbRed
        Case Asc("c"): cmdkeys(2).BackColor = vbRed
        Case Asc("d"): cmdkeys(3).BackColor = vbRed
        Case Asc("e"): cmdkeys(4).BackColor = vbRed
    End Select
    
    End Sub
    طبعاً تلاحظ أنني وضعت خمسة أحرف كمثال وتستطيع وضع بقية الأحرف بنفس الطريقة و أيضاً أزرار التحكم

    مرفق أيضاً ملف المشروع لتتأكد من عمله

    تحياتي , وإذا كان لديك أي استفسار فلا تتردد


    السلام عليكم ورحمة الله وبركاته
     

مشاركة هذه الصفحة