主题:急切求助:这种错误是怎么一回事?
xinying2005
[专家分:0] 发布于 2005-12-06 18:28:00
未处理的“System.NullReferenceException”类型的异常出现在 microsoft.visualbasic.dll 中。
其他信息: 未设置对象变量或 With 块变量。
运行程序时,出现如上的错误,是怎么一回事?
谢谢!!!!
回复列表 (共8个回复)
沙发
chenjin145 [专家分:200] 发布于 2005-12-06 20:13:00
能看下程序嘛?
大概是引用了空值的变量或未初始化的对象
板凳
andy5337 [专家分:760] 发布于 2005-12-07 14:05:00
把你报错的那段代码发上来,看一下。
3 楼
xinying2005 [专家分:0] 发布于 2005-12-08 11:39:00
说明:p()中元素均为控件名称,这些控件有time、ptime、mark属性。
Dim p() = {p11, p12, p13, p14, p15, p16, p17, p21, p22, p23, p24, p25, p26, p27, p3, p4, p51, p52, p61, p62, p7, p81, p82}
Public Function Initialize() As Single
Dim i As Integer
Dim pt() = {25, 8, 5, 0, 2, 0.5, 0, 25, 8, 5, 0, 2, 0.5, 0, 0, 0, 20, 0, 0.5, 0, 0, 20, 0}
For i = 0 To 22
p(i).time = pt(i)
Next
Dim ppt() = {5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 3, 0}
For i = 0 To 22
p(i).ptime = ppt(i)
Next
Dim pm() = {1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0}
For i = 0 To 22
p(i).pmark = pm(i)
Next
End Function
4 楼
markshen [专家分:0] 发布于 2005-12-08 11:52:00
是没有函数返回吗?
是不是需要写成DIM P(0 TO 23) AS ……
5 楼
xinying2005 [专家分:0] 发布于 2005-12-09 09:45:00
我写的是一个初始化函数,目的为了赋值。应该怎么写呢?
谢谢指导!!!!!
6 楼
andy5337 [专家分:760] 发布于 2005-12-09 11:24:00
Dim p() as p11等控件的类型 = {p11, p12, p13, p14, p15, p16, p17, p21, p22, p23, p24, p25, p26, p27, p3, p4, p51, p52, p61, p62, p7, p81, p82}
你要初始化的那些若是同一个类型的,上面的定义就没有问题了
答完收工。
7 楼
xinying2005 [专家分:0] 发布于 2005-12-09 19:51:00
控件的类型 是指什么? 可以举例说一下吗? 谢谢!!!
8 楼
andy5337 [专家分:760] 发布于 2005-12-12 08:51:00
比如说p11等是button按钮类型
那就写成 Dim p() as button = {p11, p12, p13, p14, p15, p16, p17,...}
这样你能看明白吗?
我来回复