Question

VB中多个窗体间的切换显示

Answer 1

在vb界面的右侧，一般有个工程窗口，如果没有，请找到“视图”里的“工程资源管理器”，单击一下，在右上角就会显示出来。在这个窗口里你会看到有个工程字样的，前面可能有加号或减号，如果是加号时，就单击一下加号，如此把加号都变成减号即可，这样里面的多个窗体都会显示出来。
下面说怎么切换：想查看哪个窗体这时就单击那个窗体的图标（名称）就可以进行切换了。
我说的是具体的操作，不知道说的够不够具体！

Answer 2

'下面代码非常简洁，可以满足你的要求。
Option
Explicit
Dim
Frm()
As
Form,
FrmId
As
Integer
Private
Sub
Form_Load()
'本例假设有2个窗体。如果有多个窗体，请在此修改即可。
ReDim
Frm(1)
Set
Frm(0)
=
Form1
Set
Frm(1)
=
Form2
End
Sub
Private
Sub
Timer1_Timer()
'通用代码，不要更改。
Dim
i
As
Integer
For
i
=
0
To
UBound(Frm)
If
i
=
FrmId
Then
Frm(i).Show
Else
Frm(i).Hide
End
If
Next
FrmId
=
FrmId
+
1
FrmId
=
IIf(FrmId
>
UBound(Frm),
0,
FrmId)
End
Sub