vb:禁止使用Alt F4关闭窗口

文章作者 100test 发表时间 2011:03:18 20:37:35
来源 100Test.Com百考试题网

[导读]禁止使用 Alt F4 关闭窗口,软件开发是一个极其复杂的过程，一段小的代码我们可以快速、准确的完成，但是当你面对的是一个庞大的软件系统的时候，你是否有不知所措的感觉呢？ 　　声明：
　　Private Declare Function GetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
　　Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
　　Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long Private Const MF_BYPOSITION =