قواعد المشاركة في المنتدى

(قسم الاعلانات) الموضوع:شركة تنظيف منازل بالخبر من ابراج دبي بواسطة: (ليان عمر) :: (قسم الاعلانات) الموضوع:تخلص من الصراصير دون مبيدات سامة بواسطة: (سجيات) :: (منتدى تحليل و تصميم نظم المعلومات) الموضوع:دورة احتراف التداول في اسواق الفوركس الآن مجانية بواسطة: (اونلاين) :: (منتدى الأكسس) الموضوع:عند تغيير الحالة في النموذج الرئيسي تتغير الحالة في النموذج الفرعي بواسطة: (أيمن غراوي) :: (منتدى ADO.NET العام) الموضوع:التصميم المعماري بواسطة: (احمدجج) :: (قسم الاعلانات) الموضوع:ايوان للاستقدام نوفر كافة متطلباتكم بواسطة: (ايوان للاستقدام) :: (منتدى الأكسس) الموضوع:كيفيه استراد ملف امتداد bak لاهمية بواسطة: (startnet) :: (قسم الشكاوي والمشاكل الفنية والملاحظات) الموضوع:يلا شوت بث مباشر بدون تقطيع بواسطة: (ahmady sofa1445) :: (قسم الاعلانات) الموضوع:دورات تدربيه معتمدة بجدة من المعهد العلمي الإداري بجدة 0555616334دورة المستشار الاسري بجده.دورة تدريب مدربين في القنفذة وعسير..دورة الخريطه الذهنيه بجده،دورة الإدارة وتنميه الموارد البشريه بجدة،دورة تنميه المهارات الإدارية بجده ،، بواسطة: (عبدالرحمان) :: (قسم الاعلانات) الموضوع:مشبات الشرقيه مشبات الخبر ديكورات مشبات صور مشبات بواسطة: (ابوعامر2) :: (منتدى C و C) الموضوع:جافا سكريبت بواسطة: (fta) :: (قسم الاعلانات) الموضوع:كيف تنظفين دولابك ؟ بواسطة: (كوين) :: (منتدى الأكسس) الموضوع:البحث بمجرد الكتابة في الحقل بواسطة: (ابوالذهب) :: (منتدى الأكسس) الموضوع:استراد بواسطة: (bekhet2003) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:كود رائع لربط قاعدة البيانات اكسس بواسطة: (abdelhaqF10) :: (قسم الاعلانات) الموضوع:سارع بتملك شقتك في مشروع الجادة بالشارقة من شركة أرادا للتطوير العقاري بواسطة: (اسامة الاحمر) :: (قسم الاعلانات) الموضوع:دورة التصميم المعماري بواسطة: (غوايش) :: (منتدى ADO.NET العام) الموضوع:احتراف أنظمة الشَّبكات سيسكو CCNA بواسطة: (احمدجج) :: (قسم الاعلانات) الموضوع:شركة خبراء المملكة بواسطة: (خالدعلي) :: (قسم الاعلانات) الموضوع:شركة التنظيف المشرق للخدمات المنزلية بواسطة: (خالدعلي)


راديو القرآن

المواضيع المثبته: (منتدى مبرمجي Microsoft Visual C#.NET) الموضوع:مكتبة الأمثلة والتطبيقات للغة #C بواسطة: (النور) :: (منتدى Microsoft SQL Server) الموضوع:كيف أقوم بنسخ البيانات فقط من جهازي الى الويب بواسطة: (أبو محمـد) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:جمل استعلام بواسطة: (وليد القدسي) :: (منتدى Microsoft Excel) الموضوع:مكتبة اكسيل كاملة - عربى - انجليزى بواسطة: (junkbki) :: (منتدى تحليل و تصميم نظم المعلومات) الموضوع:تحليل كامل لبرنامج حسابات بواسطة: (الشجرة الطيبة) :: (منتدى أجاكس(Asynchronous JavaScript and XML)) الموضوع:إستخدام Web Services مع ASP.NET AJAX بواسطة: (يوسف جميل جادالله) :: (منتدى أجاكس(Asynchronous JavaScript and XML)) الموضوع:تقسيم النتائج لعدة صفحات مع 3 لغات برمجة ويب بواسطة: (عبدالله جابر شقليه) :: (منتدى مبرمجي ASP.NET) الموضوع:كيفية عرض المنتديات والأقسام والمواضيع بواسطة: (عبدالله جابر شقليه) :: (منتدى Microsoft SQL Server) الموضوع:يومياً أسئلة sql server مجاناً بواسطة: (m.atassi) :: (منتدى مبرمجي ASP.NET) الموضوع:كيفية ربط الأوراكل مع asp.net بواسطة: (عبدالله جابر شقليه) :: (منتدى ADO.NET العام) الموضوع:الكامل في قواعد البيانات مع VB.net بواسطة: (المهندس عدي) :: (منتدى الكتب الالكترونية) الموضوع:كتاب لبرامج مصممة بالفيجوال مع أكوادها (الجزء الثاني) بواسطة: (First Star) :: (منتدى مبرمجي Microsoft Visual C#.NET) الموضوع:Serial Communication with Csharp بواسطة: (Prof.Mendl) :: (منتدى Microsoft Visual Basic) الموضوع:نظام إدارة المرتبات للمدارس Salary System 2008 بواسطة: (Max Bayne) :: (منتدى مبرمجي لغة جافا JAVA) الموضوع:برنامج للموبايل بلغة الجافا للبحث على جوجل بواسطة: (Doctors) :: (قسم الدروس و الدورات) الموضوع:دورة شاملة في VB.Net المستوى الأول بواسطة: (مهند عبادي) :: (منتدى مبرمجي ASP) الموضوع:شرح كود موقع شؤون الموظفين النسخة الأولى بواسطة: (alanees) :: (منتدى Microsoft Excel) الموضوع:أكواد جاهزة للإستخدام في اكسل ( ماكروات ) بواسطة: (junkbki) :: (منتدى مبرمجي ASP.NET) الموضوع:كيفية قرائة الصحف الإلكترونية والكتب والمجلات عبر الانترنت بواسطة: (عبدالله جابر شقليه) :: (منتدى مبرمجي ASP) الموضوع:برنامج اختبارات للجامعات بواسطة: (عبدالله جابر شقليه)

عدد الصفحات : 4  1  2  3  4   > » إضافة رد إضافة موضوع جديد

> هل فكرت يوما أن تستغني عن شريط أوامر الأكسيس ؟,خطوة خطوة وبالصور لإنشاء قوائمك الخاصة على النموذج
Bookmark and Share
تقييم الموضوع Label معدل التقيم:0
مشاركةالجمعة,21/ذو الحجة/1426 هـ,02:49 مساءً
المشاركة #1

مشرف منتدى الأكسس
الرتبة في المنتدى:مقدم

أيقونة المجموعة

المجموعة: مشرفي الأقسام
المشاركات: 542
سجل في:الأربعاء,11/شعبان/1426 هـ,11:13 مساءً
الدولة:المغرب
رقم العضوية: 5345



السلام عليكم ورحمة الله وبركاته
هل فكرت يوما أن تستغني عن شريط أوامر الأكسيس ؟
هل فكرت أن تخصص شرائط أدواتك وتجعلها مباشرة على النموذج ؟
هل فكرت أن تجعل برنامجك أشبه بما يبرمج بالفيجوال بيزك ؟
في الحقيقة الأكسيس لا يدعم شرائط الأدوات مباشرة على النموذج , وما سأقدمه لك إنما هو حيلة مبتكرة لجعل النموذج في الأكسيس شبيه بنظيره في الفيجوال بيزك , بحيث يمكنه أن يتضمن شريط قوائم الأوامر .
وما عليك إلا اتباع الخطوات التالية خطوة خطوة :
في البداية سنحتاج إلى نموذج منبثق نجعل منه خلفية التطبيق وعليه سنضع شرائط الأدوات
1- إنشاء النموذج :
• أنشئ نموذجا بسيطا , واختر له الخصائص التالية :
- مصدر السجل : لاشيء
- أشرطة التمرير : لاهذا ولا ذاك
- محددات السجلات : لا
- أزرار التنقل : لا
- الخطوط المقسمة : لا
- منبثق : نعم
سنحتاج إخفاء الأكسيس و تكبير النموذج ليملأ الشاشة , ولذلك :
• أدرج الكود التالي في وحدة النموذج النمطية :
 كود
Option Compare Database
Option Explicit
Private Const SW_HIDE = 0 'تصريح ثوابت النظام
Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMAXIMIZED = 3

Private Sub Form_Load()
' دوال لإخفاء الأكسيس
fSetAccessWindow (SW_SHOWMINIMIZED)
fSetAccessWindow (SW_HIDE)
End Sub

'إجراء عند الضغط للزر إغلاق
Private Sub Bt_quit_Click()
DoCmd.Quit

End Sub

ولكوننا استدعينا دالة إخفاء الأكسيس والتي مرجعها API فإنه توجب إضافة الكود التالي إلى وحدة نمطية ولتكن mduAPI
 كود
Option Compare Database

Private Const SW_HIDE = 0
Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
Dim WaX As Long
Dim Waform As Form
On Error Resume Next
Set Waform = Screen.ActiveForm
If err <> 0 Then
If nCmdShow = SW_HIDE Then
Else
WaX = apiShowWindow(hWndAccessApp, nCmdShow)
err.Clear
End If
Else
If nCmdShow = SW_SHOWMINIMIZED And Waform.Modal = True Then
ElseIf nCmdShow = SW_HIDE And Waform.PopUp <> True Then
Else
WaX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If
fSetAccessWindow = (WaX <> 0)
End Function


• كما سنحتاج إلى كائن تسمية ليحمل القائمة المنسدلة , لذلك أنشئ هذا الكائن باختياره من مربع الأدوات وخصصه ليظهر بالشكل الذي يروقك

ولإدراج قوائم الأوامر سنحتاج لاستثمار الإمكانية التي يوفرها الأكسيس :
2- إنشاء قائمة الأوامر المخصصة :
اضغط بالزر الأيمن على شرائط الأدوات الأكسيس واختر تخصيص كما يتضح من الصورة التالية

ستظهر لك مربع حوار التخصيص حيث ستختار جديد لإنشاء قائمة جديدة :

واختر اسما للقائمة الجديدة ولتكن مثلا Pers1

وبعد المواققة ستظهر قائمة أدوات فارغة بمكان ما على بنية التطوير للأكسيس وهي كائن مستقل قابل للتحريك والدمج بشرائط الأدوات غير أنه فارغ لا يحتوي على أي أداة

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

بالطبع نحن سنحتاج إلى تخصيص أوامرنا بعيدا عما يقترحه الأكسيس من أوامر نمطية , لذلك سحبت الأمر مخصص لأنه غير مجهز بأي أمر مسبق وسنحتاج إلى تغيير خصائصه ليناسب مطالبنا :
3- تخصيص الأوامر :
في البداية نغير الإسم :
- اضغط بزر الماوس الأيمن فوق الأمر الجديد فتظهر لك قائمة منسدلة من الأوامر اختر الإسم وغيره إلى " الحافظة "

سنحاج لإضافة إجراء إلى الأمر الجديد :

وهذا يعني أنه توجب علينا إنشاء الدالة LanceBN() التي ستستدعي الحافظة التي يدعمها نظام الوندوز :"Notepad.exe
4- إنشاء وحدة نمطية خاصة بالدوال التي ستنفذ عند إجراء النقر على الأوامر المخصصة :
في وحدة نمطية نسميها مثلا : mduFunct
نكتب الكود التالي للدالة LanceBN()
 كود
Public Function LanceBN()
Shell "notepad.exe"
End Function

ويمكن أن نضيف ما شئنا من الأوامر إلى الشريط بتكرار نفس الخطوات السابقة .ولضيف مثلا أمرا لاستدعاء الآلة الحاسبة التي يدعمها النظام بالدالة ()LanceClc بإضافة الكود التالي إلى الوحدة النمطية
 كود
Public Function LanceClc()
Shell "Calc.exe"
End Function

والآن سنحتاج إلى تحويل الشريط إلى قائمة , وبالطبع سنحتال للأمر بأن نجعل الشريط قائمة مختصرة Menu Contextuel..
5- جعل الشريط منبثق

اختر خصائص ليظهر المربع التالي :

ااختر منبثق فيختفي شريط الأدوات وهذا يعني أنه تحول إلى قائمة مختصرة يمكن إظهارها بالطريقة Methode
 كود
CommandBars("pers1").ShowPopup x,y

حيث تحسب الإحداثيات x,y على الشاشة بالبيكسل .
لكن مع الأسف الأكسيس لايدعم هذا النوع من الوحدات .
والإحداثيات بالأكسيس تحسب بالتويب twips . وهنا ستسعفنا دوال Windows application programming interface (API) على اعتبار أن
 كود
1twips = 1/1400 pouces

لذلك سنحتاج إلى التصريح بالدوال التالية قي وحدة نمطية , ولنسمها مثلا mduAPI
 كود
Public Type pointapi
X As Long
Y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long
Public Declare Function setCursorPos Lib "user32" (lpPoint As pointapi) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

كما سنحتاج إلى إضافة الكود التالي إلى إجراء الضغط بزر الماوس على كائن التسمية
 كود
Private Sub تسمية2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim PT As pointapi
Dim NbPointParPouceX As Long, NbPointParPouceY As Long
GetCursorPos PT 'دالة استدعاء موقع تأثير الماوس
NbPointParPouceX = GetDeviceCaps(GetDC(0), 88)
NbPointParPouceY = GetDeviceCaps(GetDC(0), 90)
'دالة استدعاء قائمة الأوامر المنسدلة عند موقع تأثير زر الماوس
CommandBars("pers1").ShowPopup PT.X - (X / (1440 / NbPointParPouceX) - 50), PT.Y + (تسمية2.Height / (1440 / NbPointParPouceY)) - Y / (1440 / NbPointParPouceY)
End Sub
وهكذا بالضغط بزر الماوس على كائن التسمية تظهر القائمة المختصرة ويصبح الناتج كشريط أدوات مخصص مرتبط بالنموذج وقد غيبنا الأكسيس وشرائطه تماما

وفي المرفقات مثال للتفحص مع التوفيق
مع تحيات أخيكم أبو تماضر



الملفات المرفقة
 MBarOnFRM.rar ( 34.2ك ) عدد مرات التنزيل: 2941


--------------------
هيا بنا نوقد شمعة بدلا من أن نلعن الظلام

فطريق الألف ميل لابد و أن يبدأ بخطوة ..

أو بفكرة ..

أو حتى بحلم..


عذرا عن عدم التواجد باستمرار ...
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالجمعة,21/ذو الحجة/1426 هـ,08:40 مساءً
المشاركة #2

مشرف منتدى الأكسس
الرتبة في المنتدى:مقدم

أيقونة المجموعة

المجموعة: مشرفي الأقسام
المشاركات: 542
سجل في:الأربعاء,11/شعبان/1426 هـ,11:13 مساءً
الدولة:المغرب
رقم العضوية: 5345



أرجو أن تكون مشكلة الصور قد حلت , وأشكر أستاذي عبد الله جابر شقلية على التنبيه


--------------------
هيا بنا نوقد شمعة بدلا من أن نلعن الظلام

فطريق الألف ميل لابد و أن يبدأ بخطوة ..

أو بفكرة ..

أو حتى بحلم..


عذرا عن عدم التواجد باستمرار ...
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالسبت,22/ذو الحجة/1426 هـ,10:32 صباحاً
المشاركة #3

الرتبة في المنتدى:مقدم

أيقونة المجموعة

المجموعة: المشرفين القدامى
المشاركات: 700
سجل في:الاثنين,13/شعبان/1425 هـ,03:42 مساءً
الدولة:السعودية
رقم العضوية: 152



درس رائع بل أروع من الرائع ومما يميزه أنه لم ينشر من قبل حسب علمي
بالتوفيق أخي alasomed



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





الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالسبت,22/ذو الحجة/1426 هـ,06:49 مساءً
المشاركة #4

مشرف منتدى الأكسس
الرتبة في المنتدى:مقدم

أيقونة المجموعة

المجموعة: مشرفي الأقسام
المشاركات: 542
سجل في:الأربعاء,11/شعبان/1426 هـ,11:13 مساءً
الدولة:المغرب
رقم العضوية: 5345



امتناني أستاذي أبو أفنان


--------------------
هيا بنا نوقد شمعة بدلا من أن نلعن الظلام

فطريق الألف ميل لابد و أن يبدأ بخطوة ..

أو بفكرة ..

أو حتى بحلم..


عذرا عن عدم التواجد باستمرار ...
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالاثنين,24/ذو الحجة/1426 هـ,06:47 مساءً
المشاركة #5

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: مجموعة الخبراء المعتمدين
المشاركات: 41
سجل في:الخميس,09/شعبان/1425 هـ,08:02 صباحاً
الدولة:عمان
رقم العضوية: 130



مشكور أخي الكريم alasomed على الموضوع الذي أقراءه لأول مره على مستوى المنتديات العربية بخصوص تخصيص شرائط الأدوات وجعلها مباشرة على النموذج.

فبارك الله فيك وألف شكر .


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالأربعاء,26/ذو الحجة/1426 هـ,01:00 صباحاً
المشاركة #6

الرتبة في المنتدى:نقيب

أيقونة المجموعة

المجموعة: أعضاء فعالين
المشاركات: 272
سجل في:الثلاثاء,22/ذو الحجة/1425 هـ,08:16 صباحاً
الدولة:مصر
رقم العضوية: 1394



مشكور ابن مسقط موضوع رائع وهام

بارك الله فيك

والله هو الموفق لسواء السبيل

الباشا قمر الزمان


--------------------
الله هو الموفق لسواء السبيل
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالأحد,30/ذو الحجة/1426 هـ,10:10 صباحاً
المشاركة #7

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 5
سجل في:السبت,22/ذو الحجة/1426 هـ,05:44 صباحاً
الدولة:السعودية
رقم العضوية: 7754



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


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالأحد,30/ذو الحجة/1426 هـ,10:46 صباحاً
المشاركة #8

الرتبة في المنتدى:ملازم

أيقونة المجموعة

المجموعة: أعضاء فعالين
المشاركات: 118
سجل في:الخميس,17/جمادى الأولى/1426 هـ,06:50 مساءً
الدولة:مصر
رقم العضوية: 3817



شكرا مشرفنا / alasomed
بارك الله فيك وهوفقك الى ما فيه الخير،
نتظر منك كل جديد
تقبل تحياتي ................


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالجمعة,05/محرم/1427 هـ,11:19 صباحاً
المشاركة #9

مشرف سابق لمنتدى الأكسس
الرتبة في المنتدى:عميد

أيقونة المجموعة

المجموعة: المشرفين القدامى
المشاركات: 1027
سجل في:الخميس,11/ربيع الثاني/1426 هـ,11:28 مساءً
الدولة:السعودية
رقم العضوية: 3095



الأستاذ alasomed
بارك الله فيك وزادك علماً ....
جهد ....جبار ... وفقك الله


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالسبت,27/محرم/1427 هـ,02:45 مساءً
المشاركة #10

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 16
سجل في:السبت,16/فر/1426 هـ,04:04 مساءً
الدولة:اليمن
رقم العضوية: 2242



الف شكر على الموضوع الرائع


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة

    

عدد المتصفحين لهذا المنتدى «1»: (الضيوف «1» - المتخفون «0»)
الأعضاء «0»: .

عدد الصفحات : 4  1  2  3  4   > » إضافة رد جديد إضافة موضوع جديد



 
الوقت الأن:اليوم,06:04 مساءً بتوقيت القدس المحتلة

Powered By arabmoheet v3.1

منتديات المحيط العربي  -  راسلنا  -   أعلى
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)