Foxtable(狐表) → 用户栏目 → 专家坐堂 → 按钮样式批量设置


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

主题：按钮样式批量设置
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2473 积分：22835 威望：0 精华：0 注册：2011/3/29 17:14:00 		按钮样式批量设置  发帖心情 Post By：2019/9/29 19:27:00 [只看该作者]

With e.Form.Controls("Button1")
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.DeepSkyBlue    '设置按钮的背景颜色
    .BorderSize = 0
.MouseOverBackColor = Color.Cyan
End With

想要 窗口内所有的  Button  批量设置样式


Dim dt As Table = Tables("工作计划")
'Tables(e.form.tableName).ListMode = True  '突出选定行
'Tables(e.form.tableName).ExtendLastCol = True    '当前表自动调整列宽
dt.ListMode = True  '突出选定行
dt.DataTable.SysStyles("CurrentRow").BackColor = Color.DeepSkyBlue
dt.DataTable.SysStyles("EmptyArea").BackColor = Color.White  '当前表空白区背景色
dt.ExtendLastCol = True    '当前表自动调整列宽
'Tables("订单").Cols("数量").Width = 150  '当前表指定列的宽度
dt.DefaultRowHeight = 40   '当前表自动固定行高

想要 窗口内所有的  Table  批量设置样式
[此贴子已经被作者于2019/9/29 19:29:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/29 20:25:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/1849.htm

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


加好友 发短信
等级：九尾狐 帖子：2473 积分：22835 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2019/9/29 21:40:00 [只看该作者]

Dim b As WinForm.Control
b = e.Form.Controls("TextBox1") 还是到了具体的编号  我想要所有的这个控件都一样
b.BackColor = Color.Red

和下面这个没有区别啊
With e.Form.Controls("Button1")
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.DeepSkyBlue    '设置按钮的背景颜色
    .BorderSize = 0
.MouseOverBackColor = Color.Cyan
End With


不会用For Each
Dim v As Button
For Each t As Table In Button
    t.FlatStyle = FlatStyle.flat
    t .BackColor = Color.DeepSkyBlue    '设置按钮的背景颜色
    t .BorderSize = 0
    t.MouseOverBackColor = Color.Cyan
Next


[此贴子已经被作者于2019/9/29 22:07:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/29 22:18:00 [只看该作者]

看帮助看完整，不要断章取义

For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.Button Then '判断控件是否是文本框
        Dim t As WinForm.Button = c '使用特定类型的变量引用控件
        t.FlatStyle = FlatStyle.flat
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2473 积分：22835 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2019/9/29 22:33:00 [只看该作者]

For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.Table Then '判断控件是否是文本框
        Dim dt As WinForm.Table = c '使用特定类型的变量引用控件
        dt.ListMode = True  '突出选定行
        dt.DataTable.SysStyles("CurrentRow").BackColor = Color.DeepSkyBlue
        dt.DataTable.SysStyles("EmptyArea").BackColor = Color.White  '当前表空白区背景色        
        dt.ExtendLastCol = True    '当前表自动调整列宽      
        dt.DefaultRowHeight = 40   '当前表自动固定行高
    End If
Next

窗体所有表设置这个怎么改呢
[此贴子已经被作者于2019/9/29 22:33:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/29 22:57:00 [只看该作者]


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


加好友 发短信
等级：九尾狐 帖子：2473 积分：22835 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2019/9/29 23:00:00 [只看该作者]

Dim dt As Table = Tables("工作计划")
dt.ListMode = True  '突出选定行
dt.DataTable.SysStyles("CurrentRow").BackColor = Color.DeepSkyBlue
dt.DataTable.SysStyles("EmptyArea").BackColor = Color.White  '当前表空白区背景色
'dt.DataTable.SysStyles("Normal").BackColor = Color.red
dt.ExtendLastCol = True    '当前表自动调整列宽
dt.DefaultRowHeight = 40   '当前表自动固定行高

单表这样是可以达到效果的，就是不能设置网格线，
现表多了想批量设置

老师麻烦您教下我怎么写
[此贴子已经被作者于2019/9/29 23:07:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/30 8:33:00 [只看该作者]

dt.Grid.Styles("Normal").Border.Color = Color.red

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


加好友 发短信
等级：九尾狐 帖子：2473 积分：22835 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2019/9/30 10:22:00 [只看该作者]

还需要老师指导
---------------------------
错误
---------------------------
编译错误:“DataTable”不是“WinForm.Table”的成员。



错误代码：dt.DataTable.SysStyles("CurrentRow").BackColor = Color.DeepSkyBlue
---------------------------
确定   
---------------------------


For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.Table Then '判断控件是否是文本框
        Dim dt As WinForm.Table = c '使用特定类型的变量引用控件
        dt.ListMode = True  '突出选定行
dt.Grid.Styles("Normal").Border.Color = Color.red   '当前表格边线色
        dt.DataTable.SysStyles("CurrentRow").BackColor = Color.DeepSkyBlue
        dt.DataTable.SysStyles("EmptyArea").BackColor = Color.White  '当前表空白区背景色
        'dt.DataTable.SysStyles("Normal").BackColor = Color.red
        dt.ExtendLastCol = True    '当前表自动调整列宽
        'Tables("订单").Cols("数量").Width = 150  '当前表指定列的宽度
        dt.DefaultRowHeight = 40   '当前表自动固定行高
    End If
Next
[此贴子已经被作者于2019/9/30 10:28:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/30 10:28:00 [只看该作者]

仔细看看：http://www.foxtable.com/webhelp/topics/1788.htm

通过控件的Table属性获得对应的Table和DataTable

Table控件本身有一个Table属性，用于返回其绑定的Table，例如：

Dim wbl As WinForm.Table = e.Form.Controls("Table1")
Dim tbl As Table = wbl.Table
tbl.DataTable.Save()
 回到顶部
总数 16 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.04492 秒, 4 次数据查询