dim ctl as control for each ctl in me.controls if ctl.parent is sspanel2 then 'sspanel2:第二标签页控件的名称 ... end if next
楼上的,不好意思,我没有听懂,我现在需要的是如下的遍历,但是出于SSTAB页面中第二页的内容我不知道怎么表达! For t = 0 To Me.Controls.Count - 1 If TypeOf Me.Controls(t) Is TextBox Then Controls(t).Alignment = 1 End If Next t
试了好久,没有找到解决发方法.变通下应该可以达到你的实现的要求 1:在SSTAB的第2页里加的TEXT做成控件数组,代码如下 Private Sub SSTab1_Click(PreviousTab As Integer) If SSTab1.Tab = 1 Then For I = 0 To 3 Text1(I).Enabled = False Next End If End Sub不知道怎么得到TEXT是在哪个页中,帮忙顶下先
for each ctl in me.controls
if ctl.parent is sspanel2 then 'sspanel2:第二标签页控件的名称
...
end if
next
For t = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(t) Is TextBox Then
Controls(t).Alignment = 1
End If
Next t
1:在SSTAB的第2页里加的TEXT做成控件数组,代码如下
Private Sub SSTab1_Click(PreviousTab As Integer)
If SSTab1.Tab = 1 Then
For I = 0 To 3
Text1(I).Enabled = False
Next
End If
End Sub不知道怎么得到TEXT是在哪个页中,帮忙顶下先