以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态增加groupbox控件问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193353)

--  作者:cmc
--  发布时间:2024/9/8 23:22:00
--  动态增加groupbox控件问题
蓝老师,您好:

groupbox1是窗口原来就存在的分组框,现在需要动态增加一个分组框,为此新建一个按钮button3,click事件为:

Dim gb As WinForm.groupbox
gb = e.Form.CreateControl("groupbox2", ControlTypeEnum.groupbox)
e.Form.AddControl(gb)  \'新形成一个分组框并加入窗口

Dim gb1 As WinForm.groupbox = e.Form.Controls("groupbox1")
gb.width = gb1.width  \'定义新分组框的宽度
gb.Height = gb1.Height \'定义新分组框的高度
gb.left = gb1.left \'定义新分组框的左界限
gb.top = gb1.top + 170 \'定义新分组框的上界限

点击此按钮后,在原有的groupbox1下面会形成一个新的分组框,和代码定义一致,但样式不一样(如图),如何让新形成的分组框像上面的groupbox1一样

图片点击可在新窗口打开查看



--  作者:有点蓝
--  发布时间:2024/9/9 8:51:00
--  
指定一下样式:http://www.foxtable.com/webhelp/topics/3305.htm