- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]记录窗口的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115168)
-- 发布时间：2018/3/2 10:03:00
-- [求助]记录窗口的问题
请问老师，我要将“记录窗口”背景颜色设为透明，代码应该怎么写呢？
-- 发布时间：2018/3/2 10:19:00
--
Dim g = e.Form.Controls("RecordGrid1").basecontrol
g.BackColor = Color.Transparent
g. Styles.EmptyArea.BackColor = Color.Transparent
-- 发布时间：2018/3/2 12:26:00
--
Dim g = e.Form.Controls("RecordGrid1").basecontrol
g.BackColor = Color.Transparent
g. Styles.EmptyArea.BackColor = Color.Transparent
谢谢老师，完美解决了我的问题，我想再问一下，我如何让记录窗口禁止编辑呢？我只要可以显示就可以了
-- 发布时间：2018/3/2 12:44:00
--
g.AllowEditing = false
-- 发布时间：2018/3/2 13:03:00
--
ok，谢谢老师
-- 发布时间：2018/3/2 13:08:00
--
哪里需要透明？截图说明。
-- 发布时间：2018/3/2 13:15:00
--
此主题相关图片如下：qq图片20180302131434.png
-- 发布时间：2018/3/2 14:33: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
-- 发布时间：2018/3/3 10:47: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
老师，怎么编程这样样子了？还有你代码中的红色部分是什么意思？能付一下注释吗？