vb6.0调用API问题，求助~~~ 急~~~~

Question

GetDC
StretchBlt
我调用了上述两个API 并且用timer每隔40毫秒调用一次 stretchblt。做的是双屏模式时的监视程序Private Sub start()
StretchBlt hdc, 0, 0, 1366, 1366, GetDC(0), 1366, 0, 1366, 1366, Srccopy
End SubPrivate Sub Timer1_Timer()
start
End Sub结果运行10分钟左右后 程序就死了  我查了一下有人说的内存泄漏 要 delete 或者 release  但是不知道怎么用主要想问有没有什么办法解决运行10分钟后程序出错的问题 或者有谁知道 delet relase怎么用(用的是vb6.0  程序死的时候 一开始先是stretchblt工作停止，监视窗的画面不再更新，然后整个程序未响应，包括VB6.0一起死了....)

Answer 1

这个简单，就是你GetDC得到的那个dc用了后需要ReleaseDC，于是start函数可改为：
Private Sub start()
Dim hDeskDc as Long
hDeskDc =GetDC(0)
StretchBlt hdc, 0, 0, 1366, 1366, hDeskDc, 1366, 0, 1366, 1366, Srccopy
ReleaseDC 0, hDeskDc
End Sub
当然，由于你这里是对同一个DC频繁读取，所以不如把hDeskDc定义成窗体模块变量，然后在
Form_Load里GetDC,Form_Unload里ReleaseDC一次就行了