请问vb中如何轮流显示窗体

来源：百度知道 编辑：UC知道 时间：2024/05/13 07:16:56
请问vb如何轮流显示一组窗体,或者在一个窗体中轮流显示一组mschart控件,希望能给出代码,谢谢!
非常感谢,希望能再提供一点窗体轮换的方法,谢谢!马上加分!

Dim i, j As Integer
Private Sub Form_Load()
i = 0
j = 0
For i = 0 To 3
MSChart1(i).Visible = False
Next i
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
MSChart1(j).Visible = False
j = i Mod 4 '4为mschart个数；这里你自己设置
i = i + 1
MSChart1(j).Visible = True
End Sub
---------------
复制一组mschart出来
===============
'form1:
Dim i As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
i = i + 1
If i = 3 Then '这里3是你设置该窗体停留的秒数
Me.Hide
Form2.Show
End If
End Sub
----------
'form2
Dim i As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
i = i + 1
If i = 3 Then
Me.Hide
Form3.Show
End If
End Sub
----------------
'form3
Dim i As Integer
Private Sub Fo