[سؤال] فتح قائمة combo - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم مكتبة أكواد vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=33) +---- الموضوع : [سؤال] فتح قائمة combo (/showthread.php?tid=1202) |
فتح قائمة combo - m-kaylani - 08-12-13 السلام عليكم أخواني أحتاج الى كود انسدال قائمة combobox تلقائيا مع فائق الاحترام والتقدير RE: فتح قائمة combo - tarek - 08-12-13 ComboBox1.DroppedDown = True RE: فتح قائمة combo - semsemalex - 08-12-13 السلام عليكم أخى الكريم فى حدث General ضع الكود التالى [/code] Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal WParam As Long, lParam As Any) As Long كود : وفى حدث Gotfocus للكومبو ضع الكود التالى Dim RC As Long RC = SendMessage(Combo1.Hwnd, &H14F, True, 0) End Sub [code] بالتوفيق إن شاء الله |