VB 如何在屏幕上 画一个红色边框 并随鼠标移动?

来源：百度知道 编辑：UC知道 时间：2024/06/07 23:43:03
程序中我用 API函数Rectangle 在屏幕上画的边框。请问 如何让它在屏幕上 并随鼠标移动？(不要把VB窗体全屏化了模拟屏幕) 因为我的桌面是动态桌面 所以不要锁屏哦！我QQ271072330
不要把VB 窗体透明了 覆盖屏幕 也不要挖空窗体搞成边框 也不要用四个VB窗体代替四边来代替边框 因为以上几种太浪费资源了 我就想用Rectangle画上去 再用个函数擦除！

'在窗体上加入控件timer1，然后复制下面代码，运行即可。

Option Explicit

Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject 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 Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal