以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]增加窗口代码？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81082)
--  作者：起源
--  发布时间：2016/2/18 10:29:00
--  [求助]增加窗口代码？
请问有没有增加窗口代码？我想点击某控件，然后增加一个窗口或复制某窗口也行，请问代码怎么写？
--  作者：大红袍
--  发布时间：2016/2/18 10:34:00
--  

 不能复制窗口。增加窗口参考

 

Dim frm As New Windows.Forms.Form
frm.Text = "test"
frm.Topmost = True
frm.width = 500
frm.height = 500
frm.Show
frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2
--  作者：起源
--  发布时间：2016/2/18 10:55:00
--  
谢谢！但有个问题，我增加了窗口，如何增加窗口的内容（比如我在窗口设置了十个TEXTBOX控件框，是用来填写客户的资料的）？

上面代码是可以增加窗口，但只是一个空窗口，窗口里面没任何内容的！

因为我想填写完一个客户资料后，点击下一个客户时，就增加一个新的窗口，而新窗口里面的框格要与之前的一样！
--  作者：大红袍
--  发布时间：2016/2/18 11:01:00
--  

没必要这样做，也做不到这样的，你在同一个窗口实现即可

 

http://www.foxtable.com/help/topics/2263.htm

 

 

 
--  作者：起源
--  发布时间：2016/2/18 11:09:00
--  
明白，但这样的话，用户就会看到所有表格了，如何隐藏部分表格？
--  作者：大红袍
--  发布时间：2016/2/18 11:10:00
--  

afterOpenProject事件

 

Tables("表A").Visible = False

Tables("表B").Visible = True
--  作者：起源
--  发布时间：2016/2/18 11:17:00
--  
明白了，谢谢！