VBA的ListBox如何实现这种情况？

[triper]

我的程序中，在ListBox里有内容的情况下，对某一行内容双击可以将其在ListBox中删除
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub

但在没有内容的情况下，在任意的地方双击会出错，请问应该如何避免这种情况？

[triper]

其实就是如何判断ListBox中有数据的问题
帮忙解决一下，多谢啦

[triper]

好象也不完全是这样,我是希望避免鼠标双击的地方不是ListBox上列出的数据时,不发生错误-_-||

[triper]

哈哈,自己差不多解决啦~~~

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.Text = "" Then
Exit Sub
End If
ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub
不过,还是稍微有点不爽.

[w99jf]

好象应该没问题吧。。

[growland]

.....这个有意思,该怎么给分捏,呵呵,给我得了