VB窗体小问题

来源：百度知道 编辑：UC知道 时间：2024/05/15 18:03:29
生成了EXE文件后,运行→出现窗体
但此时只能按窗体上的东西,别的桌面上的都不能按
是怎么编啊?
谢谢啊

下面的代码可以完成你要的功能，其中r是一个区域。

注释掉的部分可能更合乎你的要求，看一看吧！

Option Explicit

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long

'Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Sub Command1_Click() '限制鼠标区域
Dim r As RECT

'GetClientRect Me.hwnd, r

r.Left = 0
r.Top = 0
r.Right = 300
r.Bottom = 200

ClipCursor r
End Sub

Private Sub Command2_Click()
ClipCursor ByVal 0& '解除限制
End Sub

做两个窗体，一个在下层，无框的，把整个桌面复制到上面，第二个才是你的程序窗体！这样看起来桌面不变，但是无论点任务地方，其实都是点到你第一个窗体，所以什么都点不动！ ^_^
需要相关代码的Q Me：6032131

我再提供另外的思路：
一个窗体，通过API函数把鼠标的指针限制在窗体所在的区域