共8 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：代码问题

1楼

wqc360 发表于：2010/10/9 11:35:00

请问以下代码如何改成For Each 语句，应为我实际达到20多个页面，谢谢

If Forms("界面").Controls("TabControl1").SelectedIndex <> 1 Then '确定页面位置为2

Dim pg As WinForm.TabPage

Dim pg1 As WinForm.TabPage

Dim pg2 As WinForm.TabPage

Dim pg3 As WinForm.TabPage

Dim pg4 As WinForm.TabPage

Dim pg5 As WinForm.TabPage

pg = Forms("界面").Controls("TabControl1").TabPages(0) '指定第2页面

pg1 = Forms("界面").Controls("TabControl1").TabPages(1) '指定第2页面

pg2 = Forms("界面").Controls("TabControl1").TabPages(2) '指定第2页面

pg3 = Forms("界面").Controls("TabControl1").TabPages(3) '指定第2页面

pg4 = Forms("界面").Controls("TabControl1").TabPages(4) '指定第2页面

pg5 = Forms("界面").Controls("TabControl1").TabPages(5) '指定第2页面

pg. Visible = True '关闭该页面

pg1.Visible = False '关闭该页面

pg2.Visible = False '关闭该页面

pg3.Visible = False '关闭该页面

pg4.Visible = False '打开该页面

pg5.Visible = False '关闭该页面

End If

If Forms("界面").Controls("TabControl2").SelectedIndex <> 1 Then '确定页面位置为2

Dim pga As WinForm.TabPage

Dim pga1 As WinForm.TabPage

Dim pga2 As WinForm.TabPage

Dim pga3 As WinForm.TabPage

Dim pga4 As WinForm.TabPage

Dim pga5 As WinForm.TabPage

pga = Forms("界面").Controls("TabControl2").TabPages(0) '指定第2页面

pga1 = Forms("界面").Controls("TabControl2").TabPages(1) '指定第2页面

pga2 = Forms("界面").Controls("TabControl2").TabPages(2) '指定第2页面

pga3 = Forms("界面").Controls("TabControl2").TabPages(3) '指定第2页面

pga4 = Forms("界面").Controls("TabControl2").TabPages(4) '指定第2页面

pga5 = Forms("界面").Controls("TabControl2").TabPages(5) '指定第2页面

pga. Visible = True '关闭该页面

pga1.Visible = False '关闭该页面

pga2.Visible = False '关闭该页面

pga3.Visible = False '关闭该页面

pga4.Visible = False '打开该页面

pga5.Visible = False '关闭该页面

End If

Forms("界面").Controls("TabControl1").SelectedIndex = 1 '回到第4页面

Forms("界面").Controls("TabControl2").SelectedIndex = 1 '回到第4页面

2楼

czy 发表于：2010/10/9 12:13:00

没明白你究竟想干什么？

3楼

czy 发表于：2010/10/9 12:37:00

仅显示第二个页面。

For i As Integer = 0 To e.Form.Controls("TabControl1").TabPages.Count -1
    If i <> 1 Then
        e.Form.Controls("TabControl1").TabPages(i).Visible = False
    End If
Next

[此贴子已经被作者于2010-10-9 12:37:36编辑过]

4楼

wqc360 发表于：2010/10/9 12:40:00

Forms("界面").Controls("TabControl1")和Forms("界面").Controls("TabControl2")有很多个页面，在菜单按钮代码执行：指定1个页面可见，其余不可见。

像以上代码就是可见第一页面，其余不可见。这样写代码太长，我想用页面集合来写，不知怎样写代码，谢谢

5楼

czy 发表于：2010/10/9 12:43:00

抬头看。

6楼

wqc360 发表于：2010/10/9 12:53:00

谢谢C版，3楼代码意思对了，但是我是用在菜单按钮代码中，e.Form.Controls("TabControl1")时候应改成：

Forms("界面").Controls("TabControl1")

下午上班试试看，再次谢谢

7楼

czy 发表于：2010/10/9 12:57:00

如果是菜单中，还得再加个判断的，如：

If Forms("界面").Opened Then

……

End If

8楼

wqc360 发表于：2010/10/9 17:33:00

谢谢C版，搞定

共8 条记录, 每页显示 10 条, 页签: [1]