Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口工具条 代码优化指导！谢谢！


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

主题：窗口工具条 代码优化指导！谢谢！
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/15 11:58:00 [显示全部帖子]

比如

cmd.CommandText = "SELECT 新增,修改  FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "'  "
Dim dt As DataTable =cmd.ExecuteReader()
If dt.DataRows.Count > 0 Then
    Dim dr As DataRow = dt.DataRows(0)
    e.Form.Controls("GFxz").Enabled= dr("新增")
    e.Form.Controls("GFxg").Enabled= dr("修改")
    Return
End If
e.Form.Controls("GFxz").Enabled= False
e.Form.Controls("GFxg").Enabled= False
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/15 12:00:00 [显示全部帖子]

如果把控件名称设置的有规律一点，和列名对应起来，比如GFxz改为GF_新增，GFxg改为GF_修改

还可以

If dt.DataRows.Count > 0 Then
    Dim dr As DataRow = dt.DataRows(0)
    For Each dc As DataCol In dt.DataCols
        e.Form.Controls("GF_" & dc.Name).Enabled= dr(dc.Name)
    Next
    Return
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/15 13:48:00 [显示全部帖子]

没有办法使用这种用法

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


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/15 13:55:00 [显示全部帖子]


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


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/15 14:20:00 [显示全部帖子]

页签设置参考：

Dim c1TabPage As C1.Win.C1Command.C1DockingTabPage = c1tab.TabPages("主页")
c1TabPage.TabForeColorSelected= Color.Red '选定项的标题颜色
c1TabPage.TabBackColor = Color.Wheat '标题背景色
c1TabPage.TabBackColorSelected = Color.skyblue '选定项的背景色
c1TabPage.BackColor = Color.skyblue'页面背景色

c1tab.CanAutoHide = True
c1tab.CanCloseTabs = True '开启关闭按钮
c1tab.CanMoveTabs = True '开启移动页面功能
c1tab.CloseBox = C1.Win.C1Command.CloseBoxPositionEnum.AllPages '关闭按钮在所有页面显示
c1tab.SelectedTabBold = True '选中页面标题文字加粗
c1tab.ShowTabList = True '显示页面下拉列表
c1tab.TabSizeMode = C1.Win.C1Command.TabSizeModeEnum.Fit
c1tab.BorderStyle = System.Windows.Forms.BorderStyle.None '去掉裱框
c1tab.TabStyle= C1.Win.C1Command.TabStyleEnum.Rounded '标题栏圆角效果
c1tab.VisualStyle = C1.Win.C1Command.VisualStyle.Custom '使用自定义模式
'c1tab.VisualStyleBase = C1.Win.C1Command.VisualStyle.WindowsXP
c1tab.TabAreaBackColor = Color.LightSteelBlue '标题区域的背景色
c1tab.BackColor = Color.skyblue '控件背景色
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/15 14:52:00 [显示全部帖子]

窗口添加一个页面集合控件，添加一个“主页”页签即可测试

Dim c1tab As C1.Win.C1Command.C1DockingTab = e.form.controls("tabcontrol").BaseControl
Dim c1TabPage As C1.Win.C1Command.C1DockingTabPage = c1tab.TabPages("主页")
……
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/16 9:27:00 [显示全部帖子]

c1底层的用法请自行研究，没有这个时间

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


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/16 20:35:00 [显示全部帖子]

现在没时间，有空再说。

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


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/16 22:33:00 [显示全部帖子]

默认的标题栏是受系统主题影响的，无法自定义。

别人这个应该是去掉边框，自己使用控件替代的，俗称的无边框窗口。帮助搜“无边框”应该可以看到不少这种用法
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 5 次数据查询