كيفية إضافة بند جديد بقائمة النظام

السؤال الأول : أعتقد أنه بالحصول على مقبض كل عنصر فيمكن التحكم فيه.

لسؤالك التانى مرفق مثال من موقع ما لا أتذكره :

Change_Menu.zip

أخي الكريم ، أشكرك كثيراً علي إستجابتك لي ،

أخي الكريم ، ممكن تعطيلي مثال بسيط عن سؤالي الأول بحيث أن أقوم بتعريبها .

لكن أنا خطرلي فكرة بسيطة عن هذه العملية ، وهو أن أقوم بحذف كافة الأوامر الموجودة بالقائمة ومن ثم

أقوم بإضافتها مرة ثانية ولكن باللغة العربية

هل هذا صحيح ، أم أن هناك فكرة أخري .

رجاء المساعدة بمثال بسيط .

وشكراً مرة أخري

ما الذي تريد ان يضاف باقائمة

بعد اذن الاخ msayed2004

أخي الكريم ، نسيت أن أقول شيءٍ آخر

هذه الطريقة يتم إضافة بند أو أكثر بالقائمة ، ولكن كيف يتم إضافة قائمة فرعية بداخل قائمة النظام بحيث :

إضافة بند ( Tools )

وبداخل بند ( Tools ) يتم إضافة أكثر من بند

أي قائمة فرعية داخل قائمة نظام النموذج

وشكراً مرة أخري

---------------------------------------

أخي Hamata قم بتحميل المثال المعطي من الأخ MSayed2004 ، وقم بتشغيلة ثم أنقر علي أيقونة النموذج وتري ما أنا أريدة وطلبتة منة

وشكراً

مرفق مثال عن التعامل مع القوائم به كل ما تريد :

System_Menu.rar

تعديل : ملحوظة : عند عد القوائم فتأكد من عد الـ SEPARATOR معهم.

أخي الكريم ، أشكرك كثيرا ،

لكن إجابتك علي هذا السؤال فتح لي سؤال آخر وهو وتعلق بإدراج صورة بالقوائم بوجه عام.

أنا أستخدم الكود التالي لإضافة صورة بإحدي القوائم :

Const MF_BYPOSITION = &H400&

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long

Private Sub Form_Load()

Dim hMenu As Long, hSubMenu As Long

'get the handle of the menu

hMenu = GetMenu(Me.hwnd)

'check if there's a menu

If hMenu = 0 Then

MsgBox "This form doesn't have a menu!"

Exit Sub

End If

'get the first submenu

hSubMenu = GetSubMenu(hMenu, 0)

'check if there's a submenu

If hSubMenu = 0 Then

MsgBox "This form doesn't have a submenu!"

Exit Sub

End If

'إرسال الصورة بالقائمة''

'SetMenuItemBitmaps hSubMenu, 1, MF_BYPOSITION, Picture1.Picture, Picture1.Picture

SetMenuItemBitmaps hSubMenu, 0, MF_BYPOSITION, I.ListImages(1).Picture, I.ListImages(1).Picture

SetMenuItemBitmaps hSubMenu, 1, MF_BYPOSITION, I.ListImages(1).Picture, I.ListImages(1).Picture

End Sub

ولكن للأسف يطلب مني حجم معين من الصور ، مع العلم أنني إلتقطت صورة من شاشة ( Word ) وأخذت

العديد من الأيقونات ثم تطلب مني تصغيرها مرة أخري ، وهذا تسبب الي عدم وضوح الصورة بالقائمة.

فسؤالي هنا ، هل يمكن إضافة مساحة الصورة بالقائمة بحيث أن تكون واضحة للمستخدم دون سإستخدام أدوات ؟

شكراً

مش فاكر الحجم الأفتراضى بالضبط بس أعتقد أنه 15 × 15 بكسل ( مش متأكد ).

اقتباس

فسؤالي هنا ، هل يمكن إضافة مساحة الصورة بالقائمة بحيث أن تكون واضحة للمستخدم دون سإستخدام أدوات ؟

معلش ممكن توضح اكتر !

هل تقصد أن أحنا نغير فى الحجم المسموح للصورة و بالتالى نظهر صور أكبر ؟!

تعديل : بالمناسبة شوف الموضوع ده : How to Implement a Bitmap Within a Visual Basic Menu

بالفعل هذا هو ما طلبتة ، بحيث أن يكون مثلاً حجم الصورة 20 × 20 نقطة بدلاً من 15 × 15 نقطة وسبب ذلك هو وضوحها للمستخدم النهائي .

وشكراً

أخي الكريم ، نسيت أن أقول لك شيء آخر ،

أنا أخذت الكود وحملتة علي مشروع جديد ولم ينفذ بعد

ياريت تعدلي في المرفق إذا كان هذا الكود ما طلبتة

وشكراً

Code.rar

أعتقد أن لو عملنا كده هيبقى على مستوى الـ Windows كله , و بالتالى هيبقى شكلة مش ظريف.

أما على مستوى نافذة واحدة فالعلم عن الله , عمرى ما جربت حاجة زى كده.

المشروع مليان Overflow Errors , ممكن تعيد كتابته بس تعرف كل حاجة بالطريقة الطبيعية يعنى كـ Long و كـ String و ........ مش بأستخدام الرموز , سواء على مستوى المتغيرات أو دوال الـ APIs

MenuPictures.rar

الصور اللى مع الأداة 16 × 16 مش كبيرة يعنى.

بس واضحة

طالما أنك بتدور على الجودة فجرب : قوائم بودى.

شكرا ليكم اخواني

والله استفدت مع اني مش اللي طالب

شكرا لكم

طب أخي الكريم ، أنظر المثال التالي وعدللي فيها إذا أمكن

وشكراً

Project.rar

أخي Msayed الكريم ،

الرابط المعطي يعرض لي صفحة ليس بها أي Down Load ، وعند النقر علي إحدي الروابط الموجودة بالصفحة تعرض لي صفحة أخري تتطلب بحتمية إدخال البريد الإلكتروني وكلمة المرور.

وعند إدخالها لا تعطي لي أي ناتج حتي في البريد الإلكتروني الخاص بي

وشكراً

اخي الكريم

انا هرفعلك الملف الان

حمل من المرفقات اخي الكريم

Boody_Menu16824012102003.zip

Menus.rar

أعتقد أنه الكلاس كان فيه خاصية RightToLeft جربها + RightToLeft بتاعة الفورم.

@ hamata : مكانش فى داعى أنك ترفع المشروع بعد ما أنا رفعته , تأكد من قراءة الموضوع ;)

أنا جربت هذه الخاصية بالفعل ( RightToLeft ) ولم تفلح معي

فما هو الحل إذاً

ولاحظ أخي الكريم أنني أقصد المؤشر ( < ) وليس الكلام نفسة