高校问答鱼鳞病民间最有效偏方:vb的combo问题
来源：百度文库 编辑：高校问答 时间：2024/05/06 17:15:40
我想当COMBO获得焦点时就自动展开列表,如何去做呢?
不强求是COMBO,只要能实现类似的功能.
不强求是COMBO,只要能实现类似的功能.
COMBO展开列表的快捷键是F4键。用API模拟F4键的输入即可解决这一问题。
代码如下：
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Combo1_GotFocus()
Call keybd_event(vbKeyF4, 0, 0, 0)
End Sub
附 VB KeyCode 常数表
http://www.hongen.com/pc/program/progtool/vbkeycod.htm
模仿按下F4，代码：
SendKeys "{F4}"