模块里定义全局变量的问题
模块代码如下
‘--------------------------------
Public Structure CtrlType
Dim id As Integer
Dim ControlName As String
Dim Ctrlobject As Control
Dim Ccode As String
End Structure
Public Myctl() As CtrlType
‘------------------------------------------------------
form1事件内代码
For i As Integer = 0 To Myctl.Length - 1
if Myctl(i).ControlName = "" Then
……………………
End If
Next
运行后就提示错误“未将对象引用设置到对象的实例。”
百思不得其解,没实例化,根本就无法new啊,在模块里声明的时候提示不能NEW数组
在外面NEW提示未定义的变量,我真的是一点脾气都没有了,请教各位大侠,这改怎么办?
[解决办法]
Public Myctl() As CtrlType
直接改为
Public Myctl(n) As CtrlType 'n为数组大小
不就得了