当用户鼠标按下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

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

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

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 编辑 ]

DropDown 事件
      

该事件是当 ComboBox 控件的列表部分正要被放下时发生；如果 ComboBox 控件的 Style 属性设置为 1（简单的 Combo）时此事件不会发生。

语法

Private Sub object_DropDown([index As Integer])

DropDown 事件的语法包含下列部分：

部分 描述
object 一个对象表达式，其值是“应用于”列表中的一个对象。
index 一个整数，用来唯一地标识一个在控件数组中的控件。


说明

DropDown 事件过程可以用在接受选择之前对 ComboBox 列表进行最后的各种更新。于是允许使用 AddItem 或 RemoveItem 方法从该列表添加或删除条目。在需要控件间有某些相互作用时，这种灵活性是很有用的，例如，需要根据在 OptionButton 组中的选择才能决定加载到 ComboBox 列表的内容时，就可以利用该事件。


--------------------------
Private Sub Combo1_DropDown()
     Dim n As Integer

     n = Combo1.ListCount

  If Not n > 0 Then
      MsgBox "********", vbOKOnly, "***"
    Exit Sub
  End If
End Sub
-------------------------
代码有效.

是不是要将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

是不是要将ComboBox 控件 的syple 属性为 0 或 2 .
你这种情况建议设为2

0 ,可编辑,可选择.
1 ,仅可编辑,不可选择,等同一个 textbox
2 ,仅可选择,不可编辑

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
上述代码无反应阿？