是这样的,我打算制作一个游戏的辅助工具,想用DrawText在游戏中提示一些文本,可是每次Draw完后就被游戏重绘了(消失了),即使是时钟1ms绘制一次依然会明显的看出被一次一次的刷新掉,这个怎么解决?(我是VB6)
部分代码:
Private Sub Form_Click()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
Dim hwnd!, hdc&
hwnd = FindWindow("IDCLASS", vbNullString)
hdc = GetDC(hwnd)
GetClientRect hwnd, a
SetTextColor hdc, vbRed
SetBkMode hdc, 1
DrawText hdc, "aaaaaaaaaaa", 6, a, 1&
End Sub
感激不尽