[求助]窗口可不可以动态生成？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口可不可以动态生成？

共有2961人关注过本帖树形打印复制链接主题：[求助]窗口可不可以动态生成？

xiekai

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：308 积分：2435 威望：0 精华：0 注册：2012/4/5 14:26:00

[求助]窗口可不可以动态生成？ 发帖心情

Post By：2017/5/17 16:23:00 [只看该作者]

如题，求教。

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/17 17:06:00 [只看该作者]

可以动态生成。如代码

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

Dim pic As new Windows.Forms.PictureBox
pic.Image = getImage("d:\test.jpg")
pic.width = 200
pic.height = 100
pic.Top = 10
pic.left = 10
frm.Controls.Add(pic)

Dim web As new Windows.Forms.Webbrowser
web.width = 500
web.height = 200
web.Top = 150
web.left = 10

web.Navigate("http://www.foxtable.com")
frm.Controls.Add(web)

frm.Show
frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2

或者，写成类，如，你new多少个都可以

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=96811&skin=0

xiekai

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：308 积分：2435 威望：0 精华：0 注册：2012/4/5 14:26:00

Post By：2017/5/18 11:36:00 [只看该作者]

谢谢回复。再问个问题，可以对窗口的Table控件动态绑定表吗？

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/18 12:03:00 [只看该作者]

要这样写

Dim tbl As WinForm.Table
forms("窗口1").Open
tbl = forms("窗口1").createTable("test" & format(Date.now, "HHmmss"), "表A", True)
tbl.SetBounds(10, 10, 600, 400)
Dim frm As New Windows.Forms.Form
frm.Text = "test"
frm.Topmost = True
frm.width = 500
frm.height = 500
frm.Show
forms("窗口1").AddControl(tbl)
frm.Controls.add(tbl.basecontrol)
frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=79503&authorid=0&page=0&star=1

[此贴子已经被作者于2017/5/18 12:04:06编辑过]