ChangeLuminanceOfColor                              (XAPI2000)

Deklaration VB 6.0
Function ChangeLuminanceOfColor (ByVal RGBColor As Long, ByVal nLuminance As Long) As Long

Deklaration VB.NET
Function ChangeLuminanceOfColor (ByVal RGBColor As Integer, ByVal nLuminance As Integer) As Integer

Beskrivning
Ändrar luminans (ljusstyrka) för en RGB-färg.
 
Du anger färgen som ska modifieras via inparametern RGBColor och hur mycket luminansen (ljusstyrkan) ska förändras via inparametern nLuminance. Ett positivt tal för nLuminance innebär att färgen blir ljusare och ett negativt tal innebär att färgen blir mörkare.
 
Varje heltalsförändring för nLuminance (dvs +/- 1) innebär 0,1% förändring. Exempelvis så innebär värdet 50 en förändring på 5%. Högsta värdet för nLuminance är 1000 och det lägsta värdet för nLuminance är -1000.

Returvärden
Funktionen returnerar den uppdaterade RGB-färgen. Inträffar det något fel så returnerar funktionen samma färg som speciferades via inparametern RGBColor.

Se även
SetLuminanceOfColor
.
    
  
Exempel (VB 6.0)

Dim rgbMyColor As Long
 
' Skapa en färg (röd)
rgbMyColor = RGB(192, 0, 0)
' Öka ljusstyrkan med 10%
rgbMyColor = ChangeLuminanceOfColor(rgbMyColor, 100)
' Minska ljusstyrkan med 5%
rgbMyColor = ChangeLuminanceOfColor(rgbMyColor, -50)

 
  
SamLogic