VB6 如何使ALT+F4无效,像有些安装程序那样锁定窗体?

发布网友 发布时间：2024-10-23 23:03

我来回答

共3个回答

热心网友 时间：2024-11-10 04:22

你好,我遇到过.我理解你说的是什么意思.

你这样做,你就理解了

打开VB 添加那个窗体Form1 和Form2
Form1是安装程序的背景,Form2是安装选项的窗体
Form1始终在Form2的后面,则点Form1无效,Form2会闪一下

你直接在Form1里的Form_load里加上一句话就可以了

Private Sub Form_Load()
form2.show 1 '这样Fomr2就是你想要的结果了
End Sub

如果想关闭alt和f4在Fomr2里添加

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 4 And KeyCode = 115 Then KeyCode = 0
End Sub

就可以了!

热心网友 时间：2024-11-10 04:14

1:第一个在QueryUnload 里面把CANCEL=1就关不掉了.除非在别的过程中,比如command1_click里调用end,或者从任务管理器结束进程
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = 1
End Sub

2:
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 SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1

Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
End Sub

可以使窗体最前面....
也可以在show的后面加参数1,就向2楼说的那样,也可以达到效果

热心网友 时间：2024-11-10 04:15

回答：
1：在Form_KeyDown事件中加入代码，效果如：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 4 And KeyCode = 115 Then KeyCode = 0
End Sub
2：这个问题我读得不是太明白，请你详细描述一下。