求VB代码 如何使窗体不能被关掉最小化

来源：百度知道 编辑：UC知道 时间：2024/06/19 12:00:06
去掉右上的叉和始终占住屏幕不被最小化和不被其他窗口覆盖
或者一关掉又弹出来
恶搞用
刚学 最好带点说明 我再追加分

如果你想恶搞的话，上面老兄的代码窗口不会始终在最前面，比如任务管理器就可以显示出来。
我来补充两句 ， 在新建个timer 控件 把它的Internet设为1 然后把 Form_Load() 下面 的
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3

Me.WindowState = 2
这两句一到timer1_time 里面就行了
警告 ，最好在窗体中加个command 在里面写个退出的代码 不然你会无法关闭你测试的窗体的

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 Sub Form_Load()
'窗口总在前面 OnTop
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
'窗口最大化
Me.WindowState = 2
End Sub

Private Sub Form_Resize()
'最小化时还原最大化
Me.WindowState = 2
End Sub

Private Sub Form_Unload(Cancel As Integer)
'单击X时不关闭
Cancel = 1
End Sub

也许你可以改窗体的属性 BorderStyle=1 和 WindowState=2
加载的时候加上 me.Show vbModal