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

[عبد الهادي بهاب]

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

:abc_152:

[فرح صالحي]

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

[ثامر أبو بلقيس]

لا أعرف موفق :abc_138:

[عبود عبود]

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

ضع فى الحدث " 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 بما يناسبك أو بطريقتك الخاصة للحصول عليهما كمتغيرات من أحداث أخرى :abc_065: فى الكود جعلتهما 0 .

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

[عبد الهادي بهاب]

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

ضع فى الحدث " 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 بما يناسبك أو بطريقتك الخاصة للحصول عليهما كمتغيرات من أحداث أخرى :abc_065: فى الكود جعلتهما 0 .

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

:abc_152::abc_152::abc_152::abc_152::abc_152:

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

[عبد الهادي بهاب]

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

حضور دائم شيخ فرح ربي يحفظكم

لا أعرف موفق :abc_138:

ربي ينوركم استاذ على المرور

[ربيع]

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

ضع فى الحدث " 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 بما يناسبك أو بطريقتك الخاصة للحصول عليهما كمتغيرات من أحداث أخرى :abc_065: فى الكود جعلتهما 0 .

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

أحسنت جزاكم الله خيرا :abc_152: