(在线等待ing)vba中combobox.DropDown下拉框展开后怎么自动隐藏？

yahuang613

vba中combobox.DropDown下拉框展开后怎么自动隐藏？
鼠标在combobox上，下拉框自动展开，鼠标不在combobox上，下拉框自动隐藏

[ 本帖最后由 yahuang613 于 2009-7-24 05:23 编辑 ]

yahuang613

  有没有高人路过..........

laoyebin

这个问题我也问过，好像要借助API
论坛改版后我以前发的帖子找不到了

netcut

combobox.DropUp

yahuang613

首先是对两面位热心的前辈表示感谢
combobox.Dropdown是自动展开下拉框
但是VBA中combobox并没有dropUP的功能，还望前辈出高招，拜谢！

yahuang613

我上传了附件，求救！

xuhuaaa

模拟鼠标左键单击。。
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  ListBox1.Height = 18
  ListBox2.Height = 18
  mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

yahuang613

谢谢你，我主要是让combobox的下拉框自动隐藏,不知道xuhuaaa能不能帮我一把？

yahuang613

谢谢你，我主要是让combobox的下拉框自动隐藏,不知道xuhuaaa能不能帮我一把？

你的思路我很佩服，还望指教

yahuang613

试用了代码，有一个问题，下拉框是可以隐藏了，但鼠标经过combobox时，combobox不能自动展开