以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码创建窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179196)

--  作者:sky-18
--  发布时间:2022/8/12 12:46:00
--  代码创建窗口
请问老师,可否通过代码来新增窗口?
--  作者:cd_tdh
--  发布时间:2022/8/12 12:56:00
--  

比如这样:

Dim frm As New system.Windows.Forms.Form
frm.Text = "欢迎使用"
frm.Topmost = True
frm.width = 500
frm.height = 500
frm.Show

[此贴子已经被作者于2022/8/12 12:56:35编辑过]

--  作者:有点蓝
--  发布时间:2022/8/12 13:34:00
--  
Foxtable设计的窗口无法通过代码新增
--  作者:sky-18
--  发布时间:2022/8/12 17:19:00
--  
谢谢,试了一下真的可以
--  作者:sky-18
--  发布时间:2022/8/12 17:46:00
--  
前辈,再多问你一个问题。
我看帮助文件里没有用代码修改窗口尺寸的方法,
我用你代码里的方法客修改已有窗口的尺寸吗?
forms("窗口").width  forms("窗口").height

--  作者:有点蓝
--  发布时间:2022/8/13 8:28:00
--  
如果是独立、模式窗口:Forms("窗口").baseform.width

停靠窗口:Forms("窗口").panel.parent.width