- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 去掉所有的边框线 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92847)
-- 发布时间：2016/11/15 9:32:00
-- 去掉所有的边框线
大师：见实例，如何去掉窗口及窗口中所有控件的边框线？看似没有国界线？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目31.zip |
-- 发布时间：2016/11/15 9:54:00
--
Dim Table1 As Table = e.Form.Controls("Table1").Table
Dim grid = Table1.Grid
grid.BorderStyle = C1.Win.C1FlexGrid.Util.BaseControls.BorderStyleEnum.None
Dim tab1 = e.Form.Controls("TabControl1").Basecontrol
tab1.BorderStyle = System.Windows.Forms.BorderStyle.None
Dim tab2 = e.Form.Controls("TabControl2").Basecontrol
tab2.BorderStyle = System.Windows.Forms.BorderStyle.None
-- 发布时间：2016/11/15 9:57:00
--
参考代码
For Each c As object In e.Form.Controls
For Each p As object In c.basecontrol.Gettype.getproperties
If p.name = "BorderStyle" Then
c.basecontrol.BorderStyle = System.Windows.Forms.BorderStyle.None
msgbox(c.name)
Exit For
End If
Next
Next
-- 发布时间：2016/11/15 10:33:00
--
谢谢！两位，特朗普通知去应聘！