禁止使用 Alt+F4 关闭窗口

2016-02-19 14:56 12 1 收藏

下面图老师小编要跟大家分享禁止使用 Alt+F4 关闭窗口,简单的过程中其实暗藏玄机,还是要细心学习,喜欢还请记得收藏哦!

【 tulaoshi.com - 编程语言 】

  声明:

  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 = &H400&

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  使用:

  

Private Sub Form_Load()'Vb man 2001'URL: http://goodvbman.yeah.net'E-mail: coolde@21cn.comDim hwndMenu As LongDim c As LonghwndMenu = GetSystemMenu(Me.hwnd, 0)c = GetMenuItemCount(hwndMenu)DeleteMenu hwndMenu, c - 1, MF_BYPOSITIONc = GetMenuItemCount(hwndMenu)DeleteMenu hwndMenu, c - 1, MF_BYPOSITIONEnd Sub

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

来源:http://www.tulaoshi.com/n/20160219/1608374.html

延伸阅读
跟随页面弹出的窗口在规定时间内自动关闭,而且不作任何提示 代码:<script language="JavaScript" <!-- url="popup.htm" window.open(url, 'www_helpor_net', 'width=468,height=60,resizable=1,scrollbars=no,left=100,top=50') -- </script 然后,在相同目录下新建一个popup.htm网页(注意要与上面的url对应!),用于显示在弹...
标签: flash教程
5. 把转角点转换为曲线点 : 在使用钢笔工具绘制曲线时,会创建曲线点(curve points),即连续的弯曲路径上的锚点(anchor points)。当绘制一条直线,或者一条连接到曲线段上的直线时,会创建转角点(corner points),即直线路径上或直线路径和弯曲路径接合处的锚点。 默认情况下,选定曲线点显示为空心圆点,选定转角点显...
标签: 电脑入门
相信用过windows7的朋友都知道,当我们将某个窗口拖拽到屏幕的顶部时窗口就会自动最大化。这就是windows7带来的新功能新亮点之 一。可是我认为这也带来了一些弊端,假如你把窗口拖拽到顶部只是为了移开遮挡的视线,而不是最大化,那这个功能岂不就是画蛇添足啊?因此我们可以通过做一 些小的改动来避免拖拽窗口到顶端时窗口自动最大化。 步骤...
标签: Java JAVA基础
【9、终极应用--弹出的窗口之Cookie控制】 回想一下,上面的弹出窗口虽然酷,但是有一点小毛病(沉浸在喜悦之中,一定没有发现?)比如你将上面的脚本放在一个需要频繁经过的页面里(例如首页),那么每次刷新这个页面,窗口都会弹出一次,是不是非常烦人?:-( 有解决的办法吗?当然有!我们使用cookie来控制一下就可以了。首先,将...
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing If MsgBox("請注意看關閉的視窗", MsgBoxStyle.Question + MsgBoxStyle.OKCancel, "關閉") = MsgBoxResult.OK Then Dim d As Double For d = 1 To 0 + 0.2 Step -0.2 System.Threading.Thread.Sleep(50) Applic...

经验教程

939

收藏

5
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部