Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]记录窗口的问题


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

主题：[求助]记录窗口的问题
帅哥哟，离线，有人找我吗？
5159518
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		[求助]记录窗口的问题  发帖心情 Post By：2018/3/2 10:03:00 [显示全部帖子]

请问老师，我要将“记录窗口”背景颜色设为透明，代码应该怎么写呢？

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


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：2018/3/2 12:26:00 [显示全部帖子]

以下是引用有点甜在2018/3/2 10:19:00的发言：

Dim g = e.Form.Controls("RecordGrid1").basecontrol
g.BackColor = Color.Transparent
g. Styles.EmptyArea.BackColor = Color.Transparent



谢谢老师，完美解决了我的问题，我想再问一下，我如何让记录窗口禁止编辑呢？我只要可以显示就可以了
 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：2018/3/2 13:03:00 [显示全部帖子]

ok，谢谢老师图片点击可在新窗口打开查看

还有一个问题，我将标题栏背景色设为透明了，但是选定的那一列背景色还是不透明，选定区域的标题栏透明的代码应该怎么写呢？
 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：2018/3/2 13:15:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180302131434.png
图片点击可在新窗口打开查看

就是图片中的蓝色部分
 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：2018/3/2 14:33:00 [显示全部帖子]

以下是引用有点甜在2018/3/2 13:08:00的发言：
哪里需要透明？截图说明。

你好老师，是不是这个问题很难啊？
 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：2018/3/3 10:47:00 [显示全部帖子]

以下是引用有点甜在2018/3/2 15:20:00的发言：

比较麻烦

 

Dim g = e.Form.Controls("RecordGrid1").basecontrol
g.BackColor = Color.Transparent
g. Styles.EmptyArea.BackColor = Color.Transparent
g.cols(0).style.backcolor = Color.Transparent
g.VisualStyle = 0
g.cols(0).visible = False
g.cols.count = 3
g.cols(2).move(1)
For Each r As object In g.rows
    r(1) = r(0)
Next




图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180303104457.png
图片点击可在新窗口打开查看


老师，怎么编程这样样子了？还有你代码中的红色部分是什么意思？能付一下注释吗？
 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：2018/3/3 10:49:00 [显示全部帖子]

Dim g1 = e.Form.Controls("RecordGrid1").basecontrol
g1.Styles.Fixed.BackColor = Color.Transparent '记录窗口标题栏背景颜色设置
g1.BackColor = Color.Transparent '记录窗口口背景颜色设置
g1.Styles.EmptyArea.BackColor = Color.Transparent '记录窗口空白区域口背景颜色设置
g1.Styles.Highlight.BackColor = Color.Transparent '记录窗口选定区域背景颜色
g1.Styles.SelectedRowHeader.BackColor = Color.Transparent '记录窗口选定区域背景颜色

'Dim g = e.Form.Controls("RecordGrid1").basecontrol
'g.BackColor = Color.Transparent
'g. Styles.EmptyArea.BackColor = Color.Transparent
g1.cols(0).style.backcolor = Color.Transparent
g1.VisualStyle = 0
g1.cols(0).visible = False
g1.cols.count = 3
g1.cols(2).move(1)
For Each r As object In g1.rows
    r(1) = r(0)
Next



这是我修改后的代码。另外还有一个问题，因为有多个记录窗口，我想用For Each ........Next语句，怎么都无法实现，不知道正确的应该怎么写，一并请教下

[此贴子已经被作者于2018/3/3 10:51:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：2018/3/3 11:30:00 [显示全部帖子]

以下是引用有点蓝在2018/3/3 11:18:00的发言：
dim names() as string = {"RecordGrid1","RecordGrid2"}

for each n as string in names
Dim g1 = e.Form.Controls(n).basecontrol
g1.Styles.Fixed.BackColor = Color.Transparent '记录窗口标题栏背景颜色设置
……其它代码
next


那么那个标题栏透明应该怎么设置呢？按照上面的代码，第一列的标题就没有了，空白的了
 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：2018/3/3 14:24:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180303104457.png
图片点击可在新窗口打开查看

代码执行结果就是这样滴
 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：2018/3/3 14:24:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180303142247.png
图片点击可在新窗口打开查看
 回到顶部
总数 14 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.06250 秒, 5 次数据查询