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

Question

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 Longdim hPen as long 
hPen=CreatePen(必要参数)
DeleteObject hPen ‘释放掉pen的资源我不知道你要绘什么东西。具体的方法可以查API或MSDN。

Answer 1

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

Answer 2

这是我曾遇到的问题。已经解决了，你自己看吧http://www.csdn.net/expert/topic/728/728885.xml?temp=1.089114E-02

Answer 3

这是 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

Answer 4

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