Question

vb frame数组问题，求助高手 。问题1：我如何创建frame数组控件？？问题2：如何在各个frame上添加其他控件

vb frame数组问题，求助高手 。问题1：我如何在同一个窗体界面里创建frame数组控件？？ 有三个frame. 问题2：如何在各个frame上添加其他控件？

大家看我创建的方法对不对啊？不对请指出，谢谢大家啊。
我是先往控件箱里选择frame这个控件，然后复制它，紧接着在frame1上添加一个Label1 ，然后在frame1 上粘贴一下刚才复制的frame，就有了frame(0),frame(1) 数组了，。然后再在frame1(1)上添加一个Label2。 同样的方法创建了 frame1(2),并在frame1(2)上添加控件Label3 ....问题出来了！！！！

我的TabStrip控件有三个按钮，一个按钮选项卡对应一个frame,三个对应三个frame.

但是点击第二个按钮选项卡时候，结果frame1(1)无法显示，frame1(1)上的Label2也看不到。。 第三个按钮选项卡也是这样。

高手说一下。。。。。在同一个窗体界面上创建frame数组，然后在不同的frame上添加控件 ，到底该怎么办？？

问题有点繁琐 ，我分也不多 。诚心求救，谢谢大家啊。。

Answer 1

然后在frame1 上粘贴一下刚才复制的frame？？？？
不要在frame1 上粘贴，应该在 窗体 上粘贴。就这一步错了。其他ok。
还有代码不知道你怎么写的。你参考一下：
'Frame1(0)要放在TabStrip1上,其他Frame1都是以Frame1(0)为基准显示的。
Private Sub TabStrip1_Click()
Dim x As Frame
For Each x In Frame1
x.Move Frame1(0).Left, Frame1(0).Top '如果你已经排版好了,可以删除这句
x.Visible = x.Index = TabStrip1.SelectedItem.Index - 1
Next
End Sub
'TabStrip 我也不常用，这是我刚才琢磨出来的。
'写的不好，不知道对你有没有参考价值o(╯□╰)o
不明白可以一起讨论-->HI

Answer 2

Dim a(0 To 3)
Private Sub Command1_Click(Index As Integer)
List1.AddItem Index

End Sub

Private Sub Command2_Click()
Dim n, m
m = 0
n = 0
For i = 0 To 3
For j = 0 To 3
If List1.List(i) = a(j) And i = j Then
n = n + 1
End If

If List1.List(i) = a(j) And i <> j Then
m = m + 1
End If

Next j
Next i

Label1.Caption = n & "个数值猜对以及位置对；" & m & "个数值猜对但位置不对！"
End Sub

Private Sub end_Click()
End
End Sub

Private Sub Form_Load()

For i = 0 To 9
Command1(i).Enabled = False
Next i

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Form1.PopupMenu game
End If
End Sub

Private Sub new_Click()

Randomize
For i = 0 To 3
a(i) = Int(Rnd * 10)
Next i

For i = 0 To 9
Command1(i).Enabled = True
Next i

List1.Clear
End Sub

Private Sub view_Click()
Label1.Caption = a(0) & a(1) & a(2) & a(3)
End Sub