sub main()这一过程的作用:
设置启动对象
说的简单一点,我们平时见到的启动对象多是窗体,一般默认是你设计程序的第一个窗体FORM1,程序打开后最先运行的代码也就是form1_load()里的代码,但是有了sub main(),你就可以以一段代码作为程序的入口,这段代码的执行发生在所有窗体的打开之前。方法是建立一公有模块,里面写入sub main代码,然后右键工程属性,把启动对象设为sub main即可。
显示启动时的快速显示
如果启动时有一个较长的执行过程,例如要从数据库中装入大量数据或者要装入一些大型位图,这时可能希望在启动时给出一个快速显示。快速显示是一种窗体,它通常显示的是诸如应用程序名,版权信息和一个简单的位图等内容。启动 Visual Basic 时所显示的屏幕就是一个快速显示。
例如这个图片就是运用了这一方法:
Sub Main()
'定义登陆窗口
Dim fLogin As New frmLogin
'显示登录窗体,并设置为模式窗体
fLogin.Show vbModal '可以用1代替vbModal
'窗体分为模式的和非模式的
'模式的(vbmodal也可以是一个常量,为1)——使用户只能使用当前窗体,只有当前窗体关闭后其他窗体才可用;
'非模式的——可以切换到其他窗体
'如果登陆不成功,退出程序
'NOT--“取反”
If Not fLogin.OK Then
End
End If
'卸载登陆窗口
Unload fLogin
'定义主窗口
Set fMainForm = New frmMain
'显示主窗口
fMainForm.Show
End Sub
'如果登陆不成功,退出程序
'NOT--“取反”
If Not fLogin.OK Then
End
End If
上面代码的作用和以下的代码产生联系:
'如果登陆次数超过限定次数,关闭程序
If MaxLogTimes = 3 Then
MsgBox "登陆次数超过允许范围,程序将关闭!", vbOKOnly + vbExclamation, "警告"
Unload Me
End If
如果没有写“登录不成功,退出程序”的代码,当密码错误三次之后,程序并不会终止,而是直接进去了。