Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问窗口能通过代码动态建立不


  共有3166人关注过本帖树形打印复制链接

主题：请问窗口能通过代码动态建立不
帅哥哟，离线，有人找我吗？
santde
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：2293 威望：0 精华：0 注册：2015/6/14 18:33:00 		请问窗口能通过代码动态建立不  发帖心情 Post By：2016/1/3 18:06:00 [只看该作者]

控件能通过代码动态建立
请问窗口能通过代码动态建立不

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：2293 威望：0 精华：0 注册：2015/6/14 18:33:00 		  发帖心情 Post By：2016/1/4 12:08:00 [只看该作者]

那如何高这个窗口内添加控件呢

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：2293 威望：0 精华：0 注册：2015/6/14 18:33:00 		  发帖心情 Post By：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打不开属性精灵，不知道有哪些属性了
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：789 积分：8018 威望：0 精华：0 注册：2014/4/21 15:16:00 		  发帖心情 Post By：2016/1/4 15:33:00 [只看该作者]

我想问一下,把这个控件加进去了,比如加一个按钮,那单击事件如何写代码
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/4 15:35:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
santde
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：2293 威望：0 精华：0 注册：2015/6/14 18:33:00 		  发帖心情 Post By：2016/1/4 15:56:00 [只看该作者]

table控件能增加不
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05371 秒, 4 次数据查询