以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助 选定动态控件的当前行,控件颜色加深  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101635)
--  作者：jackyfashion
--  发布时间：2017/6/4 16:15:00
--  求助 选定动态控件的当前行,控件颜色加深

老师:

您好!

下面的代码是选中的控件都会变颜色,选中几个就几个都变颜色,


  If Typeof e.Sender Is WinForm.TextBox Then
        For Each c As object In e.Form.Children
            If Typeof c Is WinForm.TextBox Then c.BackColor = SystemColors.Control
        Next
        If e.Sender.BackColor = Color.FromARGB(72, 71, 73) Then
            e.Sender.BackColor = Color.FromARGB(42, 41, 43)
        Else
            e.Sender.BackColor = Color.FromARGB(72, 71, 73)
        End If       
    End If

            如果我选中第一个,变了颜色, 选了第二个,第二个变颜色的同时第一个灰复原来的颜色,怎样写代码?

请老师指教!

谢谢!!!

[此贴子已经被作者于2017/6/4 21:26:31编辑过]
--  作者：有点色
--  发布时间：2017/6/4 22:17:00
--  
If Typeof e.Sender Is WinForm.TextBox Then
    For Each c As object In e.Form.Children
        If Typeof c Is WinForm.TextBox Then
           
            If e.Sender.name = c.name  Then
                c.BackColor = Color.FromARGB(42, 41, 43)
            Else
                c.BackColor = SystemColors.Control
            End If
        End If
    Next
End If
--  作者：jackyfashion
--  发布时间：2017/6/4 23:23:00
--  

谢谢老师!!!

谢谢!!!