Смена системных цветов

[NikRom]

Хочу анимировать цвет рабочего стола
Api-шка SetSysColors("user32.dll") ни чего не делает, хотя и ошибки нет.
Перепробовал все варианты
Есть другой способ?

[Lumen]

Как ты пробуешь?
Код в студию

[Viper]

Во-первых, таки да, хотим лицезреть неработающий код, во-вторых, в NET завместо GetSysColor надо юзать метод структуры Color FromKnownColor.
Или же пользоваться свойствами класса SystemColors

[NikRom]

Код: Выделить всё

Declare Sub SetSysColors Lib "user32" _
        (ByVal cElements As Integer, ByVal lpaElements As _
        Integer, ByVal lpaRgbValues As Long)
    Declare Function GetSysColor& Lib "user32" (ByVal nIndex As Long)

    Sub Main()
        Dim DefClr As Long
        DefClr = GetSysColor(1)

        Dim Min As Long = RGB(0, 0, 0)
        Dim Max As Long = RGB(255, 255, 255)

        Dim Color As Long
        For Color = Min To Max
            SetSysColors(1, 1, Color)
            Threading.Thread.Sleep(50)
        Next

        SetSysColors(5, 1, DefClr)
    End Sub

У меня WinXP, на рабочем столе небольшой GIF рисунок по центру в котором есть прозрачный и инвертированные цвета

[Viper]

NikRom, зацени тэги code или syntax="vb", а также кнопку Правка. Это на будущее. По поводу обшибки. Замени Long на Integer и будет тебе щастье. Ибо Long от VB = Integer в VB.NET.

З.Ы. А вроде есть в Net метод изменения системных цветов?

[Sebas]

З.Ы. А вроде есть в Net метод изменения системных цветов?

Нет, только получение.

[Viper]

З.Ы. А вроде есть в Net метод изменения системных цветов?

Нет, только получение.

а жаль....