TypeOf ctl是ComboBox给出错误“模块不是有效类型”

Question

我试图通过此代码

清空我的VB6表单上的所有控件

Public Sub ClearControls(frmName As Form, TagName As String)
Dim ctl As Control
For Each ctl In frmName.Controls
If ctl.Tag = TagName Then

If TypeOf ctl Is TextBox Then
ctl.Text = ""
ElseIf TypeOf ctl Is ListView Then
ctl.ListItems.Clear
ElseIf TypeOf ctl Is ComboBox Then
ctl.Clear
ElseIf TypeOf ctl Is OptionButton Then
ctl.Value = False
ElseIf TypeOf ctl Is DTPicker Then
ctl.Value = Date
ElseIf TypeOf ctl Is Label Then
ctl.Caption = ""
ElseIf TypeOf ctl Is CheckBox Then
ctl.Value = 0
End If

End If
Next
End Sub

在检查Combobox和Listview

时，它会给我以下错误

“模块不是有效类型”

有什么建议吗？

Answer 1

您是否有名为ComboBox或ListView的代码模块（类，表单，.BAS文件，用户控件）？

尝试完全限定名称，使其不含糊不清

ElseIf TypeOf ctl Is VB.ComboBox Then 

我建议您在VB6选项中取消“按需编译”，因为最好立即告知编译错误，而不是在代码执行到达问题行时。