VB 窗体在任务栏的前端的代码怎么写

来源：百度知道 编辑：UC知道 时间：2024/06/18 04:17:56
我想让我的VB 窗体在任务栏的前端,也就是说当我编写的主窗体最大化时,不能对电脑进行其它操作.只有窗体最小化时才可以.这段代码怎么写啊.
还有,如果想要窗体最小化时,输入密码怎么弄.现在密码输入窗体已经做好了,但我不知道窗体最小化的触发事件是哪个.
还有,窗体只保留最小化跟关闭,去掉最大化怎么弄.

一、窗体置前代码：
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 Const HWND_TOPMOST& = -1
Private Const SWP_NOSIZE& = &H1
Private Const SWP_NOMOVE& = &H2
然后
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
全部盖住屏幕，要先用上面的代码，然后把width和height设置为屏幕的分辨率*15，然后left和top为0即可

二、没得最小化事件！但是在最小化时会触发resize事件，在这个时候检查是否窗体的windowstate为1

三、去掉最大化按钮：窗体的Maxbutton=false

Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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

setwindowpos me.hwnd，1，0，0，0，0，3