例: SetRGB method

次のフォームアクションは、フォームの [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