以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75696)

--  作者:hbhb
--  发布时间:2015/10/13 10:10:00
--  请教
大师:请问分区面板的分割线能否单独用代码设置颜色?
--  作者:大红袍
--  发布时间:2015/10/13 10:16:00
--  
设置背景颜色,就是边框的颜色。
--  作者:hbhb
--  发布时间:2015/10/13 12:44:00
--  
谢谢!
这个意思,当遍列窗口中的控件统一设置背景颜色时,分区面板的分割线就看不到了,有无办法单独设置颜色?能够区分不同分区?

--  作者:大红袍
--  发布时间: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
--  发布时间: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
请问为何分区面板分割线的原来红色不能显示出来?

--  作者:大红袍
--  发布时间:2015/10/13 15:41:00
--  
        t.backColor = Color.Red
--  作者:hbhb
--  发布时间:2015/10/13 15:51:00
--  
无效呀
--  作者:大红袍
--  发布时间: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