以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助 选中控件 加深背面颜色  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101379)
--  作者：jackyfashion
--  发布时间：2017/5/29 18:30:00
--  求助 选中控件 加深背面颜色

老师:

 您好!

下面的代码需要怎样修改,选中的控件,颜色是另外一个色?

我试着好久,都搞不掂,请求指教!谢谢!

Dim s As Integer = Tables("表A").rows.count - 1
e.Form.Controls("hsr").basecontrol.Controls.clear
For  i As Integer = 0 To s
    Dim pan As WinForm.Panel = e.Form.CreateControl("Panel" & i, ControlTypeEnum.Panel)
    e.sender.BackColor = clr3
    pan.BackColor = clr1
    pan.BorderStyle = BorderStyle.None
    pan.Width = 220
    pan.Height = 399
    pan.Left = 230*i+5
    pan.Top = 5
    e.Form.Controls("hsr").AddControl(pan)
Next

[此贴子已经被作者于2017/5/29 18:30:26编辑过]
--  作者：有点蓝
--  发布时间：2017/5/31 9:15:00
--  
Panel 是没有输入焦点的，参考下面用法。如果有子控件应该通过子控件如文本框获取焦点后设置其容器的颜色

窗口全局事件Click，类似


If Typeof e.Sender Is WinForm.Panel Then
    For Each c As object In e.Form.Children
        If Typeof c Is WinForm.Panel Then c.BackColor = SystemColors.Control
    Next
   e.Sender.BackColor = Color.red
End If
--  作者：jackyfashion
--  发布时间：2017/5/31 21:13:00
--  

谢谢老师!!!