VB如何使窗体及部件浮在屏幕上而不能被选中

答案:3 悬赏:60 手机版

解决时间 2021-02-13 05:26

提问者网友：皆是孤独
2021-02-12 22:26

窗体已经做出半透明，如何使鼠标选中不了这个窗体和上面的东西，可以透过它点击下面的按钮？高手求教

可能我的意思表达有问题，已经让这个窗体（form）和它上面的shape1置顶显示，目的是让鼠标即使点击到这上面还是可以直接透过窗体和shape1而操作下面的其他程序。

最佳答案

五星知识达人网友：野慌
2021-02-12 23:57

这个很简单，参考下面的代码做就行了：
Option Explicit
'声明这两个 API ：
Private Declare Function GetWindowLong Lib "user32" _
            Alias "GetWindowLongW" (ByVal hWnd As Long, _
                     ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
            Alias "SetWindowLongW" (ByVal hWnd As Long, _
                     ByVal nIndex As Long, _
                    ByVal dwNewLong As Long) As Long

Private Sub Command1_Click()
   '这个是把“自己”设置鼠标穿透
   '如果是设置别的窗口，下面的 hWnd就换成对应窗口的句柄
    Call SetWindowLong(hWnd, -20, _
                     GetWindowLong(hWnd, -20) Or &H80020)
End Sub

全部回答

1楼网友：一袍清酒付
2021-02-13 01:34

你这个是隔山大虎啊，你的思路错了！正确的思路是，以透明的窗体及空间事件响应其背后的操作，就是点击了这个窗体，而调用其背后窗体或者控件的对应事件，你试一下

2楼网友：刀戟声无边
2021-02-13 01:12

同求答案，不懂啊再看看别人怎么说的。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息