以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  tabcontrol的页面可以动态关掉吗  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=81825)

--  作者:sjzsdu
--  发布时间:2016/3/7 11:26:00
--  tabcontrol的页面可以动态关掉吗
TabControl控件上,按下Ctrl + W的时候能够关闭当前页面,可以实现吗

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
If e.Control = True And e.KeyCode = Keys.W Then
   tb.SelectedPage
End If

--  作者:大红袍
--  发布时间:2016/3/7 11:29:00
--  

设置visible就可以

 

tb.SelectedPage.Visible = False

 

delete掉也可以 http://www.foxtable.com/help/topics/0830.htm

 


--  作者:sjzsdu
--  发布时间:2016/3/7 11:35:00
--  回复:(大红袍)设置visible就可以 tb.Sele...
大红袍老师:

Dim i As Integer = tb.SelectedIndex
  tb.TabPages(i).delete

delete 不是 tabpage的成员
--  作者:大红袍
--  发布时间:2016/3/7 11:51:00
--  
Dim i As Integer = tb.SelectedIndex
tb.TabPages.delete(i)

--  作者:sjzsdu
--  发布时间:2016/3/7 12:32:00
--  
Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
If e.Control = True AndAlso e.KeyCode = Keys.W Then
    Dim i As Integer = tb.SelectedIndex
    MessageBox.show(i)
    If i > 0 Then  ‘ 第一页不要删除
        tb.TabPages.Delete(i)
        
    End If
    
End If

我按了Ctrl+W,但是没反应
 MessageBox.show(i)这一句没有执行

--  作者:大红袍
--  发布时间:2016/3/7 14:23:00
--  

1、代码写到窗口 全局事件 的keydown

 

2、你的page页面里面,要有控件。


--  作者:sjzsdu
--  发布时间:2016/3/7 14:54:00
--  回复:(大红袍)1、代码写到窗口 全局事件 的keydown...
你这两条都满足的,还是没反应
--  作者:大红袍
--  发布时间:2016/3/7 14:55:00
--  

不可能,我测试没问题,上传具体例子。

 

再不行的话,就绑定全局按键

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52509&skin=0