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

    万次阅读 2014-11-29 19:12:10
    QueryUnload 事件  在一个窗体或应用程序关闭之前发生。... 事件,该 Unload 事件首先发生在所有其它窗体中,然后再发生在 MDI 窗体中。当一个子窗体或一个Form 对象关闭时,在那个窗体中的 Query

    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窗体事件简介

    2012-02-27 16:16:32
    1. Load(装载事件 2. Unload(卸载)事件 3. Activate(活动)、Deactivate(非活动)事件 4. Paint(绘画)事件 5. Click(单击)事件 6. Dbclick(双击)事件 7. KeyPress(按键)事件
      
    

    1.       Load(装载)事件

    2.       Unload(卸载)事件

    3.       Activate(活动)、Deactivate(非活动)事件

    4.       Paint(绘画)事件

    5.       Click(单击)事件

    6.       Dbclick(双击)事件

    7.       KeyPress(按键)事件

    展开全文
  • vb窗体程序设计实例

    千次阅读 2015-01-03 20:03:00
    实现功能 用户密码验证登录,按键识别。 窗体1:两个标签,两个文本框,两个按钮。窗体2:一个文本框 窗体1代码 ...Private Sub Cmd1_Click() '确定按钮鼠标单击事件代码 If txt1.Text = "u

    实现功能

    用户密码验证登录,按键识别。

    窗体1:两个标签,两个文本框,两个按钮。窗体2:一个文本框


    窗体1代码
    窗口名称Form1,标签1,2分别为Lbl1,Lbl2,确定,取消按钮为,cmd1,cmd2,用户名文本框和密码文本框为txt1,txt2
    Private Sub Cmd1_Click() '确定按钮鼠标单击事件代码
     If txt1.Text = "user" Then '若用户名文本框输入正确
        Txt2.SetFocus '密码文本框激活
     ElseIf txt1.Text <> "user" Then '若用户名文本框输入不正确
         MsgBox "请输入正确的用户名!", vbOKOnly + vbInformation, "注意" '显示警告窗口
     End If
     If Txt2.Text = "123456" Then '若密码文本框输入正确
       Form1.Hide '窗体1隐藏
       Form2.Show '窗体2显示
    ElseIf Txt2.Text <> "123456" Then '若密码文本框输入不正确
       MsgBox "请输入正确的密码!", vbOKOnly + vbInformation, "注意" '显示警告窗口
     End If
    End Sub
    Private Sub Cmd2_Click() '取消按钮鼠标单击事件代码
      End '退出程序
    End Sub
    Private Sub Form_Load() '窗体1加载事件代码
      Form2.Show '窗体2显示
      Form1.Show 1 '窗体1为模式窗体,即始终位于窗体2前面
    End Sub
    
    
    窗体2代码

    窗体2窗体名称Form2,文本框名称Txt
    Private Sub Form_Click() '窗体2的鼠标单击事件代码
      Form2.BackColor = RGB(0, 255, 0) '将窗体2的背景色设置为绿色
    End Sub
    
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '窗体2的KeyDown事件代码
      Dim ShiftDown, AltDown, CtrlDown '定义变量
      Dim Txt As String '定义变量
      ShiftDown = (Shift And vbShiftMask) > 0 '
      AltDown = (Shift And vbAltMask) > 0 '
      CtrlDown = (Shift And vbCtrlMask) > 0 '
      If KeyCode >= 48 And KeyCode <= 105 Then '设置键代码范围以显示字母和数字
         If ShiftDown And AltDown And CtrlDown Then '若Shift、Alt、Ctrl键被同时按下
            Txt = "Shif+Alt+Ctrl" '为Txt赋值
         ElseIf ShiftDown And AltDown Then '若Shift、Alt键被同时按下
            Txt = "Shif+Alt" '为Txt赋值
         ElseIf ShiftDown And CtrlDown Then '若Shift、Ctrl键被同时按下
            Txt = "Shif+Ctrl" '为Txt赋值
         ElseIf CtrltDown And AltDown Then '若Alt、Ctrl键被同时按下
            Txt = "Ctrl+Alt" '为Txt赋值
         ElseIf ShiftDown Then '若Shift键被同时按下
            Txt = "Shif" '为Txt赋值
         ElseIf AltDown Then '若Alt键被同时按下
            Txt = "Alt" '为Txt赋值
         ElseIf CtrlDown Then '若Ctrl键被同时按下
            Txt = "Ctrl" '为Txt赋值
         ElseIf Shift = 0 Then '若三键均未被按下
            Txt = "" '为Txt赋值
         End If
         Txt = Txt + Chr(KeyCode) '为Txt赋值为键代码对应的字符
         txt1.Text = "您按下了" + Txt '显示用户按下的键
      End If
    End Sub
    
    Private Sub Form_Load() '窗体2装载事件代码
    Form2.KeyPreview = True '允许窗体响应键盘事件
    txt1.Text = "" '设置标签的属性
    End Sub
    
    Private Sub Form_Resize() '窗体Resize事件代码
      txt1.Move Form1.Width / 2 - 800, Form1.Height / 2 - 400, 1600, 400 '设置标签的位置
    End Sub






















    展开全文
  • VB讲课笔记06:窗体与常用控件

    千次阅读 2018-03-10 17:24:29
    VB讲课笔记06:窗体与常用控件 一、窗体设计 窗体VB中最基本的对象,是应用程序的基本组成部分,是菜单栏、工具栏和控件等对象的容器,是应用程序与用户交互的窗口或对话框。窗体设计是整个VB应用程序设计的基础...
    展开全文
  • Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
  • vb Form的基本事件

    千次阅读 2018-06-30 11:19:10
    当此窗体变为活动窗口时触发 End Sub Private Sub Form_Click() 单击时触发 End Sub Private Sub Form_DblClick() 双击时触发 End Sub Private Sub Form_Deactivate() 当此窗体不再是活动窗口时触发 End Sub ...
  • VB 窗体的设计及应用

    2014-05-08 23:39:22
    进修目标: u   掌握窗体设计 ... 掌握多重窗体的设计与应用 ... 掌握响应鼠标与键盘事件 ...重点:窗体及常用控件的基本属性、事件和方法 难点:鼠标事件和键盘事件   Private Sub Form_Activate()
  • 淡入淡出渐变的VB透明窗口特效源码,刚装载时全透明,载入时逐渐显示,窗体打开时由模糊变清淅,慢慢渐变显示出来,关闭时,由清淅变模糊,慢慢消失。... 现在在窗体装载和卸载时,都可以"淡入淡出"了。
  • 项目有3个窗体,分别是frmMDi form2 form3 frmMDI界面...子窗体的关闭事件并没有执行 2、如果子窗体没有自动关闭,那么每次移除标签页,再次打开该子窗体时是重新实例化新的窗体还是继续显示第一次实例化的那个窗体
  • VB学习第三周--窗体事件

    千次阅读 2013-03-27 22:05:38
    窗体事件: 1.装载窗体 2.单击窗体 3.双击窗体 4.改变了窗体大小 Public Class Form1 Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Me....
  • TabControl多页面窗体用法(vb2010)

    千次阅读 2011-12-08 02:27:56
    环境:vb2010 有2个窗体 分别为form1 form2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '//定义变量,记录窗体是否已经打开 Dim ls_...
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
     通用语言规范(Common Language Specification,CLS):.NET系统包括如下语言:C#、C++、VB、J#,他们都遵守通用语言规范。任何遵守通用语言规范的语言源程序,都可编译为相同的中间语言代码,由CLR负责执行。只要...
  • VB.NET有很多值得学习的地方,这里我们主要介绍VB.NET事件,希望对大家有帮助。通过上一章的例子,你可能对“面向对象的编程”已经有了一定了解,它是由事件驱动的,对于不同的对象,所能感应到的事件也会不同,譬如...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
  • 2,把该DLL库装载入内存。  ' 3,找到即将调用的函数地址,并将所有的现场压入堆栈。  ' 4,调用函数。  '   Public   Class  SystemMenu   '  提示:C#把函数声明为外部的,而且使用属性DllImport来指定...
  • 响应窗体或控件事件 注意窗口的最大化和最小化按钮未显示,通过窗体设计时设置maxbutton以及minbutton属性为false可实现该效果。另外这两属性进在窗体设计时可写,在程序运行时为只读,不能更改其属性值 窗体可...
  • 收邮件的过程:需要先登录,活动窗体中具有输入焦点控件的字体设置,然后打开邮件对话,取得邮箱中邮件的数量,将邮件的信息装载到邮件列表窗体中的列表框,根据选择的邮件索引确定相关菜单项和工具栏按扭的可用状态...
  •  axAgent1.Characters.Load("MERLIN", DATAPATH) '装载动画数据  Genie = axAgent1.Characters("MERLIN") '把Agent对象赋于声明的对象,简化书写的过程  Genie.LanguageID = &H409S '设定语音ID  Call skin ...
  • 那用Form的Activated事件试试吧,不过要做 IsLoaded 判断,如果 Load 过了,就不要重新再Load 了,因为这个事件会在窗体显示的时候激发(隐藏、最小化后再显示也一样) Private Sub Form1_Activated(ByVal sender ...
  • 收邮件的过程:需要先登录,活动窗体中具有输入焦点控件的字体设置,然后打开邮件对话,取得邮箱中邮件的数量,将邮件的信息装载到邮件列表窗体中的列表框,根据选择的邮件索引确定相关菜单项和工具栏按扭的可用状态...
  • 位高人说过,VB6的Form是支持真彩色图标的,可以给窗体设置真彩色图标。  昨天上午我试了一下,新建一个标准EXE工程,然后随意找了一个高清真彩图标文件,给工 程的Form1设置Icon属性,成功了……… 但是,感觉它...
  • ls_frm.Show() '//装载窗体 Me.TabControl1.SelectedTab = NewTabPage1 '//将此TabPage页显示为选中 Else 'MessageBox.Show("窗体已经打开,不要重复打开此窗体!") End If 曾经用以下指令 ,做过实验可以打开窗体 ...
  • 窗体对象的装载与显示 窗体对象的卸载与隐藏 窗体的显示模式 窗体是Excel VBA中提供的一种窗口对象。它属于工作簿对象(Workbook)中VB工程对象(VBProject)下的VB组件集合(VBComponents)中的一个组件。使用...
  • 将改文本框的tabindex设置为0即可 
  • VB6.0中Load和Unload用法

    千次阅读 2018-06-05 21:40:58
      load函数用来装载VB控件,unload函数用来卸载VB控件,下面为具体例子。 准备工作   打开VB6.0,新建工程,创建两个窗口,名字默认。在第一个窗口里,添加两个按钮”Open”和”Close”. 代码 ...
  • 第四章:事件的设计与引发  好的,本人已经很久没续写这篇文章了,应网友邀请,我现在继续。事件是一个对象的对外输出,客户通过事件得知控件对象当前的情况,于是,学习事件的设计与引发就变得很重要。  启动我们...
  • VB讲课笔记03:对象及其操作一、对象1、VB对象对象是由客观实体抽象出来的逻辑实体,具有属性、方法和事件三要素。VB中的对象有控件和窗体等。对象的属性是对象的特性,如控件的名称、标题、宽度、高度、背景颜色等...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,801
精华内容 720
关键字:

vb窗体的装载事件