[求助]对象变量或with块变量未设置

kav135766

Public Sub Form_Paint()
     BlitRect.Right = DDSBackDesc.lWidth
     BlitRect.Bottom = DDSBackDesc.lHeight
     DDSFront.Blt BlitRect, DDSBack, BlitRect, DDBLT_WAIT     <------就是这一行
End Sub


Private Sub Form_KeyPress(KeyAscii As Integer)
     Dim sRect As RECT
     Dim hdcSrc As Long
     If KeyAscii = 27 Then
     ExitLoop = True
     'End
     ElseIf KeyAscii = vbKeyReturn Then
     DDSFront.BltToDC Picture1.hDC, sRect, sRect
     With Picture1
     '获得与主显示平面兼容的图形设备句柄
     hdcSrc = DDSFront.GetDC
     '保存图像
     Set .Picture = SaveTohBmp(hdcSrc, 0, 0, 640, 480)
     '释放图形句柄
     DDSFront.ReleaseDC hdcSrc
     SavePicture Picture1, "D:\aSunset.bmp"
     End With
     End If
    End Sub
_______________________________________________
个人感觉网上下的程序很少有能用的,即使是环境一样...

瑞士菜刀

"对象变量或with块变量未设置"
一般是少了set xxx=xxx

kav135766

http://bbs.gameres.com/showthread.asp?threadid=4545

来自这一帖

陈?

griffin2006: Re:[求助]对象变量或with块变量未设置

set xxx=xxx是什么意思，跟xxx=xxx有什么不同？请高手指教。

VB中对象之间的传址要用set,而如果是变量之间赋值就不用set了.

sandy_zc_1

一般来说应该是楼主的 DDSFront 变量是一个无效的引用。

检查代码，看看之前有没有创建好这个类的引用。

sandy_zc_1

Dim xxx As ZZZ
Set xxx=yyy
是设定xxx为yyy的引用，在VC里面就是指针。

在这里 xxx 只是指向 yyy对象的一个指针，并不是一个完整的对象。
当然如果yyy也是一个引用（指针）的话，那么xxx指向的就是它所指向的真正的对象。

但是如果set xxx=new ZZZ 的话，这时就创建了一个真正的ZZZ型对象。

liiir1985

搞了半天原来是vb.net里的零对象引用错误，要在一个面向过程的语言里面有对象的概念……
真是麻烦~
vb.net的等号直接是传址，所以set命令似乎没什么用了

liiir1985

还是vb.net的ide好，会自动监测到有可能发生零对象引用的语句，并提示~
函数在返回值得时候，要是不是所有路径都返回值，也会提示可能会发生零对象引用
不过最好的办法还是在有可能发生零对象引用的前面加上判断：
if xxx isnot nothing then
.....
.....
end if
或者另外一种我没验证过的方法：
if xxx then
...
...
end if

psic

VB6里的set是因为VB6有默认属性这个特性
所以必须要用set来区别究竟是在给对象的默认属性赋值还是在给对象变量本身赋值

VB6的写法
Text1="111111"
Set Text1=Text2

VB.net中的写法
Text1.Text="111111"
Text1=Text2

kav135766

感谢楼上各位的帮助