Sub Main启动和窗体启动

【前言】
在敲机房的时候在调试的时候,发现了sub main启动和窗体启动,在sub main启动的时候出现了问题,这两个启动有什么区别呢?
【窗体启动】
在缺省情况下,应用程序中的第一个窗体被指定为启动窗体。应用程序开始运行时,此窗体就被显示出来。( 缺省,即系统默认状态。缺省值也叫做默认值,就是如果你不想或不需要做任何特殊的选择,电脑就按照它已经配置好的参数进行设置。这些设置能满足绝大多数情况下的使用要求,除非有特殊的要求。)
启动窗体的改变步骤:“工程”——“工程属性”——“通用”——“启动对象”
【Sub Main启动】
有些情况要应用程序启动时不加载任何窗体。
Eg:可能想先运行装入数据文件的代码,然后在根据文件的内容决定显示几个不同窗体中的内容,决定显示几个不同窗体中需要显示的窗体,可在标准模块中创建一个名为Main的子过程。学生管理系统中的代码如下

Sub main()

    Dim flogin As New frmLogin '显示登录窗体
    Dim fMain As FrmMain
    flogin.Show vbModal

    If Not flogin.ok Then '判断是否授权用户
        End
    End If

    Unload flogin
    Set mainfrom = New FrmMain '展示MDI窗体
    FrmMain.Show

End Sub
  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 28
    评论
VB6.0界面美化不带任何附件的简单实现方法 VB6.0界面美化往往生成的exe往往要带有bas、dll、ocx等等东西。很麻烦。 所以介绍下面的美化方法生成的exe后就一个exe。没有任何的附件。 首先准备3个美化的东东:vb6.0 she皮肤调用模块.bas、aero.she、SkinH_VB6.dll。 新建工程,在“外接程序”——“外接程序管理器”——“vb6资源编辑器” 然后在“工具”——“资源编辑器”里面添加:vb6.0 she皮肤调用模块.bas、aero.she、SkinH_VB6.dll这3个文件,分别命名为(101, "CUSTOM")、(102, "CUSTOM")、(103, "CUSTOM") 好了。在工程1里面添加模块1(Module1):在Module1添加代码: Sub Main() Dim bas As String bas = TheSystemDir() & "\vb6.0 she皮肤调用模块" Dim OPEN1() As Byte OPEN1 = LoadResData(101, "CUSTOM") Open bas For Binary As #1 Put #1, , OPEN1 Close #1 Dim she As String she = TheSystemDir() & "\aero.she" Dim OPEN2() As Byte OPEN2 = LoadResData(102, "CUSTOM") Open she For Binary As #1 Put #1, , OPEN2 Close #1 Dim dll As String dll = TheSystemDir() & "\SkinH_VB6.dll" Dim OPEN3() As Byte OPEN3 = LoadResData(103, "CUSTOM") Open dll For Binary As #1 Put #1, , OPEN3 Close #1 Form1.Show End Sub 在工程1里面添加模块2(Module):在Module添加代码: Public Declare Function SkinH_Attach Lib "SkinH_VB6.dll" () As Long Public Declare Function SkinH_AttachEx Lib "SkinH_VB6.dll" (ByVal lpSkinFile As String, ByVal lpPasswd As String) As Long Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Declare Function GetSystemDirectory Lib "kernel32.dll" Alias "GetSystemDirectoryA" (ByVal strBuffer As String, ByVal lngSize As Long) As Long Private Const MAX_PATH = 260 Public Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Public Const MF_BYPOSITION = &H400;& Public Function TheSystemDir() As String Dim strBuffer As String Dim l As Long strBuffer = Space(255) l = GetSystemDirectory(strBuffer, 255) TheSystemDir = Left(strBuffer, l) End Function Public Function windir() As String Dim lpBuffer As String lpBuffer = Space$(MAX_PATH) windir = Left$(lpBuffer, GetWindowsDirectory(lpBuffer, MAX_PATH)) End Function 好了。在Form1下面添加代码: Private Sub Form_Load() SkinH_AttachEx TheSystemDir() & "\aero.she", "" End Sub 最后在“工程”——“工程1属性”里面将“启动对象”改为“Sub Main”。 生成一个exe看看效果。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 28
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值