以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问窗口能通过代码动态建立不  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79503)
--  作者：santde
--  发布时间：2016/1/3 18:06:00
--  请问窗口能通过代码动态建立不
控件能通过代码动态建立
请问窗口能通过代码动态建立不
--  作者：大红袍
--  发布时间：2016/1/3 21:23:00
--  

foxtable的窗口不行。Windows.Forms.Form你随便建

 

比如代码

 

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
--  作者：santde
--  发布时间：2016/1/4 12:08:00
--  
那如何高这个窗口内添加控件呢
--  作者：大红袍
--  发布时间：2016/1/4 12:10: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
--  作者：santde
--  发布时间：2016/1/4 13:02:00
--  
Dim txt As new Windows.Forms.TextBox
txt.name = "ydh"
txt.left = 100
txt.top =100
txt.BindingField = "表A.第一列"
frm.Controls.Add(txt)


如何绑定到单元格呢，按TAB打不开属性精灵，不知道有哪些属性了
--  作者：大红袍
--  发布时间：2016/1/4 14:19:00
--  

你这种，就需要变通一下了

 

Dim txt As WinForm.TextBox
txt = Forms("窗口1").CreateControl("TextBox1", ControlTypeEnum.TextBox)
txt.Left = 100
txt.Top = 100
txt.BindingField = "表A.第一列"     

Dim frm As New Windows.Forms.Form
frm.Text = "test"
frm.Topmost = True
frm.width = 500
frm.height = 500
frm.Controls.add(txt.basecontrol)
frm.Show
frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2
--  作者：kaiyu
--  发布时间：2016/1/4 15:33:00
--  

我想问一下,把这个控件加进去了,比如加一个按钮,那单击事件如何写代码
--  作者：大红袍
--  发布时间：2016/1/4 15:35:00
--  

绑定事件 http://www.foxtable.com/help/topics/2374.htm

 
--  作者：santde
--  发布时间：2016/1/4 15:56:00
--  
table控件能增加不
--  作者：大红袍
--  发布时间：2016/1/4 16:06:00
--  

比如

 

Dim tbl As WinForm.Table
tbl = forms("窗口1").CreateTable("Table12", "表A", False)
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
frm.Controls.add(tbl.basecontrol)
frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2