- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 页面切换的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11149)
-- 发布时间：2011/7/10 14:18:00
-- 页面切换的问题
请看附件；页面切换
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2011/7/10 14:47:00
--
AfterLoad
生成窗口后执行，通常在此对窗口和控件进行初始化设置。
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