一个关于deleteobject的问题

[redshiliu]

在作图时要用到多个画笔比如
dim hPen as long

hPen=CreatePend(...)
......
这里要换另外一种颜色的画笔
需要DeleteObject hPen吗？
如果不删除直接
hPen=CreatePen(...)会造成泄露吗？

[jhone99]

as long
DeleteObject
***************
哪跟哪呀？

[帝企鹅已被占用]

看看
http://www.xtremevbtalk.com/archive/index.php/t-187806.html

[redshiliu]

也许我说的不清楚，我的意思是这样的
dim hPen as long
dim hPenOld as long

hPen=CreatePen(PS_SOLID,1,RGB(255,0,0)) '第一次创建
hPenOld=SelectObject(Me.hDC,hPen)
这里是一系列的画线
然后我要换一个颜色画笔
hPen=CreatePen(PS_SOLID,1,RGB(0,255,0))'第二次创建（hPen重新指向了新建的画笔，那原来的画笔需要删除吗？）
SelectObject Me.hDC,hPen '这里替换出来的是第一次创建的画笔
这里是一些列画线

还原原来的画笔
SelectObject Me.hDC,hPenOld
DeleteObject hPen

整个过程我创建了两个画笔，最后只做了一次删除，我的意思这样会造成泄漏吗？

[redshiliu]

MSDN上介绍不要删除一个已经选入设备场景的画笔，刷子
但是比如这样
dim hPen as long

hPen=CreatePen(PS_SOLID,1,RGB(255,0,0))
SelectObject Me.hDc,hPen
Debug.print(DeleteObject(hPen)) '这里删除已经选入设备场景的画笔hPen，返回值非零，说明成功了
但是照理应该是失败啊，另外这样删除有什么不好的地方？

[jiashie]

[Quote=引用 3 楼 redshiliu 的回复:]

也许我说的不清楚，我的意思是这样的
dim hPen as long
dim hPenOld as long

hPen=CreatePen(PS_SOLID,1,RGB(255,0,0)) '第一次创建
hPenOld=SelectObject(Me.hDC,hPen)
这里是一系列的画线
然后我要换一个颜色画笔
hPen=CreatePen(PS_SOLID,1,RGB(0,……
[/Quote]
个人认为会造成泄漏，就相当于C语言中一个指针先指向某一变量A，然后又改指向另一变量B，原先的变量A就再也找不到了，也就忘了回收了。
当然，不知道vb6帮我们回收了没有。

[PctGL]

不删除就会泄漏，对于刚选入场景的画笔等一些对象不要立刻删除，要在不需要使用的时候删除