Question

VB 双击删除组合框内选项的代码哪里错了？

Private Sub Combo1_DblClick()
For i = Combo1.ListCount - 1 To 0 Step -1
If Combo1.List(i) = True Then
Combo1.RemoveItem i
End If
Next i

End Sub

Answer 1

你安装了VB6的MSDN了吗?如果安装了,看一下帮助.
当ComboBox 控件的Style属性为1，ComboBox 控件的DblClick()事件才起作用。
你可以这样实验：
1.把ComboBox 控件的Style属性为1，并把该控件的高度拖到大一点
2.启动程序，在ComboBox 控件中的下拉列表里，选择某一项，双击。
就会有效果。
你的代码要稍修改如下，否则全删除了：
For i = Combo1.ListCount - 1 To 0 Step -1
If Combo1.List(i) = True Then
Combo1.RemoveItem i
Exit For '删除1项就退出循环
End If
Next i

Answer 2

你用这样就可以了：
Private Sub Combo1_Click()
Combo1.RemoveItem Combo1.ListIndex
End Sub
但为了防止误删，要加上确认，则在删除前加个弹出信息框MXGBOX：
Private Sub Combo1_Click()
X = MsgBox("你要删除此项？" & Combo1.Text, 1)
If X = vbOK Then
Combo1.RemoveItem Combo1.ListIndex
End If
End Sub
我试过了这个程序，是对的。

Answer 3

Combo组合框根本不给你双击的机会，单击就选择项目了。还是用列表框吧：

Private Sub List1_DblClick()
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then List1.RemoveItem i
Next
End Sub