كيفية فرض DropDown ثم سحب "القائمة" في مربع تحرير وسرد

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

اضغط هنا لرابط المقالة باللغة الانجليزية124057
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
يوضح هذا المقال كيفية إرسال رسالة إلى مربع تحرير وسرد لفرض جزء قائمة إفلات أو التراجع في أي وقت.

عادةً، لإسقاط جزء القائمة لمربع تحرير وسرد انقر فوق زر القائمة المنسدلة الموجود إلى يمين مربع تحرير وسرد التحرير أو يمكنك ضغط المفتاح F4 عندما يكون التركيز على عنصر التحكم. لجعل مربع تحرير وسرد سحب جزء قائمة قمت انقر فوق زر القائمة المنسدلة مرة أخرى أو استخدام الماوس أو لوحة المفاتيح لاختيار عنصر من القائمة أو اضغط ESC أو المفتاح F4 أو انقر فوق أي مكان آخر على الشاشة.
معلومات أخرى
إرسال رسالة CB_SHOWDROPDOWN مربع تحرير وسرد من نمط 0 - التحرير والسرد منسدلة أو 2 - قائمة منسدلة استدعاء دالة SendMessage API. إذا كانت المعلمة wParam أي عدد صحيح غير الصفر ، سيتم إسقاط القائمة. إذا كانت wParam تساوي 0 ، سيتم سحب القائمة. ملاحظة مربع تحرير وسرد الأنماط 1 (تحرير وسرد "بسيط") دوماً لها قائمة بها مرئية.

مثال خطوة بخطوة

  1. بدء مشروع جديد في Visual Basic (ALT F، N). يتم إنشاء Form1 بشكل افتراضي.
  2. قم بإضافة العبارات التالية إلى المقطع Declarations عام Form1:
          ' Enter the following two lines as one, single line:      Declare Function SendMessage Lib "User" (ByVal hWnd As Integer,      ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long      ‘For Windows 95 and 98      Const WM_USER = &H400      Const CB_SHOWDROPDOWN = (WM_USER + 15)            ‘For Windows NT, 2000 and XP, define CB_SHOWDROPDOWN as below      ‘Const CB_SHOWDROPDOWN = &H14F 						
  3. قم بإضافة التعليمات البرمجية التالية إلى الحدث Load للنموذج:
       Sub Form_Load ()      combo1.AddItem "item# 1"      combo1.AddItem "item# 2"      combo1.AddItem "item# 3"      combo1.AddItem "item# 4"   End Sub						
  4. وضع مربع تحرير وسرد (Combo1) على Form1.
  5. وضع زر أمر (Command1) على Form1 وتعيين خاصية التسمية التوضيحية الخاصة بها إلى DropDown.
  6. قم بإضافة التعليمات البرمجية التالية إلى انقر الزر Command1 الحدث:
       Sub Command1_Click ()      x% = SendMessage(combo1.hWnd, CB_SHOWDROPDOWN, 1, 0&)   End Sub						
  7. وضع زر أمر ثاني (Command2) على Form1 وتعيين التسمية التوضيحية الخاص به الخاصية Retract.
  8. قم بإضافة التعليمات البرمجية التالية إلى انقر الزر Command2 الحدث:
       Sub Command2_Click ()      x% = SendMessage(combo1.hWnd, CB_SHOWDROPDOWN, 0, 0&)   End Sub						
  9. اضغط المفتاح F5 لتشغيل البرنامج. انقر فوق الزر DropDown لإظهار قائمة مربع التحرير والسرد ثم انقر فوق الزر Retract لإزالته.

الملاحظات

إذا كان النموذج نقلها أو تغيير حجم أثناء لأسفل في القائمة أو لا يتم نقل القائمة مع النموذج. لجعله على التصرف مثل "مربع تحرير وسرد" القياسية بإضافة التعليمة البرمجية التالية إلى الرسام للنموذج وتغيير حجمها الأحداث لفرض سحب القائمة:
   Sub Form_Paint ()      x% = SendMessage(combo1.hWnd, CB_SHOWDROPDOWN, 0, 0&)   End Sub				

   Sub Form_Resize ()      x% = SendMessage(combo1.hWnd, CB_SHOWDROPDOWN, 0, 0&)   End Sub				

ليس لديك لإجراء ذلك, إذا كنت تريد قائمة لكي يظل دوماً في المقدمة, حتى أثناء نقل النموذج أو تغيير حجمه. يمكن أن يتم سحبه القائمة فقط من قبل النقر فوق زر "Rectract" أو اختيار عنصر من القائمة.
2.00 3.00 تحرير وسرد

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 124057 - آخر مراجعة: 12/04/2015 10:48:21 - المراجعة: 2.0

Microsoft Visual Basic 2.0 Standard Edition, Microsoft Visual Basic 3.0 Professional Edition, Microsoft Visual Basic 2.0 Professional Edition, Microsoft Visual Basic 3.0 Professional Edition

  • kbnosurvey kbarchive kbmt KB124057 KbMtar
تعليقات