（已由zhaogang1960版主amesman高手园满解决）在VB6中如何手工添加“多页控件”

好奇心

打开“VB６”》“标准ＥＸＥ”，在“工程１－（From）”窗口的最左边的所列出的控件中，咋没有“多页控件”呢？如何手工添加它呢？

zhaogang1960

VB6没有多页控件
我在开发易用宝时的解决办法：
在窗体上画多个同一位置，同一大小的框架，来模拟多页控件

蓝虾

http://club.excelhome.net/thread-1048914-1-1.html

ingalaxy

引用VBA别的库试试，一般VBA标准库好像是有的~~

好奇心

zhaogang1960 发表于 2013-11-2 16:18
VB6没有多页控件
我在开发易用宝时的解决办法：
在窗体上画多个同一位置，同一大小的框架，来模拟多页控件 ...

请大侠详细些，或者截个图。

好奇心

蓝虾 发表于 2013-11-2 16:21
http://club.excelhome.net/thread-1048914-1-1.html

没发现Tabstrip或SSTTAB控件啊。

zhaogang1960

好奇心 发表于 2013-11-2 16:43
请大侠详细些，或者截个图。

这种方法没有标签，要用按钮实现标签功能，可先把窗体画大一些，画多个框架，在框架上画控件等，最后再把这些框架放在一个位置上(也可以用代码实现)，请看演示和图片

好奇心

zhaogang1960 发表于 2013-11-2 16:56
这种方法没有标签，要用按钮实现标签功能，可先把窗体画大一些，画多个框架，在框架上画控件等，最后再把 ...

请大侠亮出代码吧，偶太菜画不来这么复杂的东东。

zhaogang1960

以下一步为例：
如果用多页：
Private Sub NextButton_Click()
    MultiPage1.Value = MultiPage1.Value + 1
End Sub
如果是框架：
Dim mlFranumber As Long'模块级变量
Private Sub cmdNext_Click()
    mlFranumber = mlFranumber + 1'第几个框架
    按照mlFranumber 设置哪个框架显示或隐藏
End Sub

好奇心

zhaogang1960 发表于 2013-11-2 17:18
以下一步为例：
如果用多页：
Private Sub NextButton_Click()

这些代码如何分别放在对应的控件中？