|
SetLuminanceOfColor
(XAPI2000)
Deklaration
VB 6.0
Function SetLuminanceOfColor (ByVal RGBColor As Long,
ByVal nLuminance As Long) As Long
Deklaration VB.NET
Function SetLuminanceOfColor (ByVal RGBColor As Integer,
ByVal nLuminance As Integer) As Integer
Beskrivning
Sätter luminans (ljusstyrka) för en RGB-färg.
Du anger färgen som ska modifieras via inparametern RGBColor
och vad luminansen (ljusstyrkan) ska vara för färgen via
inparametern nLuminance.
Inparametern nLuminance
måste ha ett värde mellan 0 och 1000, där 0 innebär lägsta
ljusstyrka (0%) och 1000 innebär högsta ljusstyrka (100%). Varje
heltalsförändring av nLuminance (dvs +/- 1) innebär 0,1%
förändring av ljusstyrkan.
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
ChangeLuminanceOfColor. |
Exempel (VB 6.0)
Dim rgbMyColor As Long
' Skapa en färg (röd)
rgbMyColor = RGB(192, 0, 0)
' Sätt önskad ljusstyrka för färg
rgbMyColor = SetLuminanceOfColor(rgbMyColor, 100)
|
