如何在VB中实现窗体 “钉在桌面”的效果

2025-03-11 10:51:17

推荐回答（4个）

回答1：

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Form_Load()
Dim Parent&
Parent = FindWindow(vbNullString, "Program Manager")
SetParent Me.hWnd, Parent
End Sub

前几天我也在研究，呵呵

回答2：

主窗体不可移动无法点击即可

回答3：

你要的是将窗体置顶层或悬浮吧~看看下面的代码;(不好意思搞错了你是要下方我这是上方))

回答4：

Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const WS_EX_TRANSPARENT As Long = &H20&
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub Form_Load()

Dim Ret As Long
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED Or WS_EX_TRANSPARENT
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
'Set the opacity of the layered window to 200
SetLayeredWindowAttributes Me.hWnd, 0, 50, LWA_ALPHA
End Sub

把Ret = Ret Or WS_EX_LAYERED Or WS_EX_TRANSPARENT 这句的 Or WS_EX_TRANSPARENT 注销，鼠标就可以穿透
至于强制最小化，这个问题还有待进一步研究
I'm sorry

从当阳到西安南火车列车有哪些车次列车时刻表查询

QQ同步助手提供的Excel模板不能下载？无法连接？

小米盒子增强版安装沙发哪个好用

你是我感激的人初二作文700字左右，帮帮忙，谢谢！

农村信用社卡丢了补办后卡号会变吗

水质的氯离子测定用的硝酸银浓度一定为0.0141吗？可以是0.0137，或是其它的吗

我是理科考生，考了360可以上河北省什么样的专科学校呀？女生学什么专业好呀？

昨天中午打了瘦脸针，然后晚上七点多喝了一小杯啤酒，然后喝了很多水

接头发只接刘海接成中分得一般的都多少钱威海的都怎么接的恨麻烦么接完跟自己的头发一样吗