为什么我的FORM没有显示？

Question

Private Sub Form_Load()
Dim i As Double
pb.Min = 0
pb.Max = 3000000
For i = 0 To 3000000
 pb.Value = i
Next
End Sub？？？？？

Answer 1

Private Sub Form_Load()
Dim i As long
pb.Min = 0
pb.Max = 3000000
For i = 0 To 3000000
 pb.Value = i
Next
End Sub

Answer 2

另外你说你的FORM没有显示是什么啊>

Answer 3

'放一个timer,你是想做滚动条吧
Option Explicit
Dim i As IntegerPrivate Sub Form_Load()
  i = 0
End SubPrivate Sub Timer1_Timer()
    Unload Me
    MDI_LKSY.Show
End Sub
Private Sub Timer2_Timer()
    If i <= 10 Then
       pb.Value = i * 10
       i = i + 1
    End If
End Sub

Answer 4

Private Sub Form_Paint()
Dim i As Double
pb.Min = 0
pb.Max = 3000000
For i = 0 To 3000000
 pb.Value = i
Next
End Sub

Answer 5

Private Sub Form_Load()
Dim i As Double
pb.Min = 0
pb.Max = 3000000
For i = 0 To 3000000
 pb.Value = i
Next i
End Sub

Answer 6

其实是可以运行的,在我的机子上就没有问题.只是很久才把窗体Show出来而已.
原因出在:你的进度条最大值太大了,"pb.Max = 3000000",有必要用怎么大的值吗?
不过有个办法可以解决;
在Form_Load事件中加上
Show
Me.Refresh
就没有问题了.