روش پايين انداختن ComboBox

[Amin_vb]

براي پايين انداختن ComboBox در ويژوال بيسيك شما بايد ابتدا كد زير را در يك ماژول وارد نماييد.

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

سپس كد زير را اجرا نماييد تا ComboBox باز شود.

Private Sub Combo1_GotFocus()
   Const CB_SHOWDROPDOWN = &H14F
   Dim Tmp
   Tmp = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
End Sub

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
موفق باشيد.
امين آقا . . .
:roll: