怎样对SSTAB中某个Tab的控件操作啊？

Question

比如想读取期中tab3的某个控件的值。还有怎么在程序中给某个tab中添加控件？

Answer 1

其实我的需要是这样的，我想弄个文本框的控件数组，然后在每个tab立动态的放一个，可是却不知道怎么放？

Answer 2

比如想读取期中tab3的某个控件的值。
-------------------------
每个控件都有一个名字，直接写那个控件的名不行么

Answer 3

Dim myText(2) As VB.TextBoxPrivate Sub Command1_Click()
    Dim i%
    For i = 0 To SSTab1.Tabs - 1
        SSTab1.Tab = i
        Set myText(i) = Form1.Controls.Add("vb.TextBox", "txt" & i & "")
        myText(i).Visible = True
        myText(i).Text = "txt" & i
        SetParent myText(i).hWnd, SSTab1.hWnd
        myText(i).Move 350, 500, 1000, 330
    Next
End Sub

Answer 4

Dim myText() As VB.TextBoxPrivate Sub Command1_Click()
    ReDim myText(SSTab1.Tabs - 1)
    Dim i%
    For i = 0 To SSTab1.Tabs - 1
        SSTab1.Tab = i
        Set myText(i) = Form1.Controls.Add("vb.TextBox", "txt" & i & "")
        myText(i).Visible = True
        myText(i).Text = "txt" & i
        SetParent myText(i).hWnd, SSTab1.hWnd
        myText(i).Move 350, 500, 1000, 330
    Next
    SSTab1.Tab = 0
End Sub

Answer 5

我提问的方法有问题，其实应该问怎么摆放动态控件？
或者，我在第一个Tab里摆好控件，然后怎样能使其它的tab也能够有同样的这样控件（最好能用个空间数组），由于tab的数量是动态变化的，我不可能在设计时把每个tab的控件都摆好

Answer 6

少了SetParent函数，补上：
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Dim myText() As VB.TextBoxPrivate Sub Command1_Click()
    ReDim myText(SSTab1.Tabs - 1)
    Dim i%
    For i = 0 To SSTab1.Tabs - 1
        SSTab1.Tab = i
        Set myText(i) = Form1.Controls.Add("vb.TextBox", "txt" & i & "")
        myText(i).Visible = True
        myText(i).Text = "txt" & i
        SetParent myText(i).hWnd, SSTab1.hWnd
        myText(i).Move 350, 500, 1000, 330
    Next
    SSTab1.Tab = 0
End Sub

Answer 7

用move方法来控制控件的位置和大小

Answer 8

代码中的myText(i).Move 350, 500, 1000, 330 ，就是控制myText(i)的位置和大小的

Answer 9

我试了一下，没有成功，所有的控件都被添加到第一个Tab上了。高手们有什么办法没有？

Answer 10

textbox已经成功的添加上去了，但是Label控件由于没有hWnd属性，不能用setparent函数啊？又被卡住了，请高手赐教！