- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]page调用 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106271)
-- 发布时间：2017/9/5 18:25:00
-- [求助]page调用
一个窗口内3个page 另外一个窗口有3个Button 如点了Button1跳出另外一个窗口显示PAGE3 并且隐藏其它两个page 代码怎么写啊？
此主题相关图片如下：未标321题-1.jpg
此主题相关图片如下：未33333标题-1.jpg
-- 发布时间：2017/9/5 20:16:00
--
Dim frm As WinForm.Form = Forms("销售开单")
frm.open
Dim tab As WinForm.TabControl = frm.Controls("TabControl1")
For Each p As WinForm.TabPage In tab.TabPages
If p.Name <> "Page3" Then p.Visible = False
Next
-- 发布时间：2017/9/6 20:24:00
--
Dim frm As WinForm.Form = Forms("客户资料")
frm.open
Dim tab As WinForm.TabControl = frm.Controls("TabControl1")
For Each p As WinForm.TabPage In tab.TabPages
If p.Name <> "往来单位" Then p.Visible = False
Next
Button11这样设置了没用阿 不显示页面 请大神再指点下
-- 发布时间：2017/9/6 20:32:00
--
改一下
Dim frm As WinForm.Form = Forms("客户资料")
frm.open
Dim tab As WinForm.TabControl = frm.Controls("TabControl1")
For Each p As WinForm.TabPage In tab.TabPages
msgbox(p.text)
If p.Text <> "往来单位" Then
p.Visible = False
Else
p.Visible = True
End If
Next
-- 发布时间：2017/9/6 22:51:00
--
非常感谢大神的帮助
