vb中怎么添加控件?

1、首先打开VB6.0，选择“标准EXE”。

2、然后按下键盘上的“Ctrl+T”来选择部件。

3、在其中找到“Microsoft Multimedia Control 6.0”选项。

4、点击左侧的小框框来选中。

5、点击对话框下部的确定按钮来完成添加。

6、此时，工具箱内就会出现小部件。

7、点击小部件，然后在窗体中画出小部件。

8、画完后，展现效果图。

9、关于MMcontrol的设置可以在右侧进行。

10、就这样，MMcontrol添加成功，可以为它书写代码了。

题主是不是用的 TabControl1.Controls.Add(TabPage1) 或者 TabControl1.TabPages.Add(TabPage1) 这种方法添加的？

这样的话不但添加的第二个页面是空白的，第一个页面也会变成空白，因为对系统来说，存在了两个 TabPage1，而原先 TabPage1 里的控件用的是 Me.TabPage1.Controls.Add(Label1) 之类的方法添加进去的，有两个 TabPage1 系统就糊涂了不知道是该往哪一个里面加，所以就出现了两个都是空白的。

可以用的变通的方法实现。

比如：

用一个 Panel 承装 TabPage1 里的所有控件，在选中 TabPage2 时，执行

TabPage1.Controls.Remove(Panel1)

TabPage2.Controls.Add(Panel1)

先移除再添加，这样就不会出错了。

再比如：

最初设计 TabPage1 的时候就不要先添加进去，而是作为一个基类，有点儿说不明白，看代码吧：

编写示例代码如下：

Private Sub TextBox1_Change()

    Dim oPage

    iMax = CInt(TextBox1.Text) - UserForm1.MultiPage1.Pages.Count

    

    UserForm1.MultiPage1.Pages(0).Controls.Copy

    

    For i = 1 To iMax

        Set oPage = UserForm1.MultiPage1.Pages.Add()

        oPage.Paste

    Next

End Sub

效果如图:

---