.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: SetRGB method
This form action uses the "R," "G," and "B" fields on a form as parameters to SetRGB, and writes the resulting property values to the "NotesColor," "Red," "Green," "Blue," "Hue," "Saturation," and "Luminance" fields.

Sub Click(Source As Button)
 Dim session As New NotesSession
 Dim ws As New NotesUIWorkspace
 Dim doc As NotesDocument
 Dim color As NotesColorObject
 Set doc = ws.CurrentDocument.Document
 Set color = session.CreateColorObject
 notesColor = color.SetRGB(doc.R(0), doc.G(0), doc.B(0))
 Call doc.ReplaceItemValue("NotesColor", notesColor)
 Call doc.ReplaceItemValue("Red", color.Red)
 Call doc.ReplaceItemValue("Green", color.Green)
 Call doc.ReplaceItemValue("Blue", color.Blue)
 Call doc.ReplaceItemValue("Hue", color.Hue)
 Call doc.ReplaceItemValue("Saturation", color.Saturation)
 Call doc.ReplaceItemValue("Luminance", color.Luminance)
End Sub

See Also