以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 点击页面时提示错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62135)
--  作者：blsu33
--  发布时间：2014/12/25 21:56:00
--  [求助] 点击页面时提示错误
有点甜老师，
     点击页面隐藏时，提示如下错误
.NET Framework 版本：2.0.50727.4984
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,基础设置,TabControl1,DoubleClick
详细错误信息：
未设置对象变量或 With 块变量。

能否帮我远程看一下吗  资料有点多 不好上传 您的QQ号是多少呢
--  作者：有点甜
--  发布时间：2014/12/25 22:00:00
--  

 贴出你代码。
--  作者：blsu33
--  发布时间：2014/12/25 22:06:00
--  
1、DoubleClick
e.Sender.SelectedPage.Visible = False
2、SelectedIndexChanged
Dim pg As WinForm.TabControl = e.Form.Controls("TabControl1")

[此贴子已经被作者于2014-12-25 22:27:27编辑过]
--  作者：有点甜
--  发布时间：2014/12/25 22:08:00
--  

DoubliClick

 

If e.Sender.SelectedPage IsNot Nothing Then

    e.Sender.SelectedPage.Visible = False

End If
--  作者：blsu33
--  发布时间：2014/12/25 22:29:00
--  
有点甜老师，
   上述问题解决了，谢谢。
 

还有一个问题 ，我想限制显示的页面数量 可是 命令怎么写呢

Dim pg3 As WinForm.TabControl = e.Form.Controls("TabControl1")
If pg3.TabPages.Count > 5 Then                                                ........怎么写 显示的页面数>5
    MessageBox.Show("请关闭部分页面","提示")
End If
--  作者：有点甜
--  发布时间：2014/12/25 22:32:00
--  

Dim pg3 As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim count As Integer = 0
For Each pg As WinForm.TabPage In pg3.TabPages
    If pg.Visible = True Then
        count += 1
    End If
Next

msgbox(count)
--  作者：blsu33
--  发布时间：2014/12/25 23:24:00
--  
应该 放在哪个事件中 要求是 已经打开的 不多于5
[此贴子已经被作者于2014-12-25 23:24:03编辑过]
--  作者：有点甜
--  发布时间：2014/12/25 23:25:00
--  
 你在哪个事件打开显示页面，就在哪个事件写代码。