请问 api绘图调用后如何彻底释占用的放内存

[SenseKey]

用api绘图函数比如createpen()->movetoex()->lineto()绘图之后如何彻底释放掉所占的内存空间，或者有什么更好的绘图方法。尽量少占内存空间？

[poplib]

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Declare Function CreatePen Lib "gdi32" Alias "CreatePen" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long

dim hPen as long
hPen=CreatePen(必要参数)
DeleteObject hPen ‘释放掉pen的资源

我不知道你要绘什么东西。具体的方法可以查API或MSDN。

[shawls]

一般都有一个对应的api用来删除的，作用就是释放内存空间！

[SenseKey]

但是我发觉好像不能完全彻底的释放掉阿，如果我这样做，我循环的创建画笔--〉绘图——〉删除，过一会就会内存溢出

[rise139]

这是我曾遇到的问题。已经解决了，你自己看吧

http://www.csdn.net/expert/topic/728/728885.xml?temp=1.089114E-02

[rise139]

这是 bitsoft 帮我改的，希望也能帮助你拉

看看如下更改和增加的地方，是否能帮你：
================================================
for i=1 to 3000
'设置笔的颜色和类型PS_DOT 虚线，PS_SOLID实线
LP.lopnStyle = PS_SOLID
LP.lopnColor = vbRed
'创建红色的笔
hRPen = CreatePenIndirect(LP)
'选择笔
lll = SelectObject (fShow.hDC, hRPen) '改

'
' ................ 线绘制过程
'
'

'删除笔
SelectObject fShow.hDC,lll '加
DeleteObject hRPen

'创建青色刷子
hFFBrush = CreateSolidBrush(&HC0C000) '改
'选择青色刷子
l1 = SelectObject (fShow.hDC, hFFBrush)
'设置笔颜色和类型PS_DOT 虚线，PS_SOLID实线
LP.lopnStyle = PS_SOLID
LP.lopnColor = &HC0C000
'创建青色的笔
hRPen = CreatePenIndirect(LP)
'选择青色的笔
l2 = SelectObject( fShow.hDC, hRPen) '改

'
' ................实心方框绘制过程
'
'

'删除刷子
SelectObject fShow.hDC,l1 '加
DeleteObject hFFBrush
'删除笔
SelectObject fShow.hDC,l2 '加
DeleteObject hRPen
next

[288794]

先删除 hDC,然后删除 GDI 对象