程序加载顺序

Question

自己写吧，不难，主要是在模块中Sub Main进行相应的加载。

Answer 1

Sub Main()
    frmSplash.Show
    frmSplash.Refresh
    Set fMainForm = New frmMain
    Load fMainForm
    Unload frmSplash
    fMainForm.Show
End Sub你用工程向导生成一个工程试试看，就是这个

Answer 2

是啊，你可以不关闭窗体，用HIDE隐藏窗体，需要再SHOW，不过会占内存

Answer 3

1)先做好一个窗体（你说的封面）叫做frmCover
2)工程属性中设置首先加载一个临时窗体，frmTemp(运行时不显示出来)
  Private Sub Form_Load()
      frmCover.show
      doevents
      frmMain.show  '显示主窗体
      unload frmCover
  end sub
试试看。     

Answer 4

Private Sub Timer1_Timer()
 Dim Counter As Long
   ProgressBar1.Min = 1
   ProgressBar1.Max = 400000
   ProgressBar1.Visible = True
   ProgressBar1.Value = ProgressBar1.Min
   For Counter = 1 To 400000
      ProgressBar1.Value = Counter
   Next Counter
   ProgressBar1.Visible = False
   ProgressBar1.Value = ProgressBar1.Min
   frmMain.Show
   Timer1.Enabled = False
   Unload Me
End SubPrivate Sub Timer2_Timer()
   Load frmMain
   frmMain.Visible = False
   Load frmSearch
   frmSearch.Visible = False
   Load frmAnalyseWeightRecord
   frmAnalyseWeightRecord.Visible = False
   ProgressBar1.Visible = False
   Timer2.Enabled = False
End Sub