LOTUSSCRIPT /COM/OLE のクラス

例:SetRGB メソッド
次のフォームアクションは、フォームの [R]、[G]、[B] のフィールドを SetRGB へのパラメータとして使用し、結果として生じたプロパティ値を [NotesColor]、[Red]、[Green]、[Blue]、[Hue]、[Saturation]、[Luminance] のフィールドに書き込みます。

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

関連項目