精华内容
下载资源
问答
  • vb窗体关闭事件

    千次阅读 热门讨论 2014-11-25 19:28:59
     在一个窗体或应用程序关闭之前发生。当一个 MDIForm 对象关闭时,QueryUnload 事件先在 MDI 窗体发生,然后在所有 MDI 子窗体中发生。如果没有窗体取消 QueryUnload 事件,该 Unload 事件首先发生在所有其它窗体中...

    QueryUnload 事件

      在一个窗体或应用程序关闭之前发生。当一个 MDIForm 对象关闭时,QueryUnload 事件先在MDI 窗体发生,然后在所有 MDI 子窗体中发生。如果没有窗体取消 QueryUnload 事件,该 Unload 事件首先发生在所有其它窗体中,然后再发生在 MDI 窗体中。当一个子窗体或一个Form 对象关闭时,在那个窗体中的 QueryUnload 事件先于该窗体的 Unload 事件发生。

      格式:Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

      Cancel   一个整数。将此参数设定为除 0 以外的任何值,可在所有已装载的窗体中停止 QueryUnload 事件,并阻止该窗体和应用程序的关闭。

      UnloadMode 一个值或一个常数,如返回值中所描述的,它指示引起 QueryUnload 事件的原因。

      UnloadMode 参数返回下列值:


      以下是简单的应用


    Unload事件

      当窗体从屏幕上删除时发生。当那个窗体被重新加载时,它的所有控件的内容均被重新初始化。当使用在 Control 菜单中的 Close 命令或Unload 语句关闭该窗体时,此事件被触发

      格式:Private Sub Form_Unload(Cancel As Integer)

      Cancel  一个整数,用来确定窗体是否从屏幕删除。如果 cancel为 0,则窗体被删除。将cancel 设置为任何一个非零的值可防止窗体被删除。



    QueryUnload与Unload的异同

      1、QueryUnload发生在Unload之前

      2、QueryUnload和Unload都可以阻止窗体卸载

      3、QueryUnload可以检测窗体的卸载方式(比如是点击窗体右上角的X卸载,还是在软件代码中用UnloadMe命令卸载),Unload则无此功能

      4、当程序有多个窗体且包含MDI窗体时,关闭MDI窗体时,则MDI窗体和其在主窗体内显示的子窗体(并不是说全部的子窗体)的QueryUnload都会被触发(换句话说就是即使不是本窗体关闭QueryUnload事件也会触发的),而Unload事件则只发生在卸载的窗体中



    展开全文
  • VB 关闭窗口,关闭当前窗体

    万次阅读 2015-03-03 19:01:39
    刚学习VB,想用一个button 关闭当前Form(窗体) 1,网上搜索到 End 可以关闭,试了一下结果是关闭所有窗体。 2,Unload Me 关闭当前窗口。

    刚学习VB,想用一个button 关闭当前Form(窗体)

    1,网上搜索到 End 可以关闭,试了一下结果是关闭所有窗体。

    2,Unload Me 关闭当前窗口。



    展开全文
  • vb.net 窗体打开关闭

    2014-12-23 15:03:09
    formA打开formB,formB打开formC,formC打开formD,formD打开formE, formD打开formE的同时要把formA到formD的窗口全部关闭,这时只保留formE,应该如何实现?
  • VB.NET窗体关闭事件

    2012-05-08 09:43:00
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing ... If MsgBox("确认关闭?", vbYesNo, "提示") = vbNo Then e...
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
            If MsgBox("确认关闭?", vbYesNo, "提示") = vbNo Then
                e.Cancel = True
            Else
                Me.Dispose()
            End If
        End Sub 

    转载于:https://www.cnblogs.com/kingangWang/archive/2012/05/08/2489596.html

    展开全文
  • 在我们日常编程中,进入VB编程开发界面后,默认的窗体运行后是下图的状态,右上角的关闭按钮是直接可用的状态。但是在实际开发中,有时候根据实际功能需要,会出现不想让右上角的关闭按钮起作用时的情形,那么应该...

    在我们日常编程中,进入VB编程开发界面后,默认的窗体运行后是下图的状态,右上角的关闭按钮是直接可用的状态。

    b0dbc262058437ff23f72d97c97071db.png

    但是在实际开发中,有时候根据实际功能需要,会出现不想让右上角的关闭按钮起作用时的情形,那么应该如何做呢?

    74e868815afa2da935306221e9b0c1a4.png

    代码实现:

    标准模块代码:

    Option ExplicitDeclare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As LongDeclare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As LongDeclare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Long) As LongPublic Const MF_BYPOSITION = &H400&

    窗体中代码:

    Option ExplicitPrivate Sub Form_Load() '窗体载入时调用模块中的方法禁用关闭按钮    Dim hwndMenu As Long    Dim c As Long    hwndMenu = GetSystemMenu(Me.hwnd, 0)    c = GetMenuItemCount(hwndMenu)    DeleteMenu hwndMenu, c - 1, MF_BYPOSITION    c = GetMenuItemCount(hwndMenu)    DeleteMenu hwndMenu, c - 1, MF_BYPOSITIONEnd SubPrivate Sub Command1_Click() '退出    EndEnd Sub

    赶快实际运行,体验一下吧~

    ▼更多编程干货▼VB编程语言基础知识点总结(转)VB6.0中文简体版安装视频教程!VB开发的实际项目展示!VB编程就是这么强大!

    大家在学习VB编程的过程中有不懂之处,可以添加下图小编微信号:vbyjk521 ,学习问题在线解答。

    72449c6e34fdc06a1c01129e1692dde4.png

    展开全文
  • 如果只是关闭窗体,请调用该窗体的Close命令。 如果你将应用程序项目的启动窗体设顶成某个窗体,则调用该启动窗体的Close命令时,也就会结束该应用程序。 一般来说,要在任何时候结束应用程序,请调用Application....
  • vb禁用窗体最大化、最小化和关闭快捷菜单,禁用最大化、最小化不可用,重点实现了禁止关闭窗口的功能,禁止后窗口上的关闭按钮变成灰色不可点击了,在实现方面,核心代码如下:  Private Sub Form_Load()  ...
  • vb.net窗体关闭按钮触发事件

    千次阅读 2017-09-13 21:08:59
    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed If thread_time.IsAlive = True Then Thread_Stop()
  • VB.NET是如何关闭窗体

    千次阅读 2012-01-31 09:09:41
    如果只是关闭窗体,请调用该窗体的Close命令。 如果你将应用程序项目的启动窗体设顶成某个窗体,则调用该启动窗体的Close命令时,也就会结束该应用程序。 一般来说,要在任何时候结束应用程序,请调用Application....
  • 如何在VB关闭窗体

    千次阅读 2005-02-15 17:59:00
    本段代码实现了在VB关闭除指定窗体外的其它窗体,其实主要用于关闭所有的子窗体:代码如下:为防止数据库连接不能关闭,在此关闭所有的窗口 Dim frm As Form For Each frm In Forms If frm.Name Next
  • Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) <br />End Sub <br />Private Sub Form_Unload(Cancel As Integer) <br />End Sub
  • VB2005 禁止关闭窗体

    2008-03-25 05:44:00
    Private Sub frmSellProduct_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If 不想关闭=true Then e.Cancel = True 
  • 一个淡入淡出的VB特效窗体,很漂亮,关闭和打开时都有淡入淡出的效果。
  • 该例子实现了用vb实现隐藏窗体关闭按钮
  • 关闭所有窗体VB插件
  • 这是一个相对简单的VB制作透明 窗体的方法,看上去这个窗体无边框、无标题栏,也没有最小最大化及关闭按钮,完全显示了一个图片的效果,其实本代码是一个透明窗体的实现实例,特此为大家分享代码如下:  Private ...
  • 我们经常需要实现“用户关闭窗体,但窗体并不关闭而是最小化”的功能,这个功能的实现非常简单,只需在FormClosing事件中写入如下代码即可: If e.CloseReason = CloseReason.UserClosing Then '判断是不是用户做出...
  • VB窗体FORM隐藏关闭按钮

    千次阅读 2010-08-24 14:02:00
    vb form 关闭按钮 不显示
  • vb.net 关闭所有已经打开的窗体 包括启动窗体
  • vb窗体设计

    2011-12-19 10:58:16
    窗体由全图片构造,包括,标题栏,最大化、最小化、关闭按钮,一下为部分代码, Private Sub Form_load() Dim retValue As Long Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image6....
  • 第一:要实例化打开的窗体 Dim bb As New frm_Main 第二:打开窗体 show 第三:释放自身 Finalize() '赋值另一窗体的控件值,先实例化,再进行操作 Dim bb As New frm_Main bb.lbl_UserID.Text = ...
  • VB 6.0让窗体右上角的X关闭按钮为假
  • VB 窗体启动、关闭时涉及的主要事件 启动时,事件顺序是: 1.Initialize(),这是当应用程序创建窗体或类的实例时发生。 2.Load(),在加载窗体时发生。 3.Activate(),当窗体变成活动窗体时发生。 ...
  • 相当于 VBA 的Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 谢谢!
  • vb.net取消窗体关闭

    2006-10-19 10:19:00
    设置事件属性e.cancel=true即可 
  • vb窗体关闭按钮无效

    千次阅读 2007-10-05 15:57:00
    Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long,...

空空如也

空空如也

1 2 3 4 5 ... 19
收藏数 363
精华内容 145
关键字:

vb关闭窗体