7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
junki 2004-07-29
- 打赏
- 举报
这样的内容在CSDN已经很多了
去搜索一下吧
去搜索一下吧
rainstormmaster 2004-07-29
- 打赏
- 举报
Private Sub Form_Click()
Dim i As Long
Dim c
For i = 0 To SSTab1.Tabs - 1
SSTab1.Tab = i
List1.AddItem "tab(" + CStr(i) + ")里包含下列控件："
For Each c In Controls
If c.Container Is SSTab1 Then
If c.Left > 0 Then
List1.AddItem c.Name
End If
End If
Next
Next
End Sub
northwolves 2004-07-29
- 打赏
- 举报
http://www.china-askpro.com/msg19/qa16.shtml
