以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]页面集合的问题!【已上传附件】  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14695)

--  作者:gaoyong30000
--  发布时间:2011/11/29 9:58:00
--  [求助]页面集合的问题!【已上传附件】

页面集合 双击click事件里有:

Forms("绩效考核主界面").Controls("TabControl1").SelectedPage.Visible = False

 

主要用于 双击页签关闭该页的。

 

现在有2个问题 :

 

第一个:一旦关闭掉最右边的页签 会出现灰色界面  而关闭中间的页签不会出现这情况


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看


 

再双击灰色区域的话就会出现错误,而双击标签的话不会


图片点击可在新窗口打开查看此主题相关图片如下:3.jpg
图片点击可在新窗口打开查看

 

请问如何解决这一问题,我想用返回被关闭页面的前一个,但貌似没定位属性!

 

 

第二个:由于我默认点击 导航菜单中的 绩效考核的button1按钮,只会出现绩效导航图,隐藏其他标签


图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

 

Forms("绩效考核主界面").open
Dim pg As WinForm.TabPage
For i As Integer = 1 To 5
    pg = Forms("绩效考核主界面").Controls("TabControl1").TabPages(i)
    pg.Visible = False
Next

 

但是我用导航图增加页签的时候  由于之前设定的页签顺序固定  导致页签增加的时候 并不是按顺序往右增加  有时候会在几个页签中间增加一个  这种怎么解决(我看了其他软件不存在这样的问题)

[此贴子已经被作者于2011-11-29 11:13:24编辑过]

--  作者:gaoyong30000
--  发布时间:2011/11/29 11:13:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:华泰内控系统-erp.rar


--  作者:sgs
--  发布时间:2011/11/29 12:05:00
--  

让页签不显示

就行了


--  作者:czy
--  发布时间:2011/11/29 12:19:00
--  

双击代码直接:e.Sender.TabPages(e.Sender.SelectedIndex).Visible = False

这样不行吗?


--  作者:gaoyong30000
--  发布时间:2011/11/29 12:31:00
--  

这样也可以哦~  不错

 

不过我那个变灰色的问题 还是没法解决!怎么办啊


--  作者:狐狸爸爸
--  发布时间:2011/11/29 13:13:00
--  

呵呵,判断一下,如果双击的是最后一个可见的,隐藏之后,再自动选择第一个可见的。

先尝试一下,不行的话,我做个例子给你


--  作者:gaoyong30000
--  发布时间:2011/11/29 13:32:00
--  

C版给了我这个代码

Dim n As Integer = e.Sender.SelectedIndex
e.Sender.TabPages(e.Sender.SelectedIndex).Visible = False
e.Sender.SelectedIndex = n-1

但是测试起来还是有些小问题

比如:总共四页  中间隐藏了 第三页  然后再隐藏第四页 这时n-1=3 但是第三页已经隐藏了  结果又变灰色。。。

 

还有就是第二个问题   这些页签顺序固定

 

我导航图点击调用功能的时会增加页签 但是页签可能在现有页签的中间增加 而不是逐个往右增加(很多软件是逐个往右增加的)  请问如何解决?

[此贴子已经被作者于2011-11-29 14:27:13编辑过]

--  作者:czy
--  发布时间:2011/11/29 14:52:00
--  

差不多是这样吧。

 

Dim n As Integer = e.Sender.SelectedIndex
e.Sender.TabPages(e.Sender.SelectedIndex).Visible = False
For i As Integer = 0 To e.Sender.TabPages.Count -1
    If e.Sender.TabPages(i).Visible = False Then
        e.Sender.SelectedIndex = i
        Return
    End If
Next


--  作者:狐狸爸爸
--  发布时间:2011/11/29 23:30:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目193.rar


--  作者:gaoyong30000
--  发布时间:2011/11/29 23:44:00
--  

老大

 

关闭 page4 会跳到  page3   而关闭page3后 却跳到page1了   增加了页面后  同样关闭了最右边2个后   关闭其他的都会自动跳到page1  而不是逐个从右往左。

 

 

还有我这个帖子第二个问题  我帖子里的导航图 一个图片对应上面一个page   总共5个  

 

如果我点击  第一个图片  则出现page1  我点击第三个图片  则在页签右边出现page3   
而此时再点击 第二个图片 page2  则会插在page1  与  page3 之间  而不是按从左到右 在page3右边

 

 

其实我提得这2个问题  简单概括为  点击导航图增加功能时 页签是从左往右 逐个增加

                                                      双击关闭页签时 是从右往左 逐个减少