VB 在屏幕中间写个“十”字 要求不闪

来源:百度知道 编辑:UC知道 时间:2024/05/31 08:45:35
就是在屏幕中间写个字“十”。主要要求不闪,因为我在游戏里用,闪就不好用了,还有。鼠标点到那个字体“十”后,不激活他。因为如果游戏中不小心点到了那个字,弹出游戏可就不好了!会的 发下源码谢谢 我还会在追加100分!
也许大家没听懂我的要求,我在从新说下要求吧:
1.要求在游戏里不能闪(好像听说用哪个什么双缓存技术就可以,当然你有其他办法也可以)
2.如果鼠标点到了那个“十”字,不切换出游戏

二楼的说对了 我是用在CS里 ,4楼的那个代码对 但是闪啊 游戏里闪的厉害 我把毫秒调成了1也闪的

Option Explicit
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private ps As Long
Private pw As Long
Private pc As Long
Private Const PS_NULL = 5
Private Const PS_INSIDEFRAME = 6
Private Const PS_DASH = 1 ' -------