VB 如何让一个窗体永远置顶但激活(控件可用)？

2025-02-23 17:19:50

推荐回答（2个）

回答1：

我看见你这个问题了,研究了半天始终是不太理想,不过我还是告诉你我的答案吧:
用SetWindowPos将窗体至于最前..用SendMessage给窗体发送取消激活的消息可以达到你的要求.
以下是我帮你写的代码:

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOPMOST = -1
Private Const WM_NCACTIVATE = &H86

Private Sub Form_Load()
'//将窗体至于最前..
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
End Sub

Private Sub Form_Activate()
'//我的问题就在这里:当窗体第一次激活的时候发送取消激活的消息可以成功.但是当这个窗体取消焦点,在获得焦点的时候,怎么也激活不了这里面的代码,没法我只能用循环来解决了...
Do
DoEvents
SendMessage Me.hwnd, WM_NCACTIVATE, 0, 0
Loop
End Sub

我想告诉你的就是 SendMessage Me.hwnd, WM_NCACTIVATE, 0, 0 这句就是取消激活的命令.

回答2：

好似有窗体设置先后顺序的。

最新问答

男孩名字叫文泽能打多少分

实况足球有世界杯预选赛吗？

住男朋友家一年多了，我觉得我男朋友和他的亲戚都看不起我，怎么办？我也不能出去，难道要忍气吞声吗？他

如何制作数学思维导图的方法步骤

福建春季高考(中招生)可以考厦门大学或者福州大学吗？可以考的省内本一院校有哪些??

新电脑，开机后忘关机，就盒盖，然后打开就一直闪，关机了开机也闪，怎么回来啊？

视觉杂志停刊了吗

西红柿叶子卷缩是什么情况？

长沙冬天可以去哪里玩长沙周末放松好去处