以文本方式查看主题

-  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=13947)

--  作者:bm
--  发布时间:2011/11/2 17:32:00
--  代码求助

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab
.SelectedIndex = 1

 

请问这一段代码在菜单里,怎么实现


--  作者:狐狸爸爸
--  发布时间:2011/11/2 17:37:00
--  

If Forms("窗口名").Opened then

    Dim tab As WinForm.TabControl = Forms("窗口名").Controls("TabControl1")
    tab
.SelectedIndex = 1

End If


--  作者:bm
--  发布时间:2011/11/2 17:40:00
--  O(∩_∩)O谢谢
刚才没有写

If Forms("窗口名").Opened then

  谢谢狐狸爸爸,