main.bas

Visual Basic 6 大学教程的代码

Attribute VB_Name = "modMain"
' Fig. 11.20
' Demonstrating the use of form templates
Option Explicit    ' General declaration modMain

Public Sub Main()
   Dim delayTime As Double
   Dim counter As Double
   
   Call Load(frmSplash)  ' Load frmSplash
   Call frmSplash.Show   ' Display frmSplash
   Call Load(frmEmpty)   ' Load frmEmpty
   
   delayTime = Timer()   ' Get current time
      
   ' Manufacture a delay to simulate an application
   ' loading and to give frmSplash a chance to display
   Do
      counter = Timer() - delayTime
      DoEvents
   Loop While (counter < 10)
     
   Call Unload(frmSplash)  ' Unload frmSplash
   Call frmEmpty.Show      ' Display frmEmpty
End Sub