这是我在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
但是当我试图运行这个程序时,它显示的是类型不匹配,并且没有给出任何提示。
有人能说出这段代码有什么问题吗。
发布于 2014-07-02 22:55:39
VB6有一个LockControls
,它控制窗体上的锁定控件。您的函数名lockControls
与其冲突。
重命名函数。
发布于 2018-01-17 21:43:26
如果收到错误:
函数对象"FUNCTION1“中的错误数据类型不匹配
转到mdb文件并更改字段的数据类型。
https://stackoverflow.com/questions/24546591
复制