当用户鼠标按下ComboBox控件下拉箭头时，进行判断，列表内容为空则　跳出MsgBox""

[ 本帖最后由 xzqsml 于 2010-1-30 13:50 编辑 ]

您好！代码可行的，不过要在鼠标点击下拉箭头时事件中，
怎么写呢？

＇－－－－－－－－－－－－－－－－－－－－－
当点击下拉箭头出现列表框时运行以下代码：

dim n as integer

n=list.listcount

if not n>0 then
    msgbox "********",vbokonley,"***"
    exit sub
end if

[ 本帖最后由 xzqsml 于 2010-1-30 12:32 编辑 ]

没有人知道是触发什么事件吗？
我找了好多资料　说是OnDropDown事件　．
Private Sub Combo1_OnDropDown()

End Sub


不知对不？没有验证过．．

但，试了下
Private Sub Combo1_OnDropDown()
     Dim n As Integer

     n = Combo1.ListCount

  If Not n > 0 Then
      MsgBox "********", vbokonley, "***"
    Exit Sub
  End If
End Sub

＇－－－－－－－－－－－
点击下拉箭头上述代码没反应吗！～～5555555
求助．．．



[ 本帖最后由 xzqsml 于 2010-1-30 13:08 编辑 ]

是不是要将ComboBox 控件的 Style 属性设置为 2（变下拉式列表框）时，
下述代码才有效吗？
＇－－－－－－－－－－－－－－－－－－
Private Sub Combo1_OnDropDown()
   Dim n As Integer

n = Combo1.ListCount

If Not n > 0 Then
    MsgBox "********", vbokonley, "***"
    Exit Sub
End If

End Sub

2 ,仅可选择,不可编辑
Private Sub Combo1_OnDropDown()
   Dim n As Integer

n = Combo1.ListCount

If Not n > 0 Then
    MsgBox "********", vbokonley, "***"
    Exit Sub
End If

End Sub
上述代码无反应阿？

我的要求　是　点击下拉框（箭头）时
运行下述代码
Private Sub Combo1_OnDropDown()
   Dim n As Integer

n = Combo1.ListCount

If Not n > 0 Then
    MsgBox "********", vbokonley, "***"
    Exit Sub
End If

End Sub
　

ComboBox的OnDropDown事件和Click事件，好像差不多吧！！
我想要的是点击下拉框（箭头）时运行代码．．
不是选择数据时运行代码（Click事件）．．．

是不是OnDropDown事件也要选择数据时才运行代码呢？？

可以了．．．谢谢．．是写错了．．
版主真热心肠，，．DropDown写错OnDropDown