| |||||||
| روابط تعليم لغات البرمجه جميع اللغات ، Java، php ، asp ، Ajax ، Css ، |
القوائم
مكونات الدرس 1: انشاء القوائم 2:وضع صوره بجانب القائم 3:انشاء قائمه بالكود 4:لفتح قائمه من ليبل او شكل لاضافة قائمة
 |
| | LinkBack | أدوات الموضوع | انواع عرض الموضوع |
13-05-2009, 12:29 PM
| رقم المشاركة : 1 | |
|  القوائم مكونات الدرس 1: انشاء القوائم لاضافة قائمة الي برنامجك فيمكنمك الضغط علي Menu Editor في شريط الادوات, او اختيار قائمة Tools ثم Menue Editor, سيظهر صندوق هكذا:  محتوياته: 1) بجانب كلمة Caption يوضع ما يكتب في القائمة. 2) بجانب كلمة Name تكتب اسم القائمة. 3) بجانب Shortcut تقوم بأختيار الاختصار مثل Ctrl + N ...الخ. 4) Checked معناها ان التعامل مع القائمة سيكون بالعلامات. 5) Enabled و هي اذا كانت القائمة متاحة ام لا. 6) Visible و يقصد بها ان اذا كانت القائمة ظاهرة ام لا. · اذا اردت ان تفتح قائمة من قائمة فرعية فقم بالضغط علي السهم à بجانب Next لفتح قائمة جديدة من القائمة التي قبلها و للعودة الي القائمة الرئيسية اضغط علي ß... · اذا اردت ان يوضع خط تحت حرف ما في الكلمة اي ان عند الضغط علي Alt ثم هذا الحرف لتعمل فقم بوضع & قبل الحرف المراد وضع خط تحته.. و اذا اردت وضع فاصل فضع – في خاصية Caption.. وضع صورة بجانب القائمة 1) ضع اداه Picture Box. 2) غير خاصية AutoSize الي True. 3) يجب ان لا تزيد الصورة عن 13 x 13. اكتب هذا الكود في Module: Private Declare Function VarPtr Lib "VB40032.DLL" (variable As Any) As LongPrivate Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As LongPrivate 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 Const MF_BYPOSITION = &H400& و هذه الكود في الفورم: Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As LongmHandle = GetMenu(hwnd) sHandle = GetSubMenu(mHandle, mnu#) lRet = SetMenuItemBitmaps(sHandle, chos#, MF_BYPOSITION, Picture1.Picture, imOpen.Picture) lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, imCopy.Picture, imCopy.Picture) حيث mnu# هي رقم القائمة و تبدأ من 0, و chos# هي رقم الاختيار في هذه القائمة و تبدأ من 0 و طبعا يمكن زيادتها.. انشاء قائمة بالكود انشئ قائمة فرعية باسم ما و ليكن Mnu, غير Index الي 0 ثم اكتب هذا الكود في زر الاضافة: Dim index As Integer قائمة جديدة هو اسم القوائم الجديدة التي ستنشأ, و يمكنك تغييره كما يمكنك كتابة Text1.Text بدلا من الاسم و وضع TextBox لتنشأ القائمة باسم التكست..index = Mnu.Count Load Mnu (index) Mnu(index).Caption = "قائمة جديدة" Mnu(index).Visible = True لفتح قائمة من ليبل او شكل(مثل قائمة ابداء) في هذا الجزء سنضع ليبل و عند الضغط عليه تظهر قائمة ما.. · ضع 2 فورم, واحدة لانشاء القائمة و واحدة للمشروع..· ضع في فورم 2 اي قوائم تريدها و في فورم 2 الليبل.. اكتب هذا الكود في ليبل: Private Sub Command1_Click() PopupMenu Form2.mnu1, 1, Image6.Left - 960, Image6.Top + 825 End Sub هذا الكود اسهل مما يمكن, ولا اعتقد انه بحاجة لشرح, فقط اعرف ان mnu1 هو اسم القائمة الموجودة في الفورم الاخر, اما عن Left و Top فهذا مكان ظهورالقائمة..
| |
 |
|
14-05-2009, 10:40 AM
| رقم المشاركة : 3 | |
|
| الشرك لله وحدة عزيزى
| |
| |
|
31-05-2009, 11:16 PM
| رقم المشاركة : 4 | |
| جزاك الله خيراً
| |
| |
|
17-06-2009, 05:30 PM
| رقم المشاركة : 5 | |
| بًٍاركً الله فيكً
| |
| |
|
17-06-2009, 06:55 PM
| رقم المشاركة : 6 | |
|
| منور ين
| |
| |
|
| مواقع النشر (المفضلة) |
| أدوات الموضوع | |
| انواع عرض الموضوع | |
العرض العادي
| |
الساعة الآن 11:56 AM
| |
