فيجول بيسك
بسم الله الرحمن الرحيم
مرحبا بك عزيزي الزائر. المرجوا منك أن تعرّف بنفسك و تدخل المنتدى معنا. إن لم يكن لديك حساب بعد, نتشرف بدعوتك لإنشائه.


منتدى الفيجول بيسك
 
الرئيسيةالرئيسية  البوابةالبوابة  اليوميةاليومية  س .و .جس .و .ج  بحـثبحـث  الأعضاءالأعضاء  المجموعاتالمجموعات  التسجيلالتسجيل  دخول  

شاطر | 
 

 التحكم في ComboBox برمجيا

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
Admin
Admin


المساهمات : 26
تاريخ التسجيل : 26/02/2011

مُساهمةموضوع: التحكم في ComboBox برمجيا   الجمعة أبريل 01, 2011 5:43 pm

التحكم في ComboBox برمجيا

اضف الاداة combobox الى الفورم و احصل على الشكل التالي:




اضف الاكواد التالية الى الفورم:

الكود:

Private Const CB_SHOWDROPDOWN = &H14F
Private Declare Function SendMessageByNum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Sub SetComboDropDown(cboCombo As ComboBox, ByVal bDown As Boolean)
Dim nRet As Long
nRet = SendMessageByNum(cboCombo.hwnd, CB_SHOWDROPDOWN, bDown, 0)
End Sub

Private Sub Command1_Click()
Call SetComboDropDown(Combo1, True)
End Sub
Private Sub Command2_Click()
Call SetComboDropDown(Combo1, False)
End Sub

Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
End Sub
شغل البرنامج الان
عند الضغط على Open يجب ان تحصل على الشكل التالي:





.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://visualbasic.alamontada.com
 
التحكم في ComboBox برمجيا
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
فيجول بيسك :: فيجول بيسك Visual Basic-
انتقل الى: