精华内容
下载资源
问答
  • VB窗体美化源代码

    2021-05-07 02:48:45
    摘要:VB源码,界面编程,窗体美化 VB窗体美化源代码,基于贴图的窗体美化,感谢网友的提供,希望本程序能... 考虑到窗体要写事件代码,所以本实例写成自定义控件,在窗体加载即可。窗体设为无边框,大小等于控件大校  
  • VB演示如何加载窗体事件的例子,演示当窗体... '窗体加载事件发生后就在窗体上输出内容  Text1.Text = ""  '加载后立即清空文本框  Command1.Caption = "加载事件"  '加载后还可以立即修改控件属性的值  End Sub
  • VB 加载窗体时触发的Load事件 VB 加载窗体时触发的Load事件
  • VB6 在窗体菜单中加入Radio单选按钮和Check复选按钮,平时我们已经见到过了,虽然比较小的应用,不过挺实用,用了会增加软件体验,为用户操作提供方便,Windows系统里就有,好像见惯不惯了。
  • VB窗体动态创建控件及控件事件

    千次阅读 2019-07-01 07:48:44
    VB窗体动态创建较少,今天,试着弄一个,专为解答之用。 首先创建一个空白窗体,调整大小,修改名称,双击窗体进入代码编辑界面: Public Class VB解答专用窗体 Dim 数据列表 As DataGridView Dim 输入框 As ...

    VB窗体动态创建较少,今天,试着弄一个,专为解答之用。

    首先创建一个空白窗体,调整大小,修改名称,双击窗体进入代码编辑界面:

    Public Class VB解答专用窗体
        Dim 数据列表 As DataGridView
        Dim 输入框 As TextBox
        Private Sub VB解答专用窗体_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            数据列表 = New DataGridView
            数据列表.Parent = Me
            数据列表.Columns.Add("序列", "序列")
            数据列表.Columns.Add("内容", "内容")
            '数据列表.Rows.Add(5)
            AddHandler 数据列表.RowStateChanged, AddressOf 数据列表行状态更改
            输入框 = New TextBox
            输入框.Parent = Me
            AddHandler 输入框.TextChanged, AddressOf 输入框输入更改
            数据列表.Location = New Point(输入框.Width + 5, 2)
            AddHandler 数据列表.CellDoubleClick, AddressOf 单元格双击发生
        End Sub
        Private Sub 数据列表行状态更改(sender As Object, e As DataGridViewRowStateChangedEventArgs)
            数据列表.Rows(e.Row.Index).Cells(0).Value = e.Row.Index
            e.Row.HeaderCell.Value = String.Format("{0}", e.Row.Index + 1)
        End Sub
    
        Private Sub 输入框输入更改(sender As Object, e As EventArgs)
            数据列表.Rows.Add(Integer.Parse(输入框.Text))
        End Sub
    
        Private Sub 单元格双击发生(sender As Object, e As DataGridViewCellEventArgs)
            数据列表.Rows.Insert(e.RowIndex, 1)
        End Sub
    
    End Class
    

     

     

    接着创建一个控件,并在窗体加载事件中对控件进行一些设置和添加一个事件:

    从上图看到有波浪线,鼠标移动到波浪线处,在弹出的纠正错误框中选择生成方法存根:

    删除自动生成事件中的Throw New NotImplementedException代码,写自己要处理的代码,这里以论坛提问为例,鼠标点击自动填充序号:

    添加事件处理代码:

    运行程序:

    再次创建一个文本框控件,如上所述,同时简单设置2个控件的位置:

    再次运行程序,在文本框中输入数字2,看运行效果图:

    可以看到创建了2行,同时自动添加序列各行的序值。https://bbs.csdn.net/topics/392550942

     

     

     

     

     

     

     

     

     

     

    展开全文
  • 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 6 为窗体菜单设置背景图片,一个可随时更改背景图片的VB程序,为窗体菜单设置背景图片,设置标题栏背景图片,设置标题栏背景颜色,另外还用一些图标来美化了窗体上的菜单,让你的VB程序窗口更漂亮,运行效果截图...
  • VB 实现在窗体加载图片的简单源程序,这个例子只是教我们如何使用VB载入图片,别无其它功能,如果你想开发图像处理类的软件,还是有点用处的。
  • 你必须掌握的VB窗体知识

    千次阅读 2020-09-16 09:55:57
    窗体VB中一类重要的对象,作为对象,窗体同样具有自己的三要素:属性、事件和方法。此外,窗体还作为其它控件的容器,用于放置其它控件。 在保存工程时,窗体会与工程文件保存在同一级目录下,窗体的扩展名为.frm...

    窗体的概念

    在VB6之中,窗体是应用程序的重要组成部分,一个窗体对应一个窗口。在程序设计阶段,窗体是程序员的“工作台”,程序员在窗体上建立应用程序界面,在运行程序时,窗体是用户与计算机的交互界面。

    窗体是VB中一类重要的对象,作为对象,窗体同样具有自己的三要素:属性、事件和方法。此外,窗体还作为其它控件的容器,用于放置其它控件。

    在保存工程时,窗体会与工程文件保存在同一级目录下,窗体的扩展名为.frm格式,而工程的扩展名为.vbp格式。

    窗体的常用属性

    Name(名称)属性

    Name属性用于设置窗体的名称,在窗体被创建时,默认名称为Form1、Form2等。Name属性只能在属性窗口修改,所有控件的Name属性都在属性窗口的第一行。在使用对象属性、事件和方法时,务必确保使用了正确的Name名称。
    在这里插入图片描述

    例如,以下是Form1窗体在修改Name名称前和修改Name名称为frm1后,调用隐藏该窗体的方法语句对比:

    Form1.hide    ' 修改Name名称前
    frm1.hide     '改Name名称为frm1后
    

    Caption属性

    Caption属性用于设置窗体的标题,默认情况下,窗体Caption属性与Name属性一致。可以根据需要修改为其它标题,修改方法为:

    窗体名称.Caption="自定义标题"   
    

    Caption属性可以修改,也可以读取。读取Caption属性的方法为:

    变量名称=对象名称.Caption    '将对象名称赋值给变量
    

    获取其它可读属性值的方法与此语法一致。

    Height和Width属性

    Height和Width属性用于设置窗体的高度和宽度。默认单位是twip,1twip=1/567cm。通常使用twip单位设置即可。例如:

    Form1.Height=2000      '设置Form1窗体的高度为2000twip
    Form1.Width=3000       '设置Form1窗体的宽度为3000twip
    

    Left和Top属性

    Left和Top属性用于设置窗体在屏幕中的位置,Left是指窗体左上角距离屏幕左边的距离,Top是指窗体左上角距离屏幕上边的距离。如果是其它控件,如Commmand1按钮,则其Left和Top表示控件在窗体中的位置。具体关系如下图所示。

    在这里插入图片描述

    Enabled属性
    Enabled属性用于设置窗体(包含窗体中的控件)是否可被用户操作。默认值为True可用,当设置为False时,则禁止用户对窗体进行操作。语法为:

    ![Form1.Enabled=True  '设置窗体Form1为允许操作](https://img-blog.csdnimg.cn/20200916095249986.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl8zOTQzMzI5Mw==,size_16,color_FFFFFF,t_70#pic_center)
    
    

    ForeColor和BackColor属性
    ForeColor属性为窗体显示文本的颜色,BackColor用于设置窗体背景颜色。设置颜色的方法有三种方法,以黑色为例:

    方法一:Form1.BackColor=vbBlack    
    方法二:Form1.BackColor=QBColor(0)  
    方法三:Form1.BackColor=RGB(0,0,0)
    

    方法一中,vbBlack在VB中是表示颜色的常量,代表黑色,类似的常量还有vbGreen绿色,vbBlue蓝色,vbYellow黄色,vbRed红色等。

    方法二中,QBColor(参数),其中参数范围是0-15之间的整数,代表不同的颜色,参数为0时代表黑色

    方法三中,RGB(参数1,参数2,参数3),参数1、2、3范围分别是0-255之间的整数。

    Icon属性

    Icon属性可以为窗体指定一个图片作为窗体左上角的显示图标,同时也作为显示在任务栏中的图标。图片格式必须为.ico格式。

    AutoRedraw属性

    该属性为False时,窗体在变动后(移动窗体、最大化最小化窗体、加载窗体等),用print方法打印的文本,将不会被自动重画,效果是窗体上用print方法打印的文本在窗体变动时将被清除。当设置为True时,使用print打印的文本会被自动重画,而不会被清除,或者说清除后又被重新打印了。此方法同样适用于在窗体上绘图。

    窗体常用事件

    Load事件

    Load事件是窗体的加载事件,当一个窗体被加载到内存时,会触发Load事件。可以利用Load事件,初始化窗体级的变量,设置控件的属性值。

    Unload事件

    当一个窗体从内存中卸载时,将触发Unload事件。

    Initialize事件

    Initialize事件为窗体初始化事件,当应用程序创建窗体实例时会发生该事件。对于窗体而言Initialize事件发生在窗体的Load事件之前。通常可以利用 Initialize事件初始化窗体所用数据。

    Activate事件

    当一个窗体变为活动窗体时,即当窗体获得焦点时,将会触发该事件。

    Deactivate事件

    与Activate事件相反,当窗体不再是活动窗体,即失去焦点时,将触发本事件。

    Click事件

    单击窗体时,触发此事件

    DbClick事件

    双击窗体时,触发本事件

    窗体常用方法

    Cls方法

    Cls方法用于清除窗体重利用print方法打印的文本,不会清除窗体中控件及控件内的文本。语法为:

    Form1.Cls    
    

    Show方法

    Show方法可以显示一个窗体,该窗体如果没有被加载到内存中,将会优先触发一次Load事件。使用Show方法后,窗体将会优先于其它窗体显示在最前面。语法为:

    Form1.Show
    

    Hide方法
    Hide方法用于隐藏一个窗体,仅将窗体隐藏起来,但是不会从内存中卸载,窗体上的参数仍然保存在内存中,使用Show方法重新显示窗体后,窗体与隐藏之前保持一致。语法为:

    Form1.Hide
    

    Load方法
    Load方法用来将窗体加载进内存,将会触发窗体的Load事件,但是窗体未被显示。该方法同样适用于其它控件。语法为:

    Load Form1
    

    Unload方法
    用来卸载窗体,将窗体所使用的参数从内存中卸载,包括窗体中的所有控件,卸载后,将不会再占用计算机内存资源。使用Unload方法后,窗体将会达到Hide方法的隐藏效果。该方法同样使用于其它控件。语法为:

    Unload Form1
    

    如何创建多窗体
    通常新建一个工程后,系统会为我们自动创建一个窗体,默认名称为Form1,此时当我们项目需要再创建一个窗体时,可以通过菜单栏——工程——添加窗体,在弹出的添加窗体窗口中,选择默认窗口,即可创建一个新的窗体。或者可以,在工程资源管理窗口中,在Form1窗体上右键——添加——添加窗体。
    在工程资源管理窗口中,双击窗体,即可进入该窗体的编辑界面。

    在这里插入图片描述

    删除窗体
    删除不需要的窗体,通过在工程资源窗口,选中需要删除的窗体,右键——移除。

    窗体实战练习题
    目标:通过本练习,基本掌握熟悉窗体属性、事件和方法的使用方法。

    步骤一:
    按照下图,建立两个窗体。并分别将Name名称属性修改为:frmLog和frmMain,并将窗体的Caption标题属性修改为“登录界面”和"主界面"

    在这里插入图片描述

    步骤二:
    在第一个窗体,frmLog窗体上,新建一个命令按钮,并将Caption属性修改为"登录"。

    在这里插入图片描述

    步骤三:
    双击登录按钮,在其事件过程中写入如下代码:

    frmMain.Show   '显示frmMain窗体
    Me.Enabled = False  '禁止frmLog窗体再被操作
    

    在这里插入图片描述

    Me代表当前窗体的名称,此处即frmLog,可以用frmLog代替。

    步骤四:
    在第二个窗体(frmMain)编辑窗口中,按照下图所示,建立1个Text文本框和5个命令按钮控件。

    在这里插入图片描述

    步骤五:
    进入frmMain窗体代码编辑窗口,按照下图在对应的事件过程下编写如下代码:

    在这里插入图片描述

    其中End语句,是退出应用程序,即该应用程序包含的所有窗体和控件将会全部从内存卸载。

    步骤六:
    运行程序,测试效果。单击窗体左移,窗体将向左移动,移动距离为text1文本框中的数值,同样的单击窗体右移,窗体将会右移。修改text1文本框数值为200,单击隐藏窗体,窗体被隐藏,在frmLog窗体中单击登录,frmMain窗体重新打开,且Text1文本框内的数值仍是200,单击卸载窗体,窗体被关闭,再次打开后,Text1文本框内数值变为初始值100,这就是hide与Unload方法的区别。单击退出按钮,整个应用程序被关闭。

    在这里插入图片描述

    好了,本节课程到此结束,相信大家通过本节课程,已经对于窗体有了一个全面且深刻的认识了。下节课我们再见吧。

    展开全文
  • VB窗体透明的实现

    2021-01-31 00:50:55
    '添加一个标准模块,代码如下: Option Explicit Declare Function GetWindowLong Lib “user32” Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function SetWindowLong ...

    在这里插入图片描述
    '添加一个标准模块,代码如下:
    Option Explicit
    Declare Function GetWindowLong Lib “user32” Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Declare Function SetWindowLong Lib “user32” Alias “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Declare Function SetLayeredWindowAttributes Lib “user32” (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
    Const WS_EX_LAYERED = &H80000
    Const GWL_EXSTYLE = (-20)
    Const LWA_ALPHA = &H2
    Const LWA_COLORKEY = &H1

    '窗体透明或半透明
    'MeLoad函数说明:
    'F:窗体名
    'B:指定透明的颜色或透明度(当LWA=True时为透明度,反之为要透明的颜色值)
    'LWA:全透明或半透明

    Public Sub MeLoad(F As Form, B As Long, LWA As Boolean)
    Dim rtn As Long
    rtn = GetWindowLong(F.hwnd, GWL_EXSTYLE)
    rtn = rtn Or WS_EX_LAYERED
    SetWindowLong F.hwnd, GWL_EXSTYLE, rtn
    If LWA And B > 255 Or B < 0 Then Exit Sub
    SetLayeredWindowAttributes F.hwnd, IIf(LWA <> True, B, 0), IIf(LWA, B, 0), IIf(LWA, LWA_ALPHA, LWA_COLORKEY)
    End Sub

    '在窗体上画两个CommandButton按钮,属性为默认,代码如下:
    Private Sub Command1_Click()
    Call MeLoad(Me, 100, True) '数值在0~255
    End Sub

    Private Sub Command2_Click()
    Me.BackColor = RGB(255, 0, 0)
    Call MeLoad(Me, Me.BackColor, False)
    End Sub

    Private Sub Form_Load()
    Command1.Caption = “半透明”
    Command2.Caption = “指定颜色透明”
    End Sub

    展开全文
  • VB动态加载窗体

    2021-05-11 20:09:23
    一个VB6.0源码,VB动态加载窗体,在母窗体内可查找某个窗体,输入要查找窗体的索引号,可关闭所有子窗体体,操作方面定义了一些快捷键,比如新建窗口{F1}、搜索一个子窗口{F2}、关闭全部{F3}等。作者:小眼 @VB...
  • 有兴趣的好好研究研究啊 这个很好玩的。祝大家成功啊。
  • VB窗体界面与控件源码集:仿瑞星小狮子界面、控制其他程序成为自己的子窗体、在任务栏上加上程序图标、获取运行程序(控件)名称和内容、锁住Windows直到输入正确的口令、更改墙纸显示方式、MDI窗体、透明窗体动画、...
  • 把文档里的代码复制到Form.vb中,然后创建相关控件即可实现密码登录的功能。
  • VB6 给窗体添加滚动条,调整水平滚动条的一些属性。当窗体的大小发生变化时发生,垂直滚动条与窗体相对位置不变,滚动条的大小随着窗体大小的改变而改变,命令按钮作水平滚动条与垂直滚动条交接处的填充。  因代码...
  • 3、打开加载错误的窗体文件,并CTRL+A后CTRL+C复制全文。 4、在notepad++里点击菜单栏里的【编码】选项,选择【使用ANSI】编码。 5、CTRL+V将代码复制进“XXX.frm”后保存该文件。 6、运行VB6.0 IDE,选择“...
  • VB6.0 为无标题的窗体添加鼠标效果,Rect返回当前窗口位置,Point返回当前鼠标位置,本代码主要是使用case语句来实现,可练习一下case语句的用法哦,分享代码:  Dim Point As POINTAPI  Call GetWindowRect(Me....
  • 用Load方法在窗体添加一个文本程序(VB6.0代码编写) 用Load方法在窗体添加一个文本 QQ223857666勾月
  • 内容索引:VB源码,界面编程,自动隐藏 VB简单实现一个自动隐藏的窗体,类似Qq的窗体一样,运行后隐藏到屏幕的最上层,如上图所示,程序超简单,因此还有一些地方不是太完善,仅供参考。
  • VB窗体启动、关闭时涉及的主要事件

    千次阅读 热门讨论 2013-10-27 15:23:50
    一、启动窗体时,事件顺序是: 1 Form_Initialize  Initialize 事件即初始化事件,任何窗体生命周期的第一个事件都是Initialize。只要在项目中使用了窗体的名称,或在Visual Basic 6.0创建实际窗口及其控件之前,...
  • 内容索引:VB源码,界面编程,数组 这个程序演示了如何让VB窗体从内置数组中加载外部图片,并显示,除此功能外,没有其它功能,适合VB初学者。效果图如上示。
  • Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim i As Integer For i = 0 To Me.Controls.Count - 1 If TypeOf Me.Controls(i) Is CheckBox Then ' ...
  • 内容索引:VB源码,界面编程,菜单 VB窗体中动态添加、移除一个菜单项,适时操作,很简单的示例程序,VB爱好者可以参考一下,程序如上图示。
  • VB制作的窗体应用程序,实现了圆周长和面积的计算
  • '添加一标准模块,加入以下代码: Option Explicit Private Declare Function Shell_NotifyIcon Lib “shell32.dll” Alias “Shell_NotifyIconA” (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long ...
  • VB 为无标题栏窗体添加菜单,为无标题栏窗体添加菜单,添加了一种弹出式菜单,窗口美化的挺漂亮,如示例截图所示,源码运行于VB6.0环境。相关代码:  Select Case Index  Case 0 '添加菜单  PopupMenu Frm_menu....
  • VB窗体的窗体的属性及说明

    万次阅读 2018-02-26 18:57:43
    放了寒假呆在家里,我爸比较喜欢...最后我想到了用VB来制作,发现用VB编写一些小型程序还是很方便的。 程序样式如下: 在这里我整理了一些关于窗口属性的介绍,如下: Name 窗体的名称 ActiveControl 返回焦点...
  • VB6.0的load窗体事件——看“顺便学习法”    前几天米老师检查我做的学习笔记,指出了我学习中的一些毛病,特写此文做一下总结。    事件:我做的笔记,各个知识点都是零散人,笔记做虽然很细,但是里面...
  • 模板内容   ...捕获窗体移动事件 ...在窗体的Form_Load事件加入如下代码:   Private   Sub  Form_Load() Oldproc  =  SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf Newproc) End Sub

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 16,845
精华内容 6,738
关键字:

vb窗体加载事件代码