主题：[求助]窗口可不可以动态生成？

 可以动态生成。如代码

 

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

 

要这样写

 

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

 

用一个窗口专门用来生成表格就好了。

 请看懂4楼代码，那个就是绑定。

 

tbl.dock = 5