很简单的一个问题, 学生求助.. VB多个标签.

Question

就是一个窗口下 可以实现多个标签切换... 我觉得一个界面放得东西太少了 所以想多开几个界面 在上面可以切换 请问代码是什么

Answer 1

不需要三楼所说的那么复杂。使用sstab控件，添加方法如二楼所说。默认为三个重叠的标签（相当于3个可以切换的界面）。修改tabs属性值，可以添加标签数量。这样你就可以在不同的标签上设置不同的界面，通过点击相应的标签切换界面了。

Answer 2

需要引用Microsoft Windows Common Controls 6.0 (sp4)
然后添加选项卡控件
在选项卡控件的属性中添加选项
然后单击选项卡，按F1（你必须安装了MSDN）
按照它上面的例子做
选项卡控件不是一个容器，得做几个Frame或Picture把每一个选项里的控件“包”上。

以下为MSDN对选项卡控件的帮助：
TabStrip 控件就象笔记本的书签或者一组文件夹的标签一样。通过使用 TabStrip 控件，可以在应用程序中为某个窗口或者对话框的相同区域定义多个页面。

语法

TabStrip

说明

该控件由 Tabs 集合中的一个或者更多个 Tab 对象组成。在设计时和运行时，都可以通过设置该控件的属性影响 Tab 对象外观。也可以在设计时用 TabStrip 控件的属性页来添加或删除选项卡，要是在运行时用方法来添加或删除 Tab 对象。

Style 属性决定了 TabStrip 控件看起来是象下压按钮还是象笔记本标签 。在设计时将一个 TabStrip 控件放在某个窗体上时，它就有了一个笔记本标签。如果 Style 属性被设置为 tabTabs，那么 TabStrip 控件的内部区域周围将有一个边框。当 Style 属性被设置为 tabButtons 时，控件的内部区域周围不显示边框，不过，那个区域仍然存在。

要设置 TabStrip 控件的整体大小，用其拖动句柄或者设置其 Top、Left、Height 和 Width 属性。运行时根据该控件的整体大小，Visual Basic 自动决定内部区域的大小和位置并返回 Client-coordinate 属性— ClientLeft、ClientTop、ClientHeight 和 ClientWidth。MultiRow 属性决定了该控件能否具有多于一行的选项卡，TabWidthStyle 属性决定了每一行的外观，还有，如果 TabWidthStyle 属性被设置为 tabFixed，则可以用 TabFixedHeight 和 TabFixedWidth 属性来给 TabStrip 控件中的所有选项卡设置相同的高度和宽度。

TabStrip 控件不是容器。要想包含实际页面和它们的对象，必须用 Frame 控件或者其它容器，它们的大小必须与控件中所有 Tab 对象共享的内部区域匹配。如果针对该容器使用了一个控件数组，则可以使特定的 Tab 对象与数组中的每一项相关联，请看下例：

Option Explicit
Private mintCurFrame As Integer' Current Frame visible

Private Sub Tabstrip1_Click()
If Tabstrip1.SelectedItem.Index = mintCurFrame _
Then Exit Sub ' No need to change frame.
' Otherwise, hide old frame, show new.
Frame1(Tabstrip1.SelectedItem.Index).Visible = True
Frame1(mintCurFrame).Visible = False
' Set mintCurFrame to new value.
mintCurFrame = Tabstrip1.SelectedItem.Index
End Sub

注意 在容器上将控件分组时,必须使用上述显示/隐藏策略,而不使用 Zorder Method 将框架带到全面来。否则，实现访问键(ALT + 访问键)的控件将一直响应键盘命令，甚至当容器不是最顶端的控件时也如此。还要注意，必须将每个组放在它自己的容器中，以此将 OptionButton 控件的组分离开，否则，窗体上的所有 OptionButtons 将象一大组 OptionButtons。

提示 使用 BorderStyle 属性为 None 的 Frame 控件作为容器来取代 PictureBox 控件。Frame 控件比起 PictureBox 控件来说所花费的开销少。

TabStrip 控件的 Tabs 属性是所有 Tab 对象的集合。每个 Tab 对象都具有与其当前状态和外观相关联的属性。例如，可以使 ImageList 控件与 TabStrip 控件相关联，然后就可以在单个选项卡上使用图象了。也可以使工具提示与每个 Tab 对象相关联。

发行注意 TabStrip 控件是一组自定义控件的一部分，这组自定义控件可以在文件 MSCOMCTL.OCX 中找到。为了在应用程序中使用 TabStrip 控件，必须将文件 MSCOMCTL.OCX 添加到工程中去。当发布应用程序时，要把文件 MSCOMCTL.OCX 安装到用户的 Microsoft Windows SYSTEM 目录下。关于如何在工程中添加自定义控件的详细信息，请参阅《程序员指南》。

参考资料：MSDN

本回答被网友采纳

Answer 3

我也是自学的。看在你没老师的份上给你编了前几题。后面三个题实在不想编了。其实后三个题也很容易。
1、
Dim I As Long
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
I = I + 1
Label1 = I
Beep
End Sub
2、
Private Sub Command1_Click()
For I = 1 To 30
For J = I To 30
If Int(Sqr(I ^ 2 + J ^ 2)) = Sqr(I ^ 2 + J ^ 2) Then
If Sqr(I ^ 2 + J ^ 2) <= 30 Then Print I & "," & J & "," & Sqr

(I ^ 2 + J ^ 2)
End If
Next J
Next I
End Sub
3、
Private Sub Command1_Click()
M = Int(InputBox("请输入M的值：", "输入数据", 84))
N = Int(InputBox("请输入N的值：", "输入数据", 48))
If M < N Then Max = M Else Max = N
Do While Max > 1
Max = Max - 1
If M Mod Max = 0 And N Mod Max = 0 Then Exit Do
Loop
Print M & "与" & N & "的最大公因子是" & Max
End Sub
4、
fPrivate Sub Command1_Click()
Dim I As Long
M = Int(InputBox("请输入M的值：", "输入数据", 84))
N = Int(InputBox("请输入N的值：", "输入数据", 48))
If M < N Then
Max = M
M = N
N = Max
End If
For I = N To M
If Wqs(I) Then Print I
Next I
End Sub

Private Function Wqs(A As Long) As Boolean
For I = 1 To Int(A / 2)
If A Mod I = 0 Then k = k + I
Next I
If k = A Then Wqs = True Else Wqs = False
End Function

8、
Private Sub Command1_Click()
Dim IntS(1 To 10) As Long
Dim IntT(1 To 10) As Long
For I = 1 To 10
IntS(I) = InputBox("请输入第" & I & "个数据", "", "")
IntT(11 - I) = IntS(I)
Next I
Print "交换前："
For I = 1 To 10: Print "（" & I & "）"; IntS(I);: Next I
Print "交换后："
For I = 1 To 10: Print "（" & I & "）"; IntT(I);: Next I
End Sub

Answer 4

你说的是几个窗口间的切换么
如果是这个的话你可以用代码
form.show来实现。
前面的form用你的窗口名称代替追问

不是...是一个窗口 下面有好多个切换界面 像标签一样 横的排在那

追答

呃，我也不知道。我也是学生。

Answer 5

你说的是选项卡把。。。这是一种控件。。。需要添加。。。在控件栏上点右键----部件----找到Microsoft Tabbed Dialog Control 6.0。。打上对号-------点确定。。。就可以在控件中找到了