vb6 - TypeOf ctl Is 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您是否有一个名为or的代码模块（类、表单、.BAS 文件、用户控件）ListView？

尝试完全限定名称，使其不模棱两可

ElseIf TypeOf ctl Is VB.ComboBox Then 

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