怎样在VB6.0中的在运行时添加多个窗体

最新推荐文章于 2022-04-11 10:16:32 发布

原创最新推荐文章于 2022-04-11 10:16:32 发布 · 4k 阅读

5 ·

CC 4.0 BY-SA版权

本文介绍了一种在Visual Basic应用程序中动态加载多个相同窗体的方法。通过使用Object类型的数组，可以在运行时创建并显示额外的窗体实例，而不必在设计阶段就预先定义。

在一个程序项目中我们有时需要有多个窗体，可是又不想在设计时添加，而要在运行时添加。这时我们可以使用Object类型的数组，来实现运行时添加窗体。
我们先在程序中添加两个窗体Form1，和Form2，然后在Form1中添加一个按钮，点击它可以打开两个窗体。如图：![运行时加载多窗体1](https://img-blog.youkuaiyun.com/20180730131340593?watermark/2/text/aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3VzZXJs/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70)

接着我们在按钮Command1的Click事件中加入如下代码:
Private Sub Command1_Click()

Dim Forms(5) As Object
Set Forms(0) = Form2
Set Forms(1) = New Form2
Load Forms(1)
Forms(1).Show
Load Form2
Form2.Show
End Sub

这样我们就可以实现运行时加载窗体了。运行程序，点击Command1，效果如图：
![运行时加载多窗体](https://img-blog.youkuaiyun.com/20180730131712290?watermark/2/text/aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3VzZXJs/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70)
我们看到设计时我们只添加了一个Form2窗体，运行时却得到两个Form2窗体。