إعـــــــلان

تقليص
لا يوجد إعلان حتى الآن.

لوحة المفاتيح و Menu

تقليص
هذا الموضوع مغلق.
X
X
 
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة

  • لوحة المفاتيح و Menu

    السلام عليكم ورحمة الله وبركاته
    كيف افتح عامود Menu باستعمال لوحة المفاتيخ
    مثلا المفتاح Alt لاختيار الفتح



  • #2
    نتابع معك للاستفادة ...
    موفق بإذن الله ... لك مني أجمل تحية .

    تعليق


    • #3
      لا أعرف موفق

      تعليق


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

        ضع فى الحدث " On Key " على سبيل المثال :

        كود:
        --
        if e_Modifiers.alt then
            tblMenu = {};
          tblMenu[1] ={};
          tblMenu[1].Text = "Action Wizard...";
          tblMenu[1].ID = 100;
          tblMenu[1].IconID = 0;
          tblMenu[1].Checked = false;
          tblMenu[1].Enabled = true;
         
          tblMenu[2] ={};
          tblMenu[2].Text = "Edit Action...";
          tblMenu[2].ID = 101;
          tblMenu[2].IconID = 1;
          tblMenu[2].Checked = false;
          tblMenu[2].Enabled = true;
          
          tblMenu[3] ={};
          tblMenu[3].Text = "Insert";
          tblMenu[3].ID = 102;
          tblMenu[3].IconID = -1;
          tblMenu[3].Checked = false;
          tblMenu[3].Enabled = true;
          
          tblMenu[4] ={};
          tblMenu[4].Text = "Quick Scripts";
          tblMenu[4].ID = 102;
          tblMenu[4].IconID = -1;
          tblMenu[4].Checked = false;
          tblMenu[4].Enabled = true;
          
          tblMenu[5] ={};
          tblMenu[5].Text = "Property Tables";
          tblMenu[5].ID = 103;
          tblMenu[5].IconID = -1;
          tblMenu[5].Checked = false;
          tblMenu[5].Enabled = true;
          
          tblMenu[6] ={};
          tblMenu[6].Text = "---";
          
          tblMenu[7] ={};
          tblMenu[7].Text = "Cut";
          tblMenu[7].ID = 104;
          tblMenu[7].IconID = 2;
          tblMenu[7].Checked = false;
          tblMenu[7].Enabled = true;
          
          tblMenu[8] ={};
          tblMenu[8].Text = "Copy";
          tblMenu[8].ID = 105;
          tblMenu[8].IconID = 3;
          tblMenu[8].Checked = false;
          tblMenu[8].Enabled = true;
        
          tblMenu[9] ={};
          tblMenu[9].Text = "Paste";
          tblMenu[9].ID = 104;
          tblMenu[9].IconID = 4;
          tblMenu[9].Checked = false;
          tblMenu[9].Enabled = true;
          
          tblMenu[10] ={};
          tblMenu[10].Text = "Delete";
          tblMenu[10].ID = 105;
          tblMenu[10].IconID = 5;
          tblMenu[10].Checked = false;
          tblMenu[10].Enabled = true;
         
          tblMenu[11] ={};
          tblMenu[11].Text = "---";
          
          tblMenu[12] ={};
          tblMenu[12].Text = "Select All";
          tblMenu[12].ID = 105;
          tblMenu[12].IconID = -1;
          tblMenu[12].Checked = false;
          tblMenu[12].Enabled = true;
          
          nRes = Application.ShowPopupMenu(0, 0, tblMenu, TPM_RIGHTALIGN, TPM_TOPALIGN, true, false);
        end
        على أن تغير قيمة البو إس "X و Y" فى الكود Application.ShowPopupMenu بما يناسبك أو بطريقتك الخاصة للحصول عليهما كمتغيرات من أحداث أخرى فى الكود جعلتهما 0 .

        عاين مشروعك وإضغط على الزر ALT تظهر لك القائمة الخاصة بنا والتى تم بنائها طبقا لحاجتنا
        بالتوفيق
        التعديل الأخير تم بواسطة عبود عبود; الساعة 16-01-2016, 10:10 PM.

        تعليق


        • #5
          المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة
          السلام عليكم ورحمة الله وبركاته

          ضع فى الحدث " On Key " على سبيل المثال :

          كود:
          --
          if e_Modifiers.alt then
              tblMenu = {};
            tblMenu[1] ={};
            tblMenu[1].Text = "Action Wizard...";
            tblMenu[1].ID = 100;
            tblMenu[1].IconID = 0;
            tblMenu[1].Checked = false;
            tblMenu[1].Enabled = true;
           
            tblMenu[2] ={};
            tblMenu[2].Text = "Edit Action...";
            tblMenu[2].ID = 101;
            tblMenu[2].IconID = 1;
            tblMenu[2].Checked = false;
            tblMenu[2].Enabled = true;
            
            tblMenu[3] ={};
            tblMenu[3].Text = "Insert";
            tblMenu[3].ID = 102;
            tblMenu[3].IconID = -1;
            tblMenu[3].Checked = false;
            tblMenu[3].Enabled = true;
            
            tblMenu[4] ={};
            tblMenu[4].Text = "Quick Scripts";
            tblMenu[4].ID = 102;
            tblMenu[4].IconID = -1;
            tblMenu[4].Checked = false;
            tblMenu[4].Enabled = true;
            
            tblMenu[5] ={};
            tblMenu[5].Text = "Property Tables";
            tblMenu[5].ID = 103;
            tblMenu[5].IconID = -1;
            tblMenu[5].Checked = false;
            tblMenu[5].Enabled = true;
            
            tblMenu[6] ={};
            tblMenu[6].Text = "---";
            
            tblMenu[7] ={};
            tblMenu[7].Text = "Cut";
            tblMenu[7].ID = 104;
            tblMenu[7].IconID = 2;
            tblMenu[7].Checked = false;
            tblMenu[7].Enabled = true;
            
            tblMenu[8] ={};
            tblMenu[8].Text = "Copy";
            tblMenu[8].ID = 105;
            tblMenu[8].IconID = 3;
            tblMenu[8].Checked = false;
            tblMenu[8].Enabled = true;
          
            tblMenu[9] ={};
            tblMenu[9].Text = "Paste";
            tblMenu[9].ID = 104;
            tblMenu[9].IconID = 4;
            tblMenu[9].Checked = false;
            tblMenu[9].Enabled = true;
            
            tblMenu[10] ={};
            tblMenu[10].Text = "Delete";
            tblMenu[10].ID = 105;
            tblMenu[10].IconID = 5;
            tblMenu[10].Checked = false;
            tblMenu[10].Enabled = true;
           
            tblMenu[11] ={};
            tblMenu[11].Text = "---";
            
            tblMenu[12] ={};
            tblMenu[12].Text = "Select All";
            tblMenu[12].ID = 105;
            tblMenu[12].IconID = -1;
            tblMenu[12].Checked = false;
            tblMenu[12].Enabled = true;
            
            nRes = Application.ShowPopupMenu(0, 0, tblMenu, TPM_RIGHTALIGN, TPM_TOPALIGN, true, false);
          end
          على أن تغير قيمة البو إس "X و Y" فى الكود Application.ShowPopupMenu بما يناسبك أو بطريقتك الخاصة للحصول عليهما كمتغيرات من أحداث أخرى فى الكود جعلتهما 0 .

          عاين مشروعك وإضغط على الزر ALT تظهر لك القائمة الخاصة بنا والتى تم بنائها طبقا لحاجتنا
          بالتوفيق


          الله لا يحرمنا منك استاذ عبود .....شغال تمام التمام

          تعليق


          • #6
            المشاركة الأصلية بواسطة فرح صالحي مشاهدة المشاركة
            نتابع معك للاستفادة ...
            موفق بإذن الله ... لك مني أجمل تحية .
            حضور دائم شيخ فرح ربي يحفظكم

            المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
            لا أعرف موفق
            ربي ينوركم استاذ على المرور

            تعليق


            • #7
              المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة
              السلام عليكم ورحمة الله وبركاته

              ضع فى الحدث " On Key " على سبيل المثال :

              كود:
              --
              if e_Modifiers.alt then
                  tblMenu = {};
                tblMenu[1] ={};
                tblMenu[1].Text = "Action Wizard...";
                tblMenu[1].ID = 100;
                tblMenu[1].IconID = 0;
                tblMenu[1].Checked = false;
                tblMenu[1].Enabled = true;
               
                tblMenu[2] ={};
                tblMenu[2].Text = "Edit Action...";
                tblMenu[2].ID = 101;
                tblMenu[2].IconID = 1;
                tblMenu[2].Checked = false;
                tblMenu[2].Enabled = true;
                
                tblMenu[3] ={};
                tblMenu[3].Text = "Insert";
                tblMenu[3].ID = 102;
                tblMenu[3].IconID = -1;
                tblMenu[3].Checked = false;
                tblMenu[3].Enabled = true;
                
                tblMenu[4] ={};
                tblMenu[4].Text = "Quick Scripts";
                tblMenu[4].ID = 102;
                tblMenu[4].IconID = -1;
                tblMenu[4].Checked = false;
                tblMenu[4].Enabled = true;
                
                tblMenu[5] ={};
                tblMenu[5].Text = "Property Tables";
                tblMenu[5].ID = 103;
                tblMenu[5].IconID = -1;
                tblMenu[5].Checked = false;
                tblMenu[5].Enabled = true;
                
                tblMenu[6] ={};
                tblMenu[6].Text = "---";
                
                tblMenu[7] ={};
                tblMenu[7].Text = "Cut";
                tblMenu[7].ID = 104;
                tblMenu[7].IconID = 2;
                tblMenu[7].Checked = false;
                tblMenu[7].Enabled = true;
                
                tblMenu[8] ={};
                tblMenu[8].Text = "Copy";
                tblMenu[8].ID = 105;
                tblMenu[8].IconID = 3;
                tblMenu[8].Checked = false;
                tblMenu[8].Enabled = true;
              
                tblMenu[9] ={};
                tblMenu[9].Text = "Paste";
                tblMenu[9].ID = 104;
                tblMenu[9].IconID = 4;
                tblMenu[9].Checked = false;
                tblMenu[9].Enabled = true;
                
                tblMenu[10] ={};
                tblMenu[10].Text = "Delete";
                tblMenu[10].ID = 105;
                tblMenu[10].IconID = 5;
                tblMenu[10].Checked = false;
                tblMenu[10].Enabled = true;
               
                tblMenu[11] ={};
                tblMenu[11].Text = "---";
                
                tblMenu[12] ={};
                tblMenu[12].Text = "Select All";
                tblMenu[12].ID = 105;
                tblMenu[12].IconID = -1;
                tblMenu[12].Checked = false;
                tblMenu[12].Enabled = true;
                
                nRes = Application.ShowPopupMenu(0, 0, tblMenu, TPM_RIGHTALIGN, TPM_TOPALIGN, true, false);
              end
              على أن تغير قيمة البو إس "X و Y" فى الكود Application.ShowPopupMenu بما يناسبك أو بطريقتك الخاصة للحصول عليهما كمتغيرات من أحداث أخرى فى الكود جعلتهما 0 .

              عاين مشروعك وإضغط على الزر ALT تظهر لك القائمة الخاصة بنا والتى تم بنائها طبقا لحاجتنا
              بالتوفيق
              أحسنت جزاكم الله خيرا

              تعليق

              مواضيع تهمك

              تقليص

              المنتدى: القسم العام نشرت بواسطة: Reem2Rabeh الوقت: 04-23-2025 الساعة 04:27 PM
              المنتدى: ضبط وتوكيد الجودة نشرت بواسطة: HeaD Master الوقت: 04-15-2025 الساعة 09:30 AM
              المنتدى: التصنيع والانتاج نشرت بواسطة: HeaD Master الوقت: 04-11-2025 الساعة 01:08 PM
              المنتدى: القسم العام نشرت بواسطة: نوال الخطيب الوقت: 03-19-2025 الساعة 03:07 AM
              المنتدى: الكمبيوتر والإنترنت نشرت بواسطة: عوض السوداني الوقت: 03-18-2025 الساعة 07:22 AM
              يعمل...
              X