共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：页面切换的问题
1楼
annan 发表于：2011/7/10 14:18:00请看附件；页面切换
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
2楼
hhbb 发表于：2011/7/10 14:47:00AfterLoad
生成窗口后执行，通常在此对窗口和控件进行初始化设置。
With Forms("窗口1").Controls("TabControl1")
For n As Integer =1 To .TabPages.count-1
.TabPages(n).Visible = False
Next
End With
下一步
With Forms("窗口1").Controls("TabControl1")
Dim n As Integer = .SelectedIndex
If n =.TabPages.count-1 Then
Forms("窗口1").close
Else
.TabPages(n).Visible = False
.SelectedIndex =n+1
.TabPages(n+1).Visible = True
End If
End With
共2 条记录, 每页显示 10 条, 页签:
[1]