Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教


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

主题：请教
帅哥哟，离线，有人找我吗？
hbhb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		请教  发帖心情 Post By：2015/10/13 10:10:00 [只看该作者]

大师：请问分区面板的分割线能否单独用代码设置颜色？

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/13 10:16:00 [只看该作者]

设置背景颜色，就是边框的颜色。

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


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2015/10/13 12:44:00 [只看该作者]

谢谢！
这个意思，当遍列窗口中的控件统一设置背景颜色时，分区面板的分割线就看不到了，有无办法单独设置颜色？能够区分不同分区？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/13 14:24:00 [只看该作者]

分区1、分区2、控件，必须要分别设置。

 

判断，如果控件是某类型，就分别设置

 

For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.TextBox Then '判断控件是否是文本框
        Dim t As WinForm.TextBox = c '使用特定类型的变量引用控件
        t.Value = Nothing
    End If
Next

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


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2015/10/13 15:36:00 [只看该作者]

For Each c As Winform.Control In Forms("frmGg1").Controls  
        Forms("frmGg1").BackColor = Color.LightBLue
        c.Forecolor = Color.blue
        If Typeof c Is WinForm.SplitContainer  Then
            Dim t As WinForm.SplitContainer = c
            t.Panel1.BackColor = Color.LightBLue
            t.Panel2.BackColor = Color.LightBLue
         
        End If
    Next
请问为何分区面板分割线的原来红色不能显示出来？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/13 15:41:00 [只看该作者]

        t.backColor = Color.Red

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


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2015/10/13 15:51:00 [只看该作者]

无效呀

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/13 15:54:00 [只看该作者]

汗，不可能无效啊。

 

For Each c As Winform.Control In e.form.Controls
    e.form.BackColor = Color.LightBLue
    c.Forecolor = Color.blue
    If Typeof c Is WinForm.SplitContainer  Then
        Dim t As WinForm.SplitContainer = c
        t.Panel1.BackColor = Color.LightBLue
        t.Panel2.BackColor = Color.LightBLue
        t.backColor = Color.Red
    End If
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询