تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جعل ComboBox يفتح تلقائيا عند بدأ الكتابة
#1
كاتب الموضوع : sniperser

السلام عليكم
كود يجعل ComboBox يفتح تلقائيا عند بدأ الكتابة


كود :
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

Private Sub Combo1_KeyPress(KeyAscii As Integer)
Dim RC As Long
RC = SendMessage(Combo1.hwnd, &H14F, True, 0)
End Sub
تحياتي
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لأضافة صور في ComboBox RaggiTech 0 475 17-10-12, 02:53 PM
آخر رد: RaggiTech

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


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