pinokio
جمعه 08 خرداد 1383, 12:57 عصر
سلام
من با استفاده از کد زیر یک کامبو باکس معمولی رو باز می کنم
ولی وقتی که می خوام با این کد یک دیتا کامبو باکس رو باز کنم باز نمی کنه
کسی می دونه که چطوری باید این کار رو کرد
Public 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 Const CB_SHOWDROPDOWN = &H14F
Dim x As Long
x = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0&)
من با استفاده از کد زیر یک کامبو باکس معمولی رو باز می کنم
ولی وقتی که می خوام با این کد یک دیتا کامبو باکس رو باز کنم باز نمی کنه
کسی می دونه که چطوری باید این کار رو کرد
Public 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 Const CB_SHOWDROPDOWN = &H14F
Dim x As Long
x = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0&)