最简单办法使窗体的关闭按钮失效

hand5635339

我们编辑登录窗口时，不希望被别人点红叉关闭按钮绕过登陆，看别人介绍代码都很复杂，大家看这个办法怎样：

假设登陆窗体为1，另插入一个辅助窗体2，编辑窗体有个QueryClose动作，选该动作，窗体1代码：
UserForm1.Hide
UserForm2.Show

窗体2代码：
UserForm2.Hide
UserForm1.Show


意思就是，如果想点红叉关闭，就会弹出窗体2，窗体2什么也没有，只能按红叉关闭，又弹出窗体1，哈哈
实际运用时，点窗体1红叉后，弹出窗体2，点窗体2红叉后，弹出窗体1，再点窗体1红叉，就没反映了，只能乖乖登陆，很简单吧

gmts

这样都行？？？？？？？？？？？

jilijun

创意很不错，也精简了很多代码。
如果把UserForm1和UserForm2做成完全一样的，点“关闭”时会认为无法关闭。
学习了！

7433518

确实不错的主意

lu_zhao_long

还可以使用 API 将窗口右上角的关闭按钮禁止掉(灰掉)!

hand5635339

正规的都是用API来做，但对于新手来说，看到一堆代码就头晕，所以才想了这个办法，还可以在辅助窗口上写上字，比如：站住！此路不通！或者：由于你想走后门，所有数据将销毁！
哈哈

Coming

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = 1
    End If
End Sub
这样不是最简单的么？？？？？？

johnny05

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = 1
    End If
End Sub

这一个比较简单

biyvhudie105

1. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   
2. Cancel = True
   
3. End Sub

复制代码

feiaoli

biyvhudie105 发表于 2012-1-1 15:05

窗口红叉失效代码绝了

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     Cancel = True
End Sub

简单死了O(∩_∩)O哈哈哈~