PDA

View Full Version : Dropdown



Sahand87
سه شنبه 16 اسفند 1390, 19:21 عصر
با سلام و خسته نباشید خدمت دوستان گرامی
چطور میشه خاصیت Dropdown کامبوباکس را با کد نویسی در صورت فوکوس روی کومبوباکس بدون کلید روی کومبوباکس فعال کرد .
خاصیت Dropdown List را در گزینه STYLE فعال کردم ولی بدون کلیک لیست فعال نمی شود .
متشکر

ASedJavad
سه شنبه 16 اسفند 1390, 22:00 عصر
سلام
احتمالا باید با ای پی ایی مثل postmessage‌ یا mouse_event رو کمبوت کلیک مجازی کنی

setroyd
سه شنبه 16 اسفند 1390, 23:29 عصر
با SendMessage میتونی این کارو بکنی .

hrj1981
چهارشنبه 17 اسفند 1390, 06:13 صبح
سلام

Private Sub Combo1_GotFocus()
SendKeys "{F4}"
End Sub

setroyd
چهارشنبه 17 اسفند 1390, 11:43 صبح
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
Const CB_SHOWDROPDOWN = &H14F


Private Sub Command1_Click()
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&
End Sub

با api بهتره و اصولی تر . موفق باشی .