VB:点击右上角的"X"关闭窗口这个动作内,怎么添加代码?

是form_unload吗?好像不行?

Private Sub Form_Unload(Cancel As Integer)
    '在此添加关闭窗口时需要执行的代码
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  推荐于2017-11-25
就是Unload事件,例如:

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("确定要退出吗?", vbYesNo) = vbNo Then Cancel = 1
End Sub本回答被提问者采纳

VB:点击右上角的"X"关闭窗口这个动作内,怎么添加代码?
Private Sub Form_Unload(Cancel As Integer) '在此添加关闭窗口时需要执行的代码End Sub

excel vba 编程,怎么讲窗口右上角的那个【X】隐藏掉。。。或者把它的...
在你的用户窗口的代码中添加一个这个过程可以屏蔽VBA创建的用户窗口上标题栏的关闭按钮.但是要注意你的代码中要有能控制关闭该窗口的代码要不你没办法关闭这个用户窗口 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)Cancel = 1 End Sub ...

如何处理用户窗体右上角的X按钮
默认情况下,单击用户窗体右上角的X(关闭)按钮后,将卸载该用户窗体并从内存中清除。这样,其它代码将无法再与该用户窗体进行交互。此时,我们可以略微更改关闭按钮的功能,当用户单击该按钮时,隐藏用户窗体而不是彻底卸载它。用户窗体模板如图1所示。图1 代码如下:Private SubbtnOK_Click()Me.Hide ...

VB 编程中如何使窗口右上角的关闭按钮(X)失效?
在VB编程中,若要使窗口右上角的关闭按钮(X)失效,仅使用VB自带函数无法实现,需要借助Windows API。实现方法如下:1. 使用`GetSystemMenu`函数获取系统菜单的Menu handle。2. 调用`GetMenuItemInfo`函数读取系统菜单中关闭按钮的消息。3. 利用`SetMenuItemInfo`函数设置关闭按钮的命令,从而达到使其失...

VB 窗口的关闭按键
在窗体的QueryUnload事件中写代码,如果要退出,让Cancel=1 Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Dim int_Exit As Integer int_Exit = MsgBox("您确认要退出?", vbYesNo, "信息提示")If int_Exit = vbNo ...

点窗口那个右上角x不关闭程序vb代码怎么写
Private Sub Form_Unload(Cancel As Integer)Cancel = True End Sub

请问VB能使一个窗体无法用右上角的"X"关闭吗
窗体右上角的X按钮通常用来关闭一个程序,这个小X按钮实际上是和系统菜单的“关闭”菜单项关联在一起的,什么?不知道什么是系统菜单,系统菜单是指我们点击窗体左上角的小图标时所弹出的菜单,其中好象有“恢复”、“移动”、“最大化”、“最小化”、“关闭”这么几个按钮。这个菜单用普通的方法是...

vb .net 中右上角的那个小X,他默认是点击后关闭本窗体,如何使它关闭...
Form_Deactivate事件在窗体被卸载时触发,在其中中加一行End结束程序就行了

在VB中,如何让msgbox 弹出的对话框不显示右上角的关闭按钮,就是那个...
h = FindWindow(vbNullString, MsgTitle)If h > 0 Then Call DisableX(h): Timer1.Enabled = False End Sub Private Sub DisableX(ByVal hwnd As Long)Dim hMenu As Long, nCount As Long hMenu = GetSystemMenu(hwnd, 0)nCount = GetMenuItemCount(hMenu)Call RemoveMenu(hMenu, nCount -...

为什么vb程序里的立即窗口输入不进去代码?
程序运行时,立即窗口不能输入代码。点击工具栏上的蓝色方块钮,或点运行窗体上的X,停止程序运行,然后立即窗口就可以输入代码了。

相似回答