Foxtable(狐表)用户栏目专家坐堂 → 求助 选定动态控件的当前行,控件颜色加深


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

主题:求助 选定动态控件的当前行,控件颜色加深

帅哥哟,离线,有人找我吗?
jackyfashion
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:5184 威望:0 精华:0 注册:2013/10/7 22:27:00
求助 选定动态控件的当前行,控件颜色加深  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:5184 威望:0 精华:0 注册:2013/10/7 22:27:00
  发帖心情 Post By:2017/6/4 23:23:00 [只看该作者]

谢谢老师!!!

谢谢!!!


 回到顶部