VB6如何创建和VBA一件的多页控件？

蓝虾

大家好！

VBA中窗体可以创建多页控件，VB6找来找去，好象没找到，请问如何解决，谢谢。

zhaogang1960

VB6没有多页控件
有一个相似的——TabStrip控件

蓝虾

是啊，但这个用起来没VBA那么方便和美观。我还没搞懂怎么增加第二、三个标签。最后我发现，还是SSTAB比较方便。

蓝虾

又一次悲催，这个SSTAB所需的控件有的电脑没有，必须另外再增附，不方便

liuliu749

跟着各位大大学习中

zhaogang1960

蓝虾 发表于 2013-8-26 12:35
又一次悲催，这个SSTAB所需的控件有的电脑没有，必须另外再增附，不方便

有一种笨办法可以代替多页：
每一页画一个框架Frame，它们位置相同，大小一样，把多页的控件画在每个框架上，控制框架显示或隐藏即可

蓝虾

又是杨白劳了一次

蓝虾

1. Private Sub TabStrip1_Click()
   
2.     If Me.TabStrip1.SelectedItem.Index = 1 Then
   
3.         Me.Frame1.Visible = True
   
4.         Me.Frame2.Visible = False
   
5.         Me.Frame3.Visible = False
   
6.     ElseIf Me.TabStrip1.SelectedItem.Index = 2 Then
   
7.         Me.Frame1.Visible = False
   
8.         Me.Frame2.Visible = True
   
9.         Me.Frame3.Visible = False
   
10.     ElseIf Me.TabStrip1.SelectedItem.Index = 3 Then
    
11.         Me.Frame1.Visible = False
    
12.         Me.Frame2.Visible = False
    
13.         Me.Frame3.Visible = True
    
14.     End If
    
15. End Sub

复制代码

最终结果

考试加油站

zhaogang1960 发表于 2013-8-22 17:52
VB6没有多页控件
有一个相似的——TabStrip控件

提取不确定多个工作簿中的数据到同一个工作表
求：http://club.excelhome.net/thread-1050485-1-1.html

蓝虾

蓝虾 发表于 2013-8-27 22:28
最终结果

有啊，在VB6里重画了几个窗体，窗体中的代码在搬迁过程中，发现细节与VBA不完全一样，像下拉菜单的matchfound，VB6就没有这函数，VB6还要另外写个combox的click过程，checkbox附值要写0或1比较妥点，等等，郁闷了两三天。