- 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=113936)
-- 发布时间：2018/1/25 15:08:00
-- [求助]设置窗口类型
老师，
如何代码设置窗口类型
Dim frm As New Windows.Forms.Form
frm.Text = "test"
frm.Topmost = True
frm.width = 500
frm.height = 500
frm.Show
frm.formstyle = 5
frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2
此主题相关图片如下：qq图片20180125150933.png
[此贴子已经被作者于2018/1/25 15:08:45编辑过]
-- 发布时间：2018/1/25 15:40:00
--
无法设置窗口类型。
如果要作为停靠窗口之类的，可以把其剪切显示到某一个停靠窗口里面。
-- 发布时间：2018/1/25 15:51:00
--
剪切 指定是 ？
-- 发布时间：2018/1/25 15:57:00
--
以下是引用blsu33在2018/1/25 15:51:00的发言：
剪切 指定是 ？
剪切 指定是 ？
就是把窗口，显示到另一个窗口的某个panel里面，那个意思。
-- 发布时间：2018/1/25 16:04:00
--
ok 清楚了
-- 发布时间：2018/1/25 16:11: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
If Vars("cs") Then
frm.BaseForm.Visible = False
frm.BaseForm.Show
basemainform.AddOwnedForm(frm.BaseForm)
End If
此主题相关图片如下：qq图片20180125161153.png
-- 发布时间：2018/1/25 16:25:00
--
没看懂你什么意思。如果做mdi，参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=16371&skin=0
对于frm，不需要写baseForm
-- 发布时间：2018/1/25 16:36:00
--
觉得 点击 增加查询 修改时 要是 能创建窗体 就解决了建立很多窗口的问题
例如 页面 有增加查询 修改 三个按钮（最少用一个窗口）
10个页面 就要建立 10个窗口
增加 查询 修改 这样的 弹出的模式窗口太多了 怎么能优化下呢？
[此贴子已经被作者于2018/1/25 16:39:55编辑过]
-- 发布时间：2018/1/25 16:44:00
--
每个页面/每个表格，需要的增加/查询/修改窗口都可能是不一样的，控制的逻辑也可能是不一样的，除非你弄成一样，不然怎么可能减少窗口？
-- 发布时间：2018/1/25 17:01:00
--
老师，
窗口要是动态的，动态增加控件，再绑定表和事件，比增加窗口要简单，因为增加 查询 修改 执行的事件 是基本一样的