Как инвертировать цвета элемента управления - Visual Basic .NET

Формулировка задачи:

Для привлечения внимания меняем цвет шрифта метки на цвет фона и наоборот

                    Листинг программы
                
 
                        
                          
                    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        fnInvertColor(Label1)
    End Sub
 
    Private Function fnInvertColor(ByVal obj As Control) As Boolean
        Dim clr As Color = obj.ForeColor
        obj.ForeColor = obj.BackColor
        obj.BackColor = clr
        Return True
    End Function

А как поменять цвет шрифта на инверсный исходному (одновременно аналогично и цвет фона на инверсный)? То есть 1-проход - цветной негатив метки, 2-й проход цветной позитив метки.

Решение задачи: «Как инвертировать цвета элемента управления»

textual
                            Листинг программы 
                        
obj.ForeColor = Color.FromArgb(obj.ForeColor.ToArgb Xor &HFFFFFF)

Оцени полезность:

15 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы