|
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)
|
