تقييم الموضوع :
  • 1 أصوات - بمعدل 2
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] فتح قائمة combo
#1
Heart 
السلام عليكم
أخواني أحتاج الى كود انسدال قائمة combobox تلقائيا
مع فائق الاحترام والتقدير
الرد }}}}
تم الشكر بواسطة: 30june , awidan76
#2
ComboBox1.DroppedDown = True
الرد }}}}
تم الشكر بواسطة: 30june , awidan76
#3
السلام عليكم
أخى الكريم
فى حدث 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 للكومبو ضع الكود التالى
Private Sub Combo1_GotFocus()
Dim RC As Long
RC = SendMessage(Combo1.Hwnd, &H14F, True, 0)
End Sub
[code]

بالتوفيق إن شاء الله
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إضافة برنامجك في قائمة السماح للجدار الناري للوندوز Ahmed_Mansoor 5 263 30-01-16, 05:10 PM
آخر رد: VB_Local

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم