关于下拉框的问题!

Question

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 Const CB_SHOWDROPDOWN = &H14F
拉下：
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, ByVal 0&
收起：
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, False, ByVal 0&

Answer 1

用SendMessage函数，参数用CB_SHOWDROPDOWNPublic Const CB_SHOWDROPDOWN = &H14F
SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long例如：
SendMessage Combo1.hwnd,CB_SHOWDROPDOWN,0,0
SendMessage Combo1.hwnd,CB_SHOWDROPDOWN,-1,0

Answer 2

在vb中当下拉框获得焦点时，sendkeys "{F4}"第一次展开列表，第二次收起,....

Answer 3

大家一般都不会假设你什么都不会，那样也是不礼貌的，所以大家首先给你一个提示，如果还不够，大家再深入、具体。谁知道你不会用API？听你说话的口气就知道你是个年轻气盛的小伙子。我年长你几岁，在此说你几句，听不听是你的事。
你现在是在求教于别人，而别人也不知道你的情况，更不十分清楚你遇到的具体问题。你不能假设大家应该明白你的意图。你现在在求教的时候都如此霸气，要是别人求教于你，不知你会是什么样的态度了。

Answer 4

to:大侠
Sorry!
我不是这个意思!
如有得罪,请原谅!

Answer 5

huanggx(大侠)　呵呵……确有大侠风范！！好！