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


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

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


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

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

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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 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



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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/2 12:44:00 [只看该作者]

 

g.AllowEditing = false

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


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

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

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/2 13:08:00 [只看该作者]

哪里需要透明？截图说明。

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


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


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

就是图片中的蓝色部分
 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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的发言：
哪里需要透明？截图说明。

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看


老师，怎么编程这样样子了？还有你代码中的红色部分是什么意思？能付一下注释吗？
 回到顶部
总数 23 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询