vb6显示函数中的类型不匹配

Question

这是我在VB6中锁定控件的代码

Private Function lockControls()
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox _
        Or TypeOf ctrl Is ComboBox _
        Or TypeOf ctrl Is NumBox _
        Or TypeOf ctrl Is OptionButton _
        Or TypeOf ctrl Is DTPicker Then
            ctrl.Enabled = True
        End If
    Next
End Function

但是当我尝试运行该程序时，它显示的是类型不匹配，并没有给出任何提示 任何人都可以说这段代码有什么问题。

Answer 1

VB6有一个hidden property LockControls来控制表单上的锁定控件。您的函数名称lockControls与之冲突。

重命名该功能。

Answer 2

如果您收到错误：

  

错误数据类型不匹配功能对象＆＃34;功能1＆＃34;

转到您的mdb文件并更改字段的数据类型。