منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف افتح كومبوس عن طريق الكود؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=28)
+---- الموضوع : كيف افتح كومبوس عن طريق الكود؟؟ (/showthread.php?tid=34163)

كيف افتح كومبوس عن طريق الكود؟؟ - Microformt - 04-04-20

بسم الله الرحمن الرحيم

الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف افتح كومبوس عن طريق الكود؟؟

ولكم مني فائق الاحترام والتقدير

RE: كيف افتح كومبوس عن طريق الكود؟؟ - AL_BRNS - 05-04-20

وعليكم السلام ورحمة الله وبركاته

جرب التالي 

PHP كود :
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam _
As Long, ByVal lParam As Long) As Long
Private Const CB_SHOWDROPDOWN = &H14F

Private Sub Command1_Click()
A = SendMessageLong(Combo1.hwnd, CB_SHOWDROPDOWN, True, 0)
End Sub 

بالتوفيق .

RE: كيف افتح كومبوس عن طريق الكود؟؟ - Microformt - 06-04-20

(05-04-20, 10:52 PM)AL_BRNS كتب : وعليكم السلام ورحمة الله وبركاته

جرب التالي 

PHP كود :
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam _
As Long, ByVal lParam As Long) As Long
Private Const CB_SHOWDROPDOWN = &H14F

Private Sub Command1_Click()
A = SendMessageLong(Combo1.hwnd, CB_SHOWDROPDOWN, True, 0)
End Sub 

بالتوفيق .
اخي العزيز
السلام عليكم ورحمة وبركاته
وجزك الله عني با الجنة يارب
الف الف شكر لك اخي العزيز
 تحياتي