主题：[求助]增加窗口代码？

请问有没有增加窗口代码？我想点击某控件，然后增加一个窗口或复制某窗口也行，请问代码怎么写？

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

 

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

谢谢！但有个问题，我增加了窗口，如何增加窗口的内容（比如我在窗口设置了十个TEXTBOX控件框，是用来填写客户的资料的）？

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

 

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

 

 

 

明白，但这样的话，用户就会看到所有表格了，如何隐藏部分表格？

afterOpenProject事件

 

Tables("表A").Visible = False

Tables("表B").Visible = True

明白了，谢谢！