以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]页面关闭显示错误提示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=61923)

--  作者:blsu33
--  发布时间:2014/12/22 14:29:00
--  [求助]页面关闭显示错误提示
老师,
   页面关闭时,有提示,怎么改,请老师帮忙看下
e.Sender.SelectedPage.Visible = False
Dim top() As Integer = {1,2,3,4,5,6,7,8,9,10,11,12}
\'Dim Dop() As String ={"BOM","物",...}

Select Case e.Sender.TabPages
    Case 0
        Dim pg As WinForm.TabPage = Forms("主界面").Controls("TabControl1").TabPages("BOM")
        pg.Visible = False
        Forms("主界面").Controls("TabControl1").SelectedIndex = 0
    Case 1
        Dim pg As WinForm.TabPage = Forms("主界面").Controls("TabControl1").TabPages("物料")
        pg.Visible = False
        Forms("主界面").Controls("TabControl1").SelectedIndex = 0        
End Select


错误提示
.NET Framework 版本:2.0.50727.3053
Foxtable 版本:2014.11.11.1
错误所在事件:窗口,主界面,TabControl1,Click
详细错误信息:
Operator \'=\' is not defined for type \'TabPageCollection\' and type \'Integer\'.


--  作者:有点甜
--  发布时间:2014/12/22 14:37:00
--  

Select Case e.Sender.TabPages

 

改成

 

Select Case e.Sender.SelectedIndex

 


--  作者:Bin
--  发布时间:2014/12/22 14:37:00
--  
Click代码发出来,  或者上个例子看看

你所发的代码,没看出问题.

--  作者:blsu33
--  发布时间:2014/12/22 16:07:00
--  
有点甜老师,
     为什么执行上面的代码改后,打开的页面,会每点击一下,两个页面同时关闭,如何能实现,点击一下,关闭一个页面。
[此贴子已经被作者于2014-12-22 16:08:15编辑过]

--  作者:有点甜
--  发布时间:2014/12/22 16:09:00
--  

 这句代码要去掉

 

e.Sender.SelectedPage.Visible = False

 

 同时,你要说明一下,你要做什么效果?

[此贴子已经被作者于2014-12-22 16:08:59编辑过]

--  作者:Bin
--  发布时间:2014/12/22 16:10:00
--  
隐藏一个,当前页面变动,再次触发SelectedIndexChanged  你检查一下看看,或者上个例子
--  作者:blsu33
--  发布时间:2014/12/22 16:24:00
--  
老师,
    和这个例子一样,只不过,我这边用的是目录树,控制页面。
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=61342&authorid=0&page=0&star=2
--  作者:有点甜
--  发布时间:2014/12/22 16:26:00
--  
 例子发上来。
--  作者:有点甜
--  发布时间:2014/12/22 16:28:00
--  

 如果要点击后直接隐藏,就直接此代码就足够了

 

e.Sender.SelectedPage.Visible = False


--  作者:blsu33
--  发布时间:2014/12/22 16:54:00
--  
哦 谢谢 麻烦二位老师