快速显示时，怎末只显示一个边框？

Question

你的循环时间有点长
我的机器好一点都要三秒钟
还有你的frmsplash在frmmain出现后没有unload
Private Sub main()frmSplash.Show
Dim i As Integer
Dim j As Integer
For i = 1 To 10000
  For j = 1 To 10000
  j = j + 1
  Next j 
i = i + 1
Next i
frmsplash.unload
frmmain.Show 
End Sub

Answer 1

Private Sub main()frmSplash.Showdoevents '在这里加入一句就可以了
  
Dim i As Integer
Dim j As Integer
For i = 1 To 10000
  For j = 1 To 10000j = j + 1
  Next j 
i = i + 1
Next i
frmsplash.unload
frmmain.Show 
End Sub
 
因为窗体要重画
 

Answer 2

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub main()frmSplash.Show
call sleep(1000)
frmmain.Show End Sub'有个问题,为什么要这么做啊?有什么特别的目的吗?

Answer 3

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub main()frmSplash.Show
DoEvents
call sleep(1000)
frmmain.Show End Sub'有个问题,为什么要这么做啊?有什么特别的目的吗? 

Answer 4

循环中间加上DoEvents即可,干吗要这样烦呢

Answer 5

如果真要这么做，这样：
for i = 1 to 10000
   for j = 1 to 10000
   next j
next i
就行了。
或
dim l as long
for l=1 to 10^8
Next l
也可以了。