例: NumberAttrib property (NotesViewColumn - LotusScript®)

次のエージェントは、列の数値属性を表示します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vc As NotesViewColumn
  Dim f As String
  Set db = session.CurrentDatabase
  Set view = db.GetView("View A")
  Set vc = view.Columns(1)
  If (vc.NumberAttrib And VC_ATTR_PARENS) = _
  VC_ATTR_PARENS Then
    msg1$ = "Parentheses on negative numbers"
  Else
    msg1$ = "No parentheses on negative numbers"
  End If
  If (vc.NumberAttrib And VC_ATTR_PUNCTUATED) = _
  VC_ATTR_PUNCTUATED Then
    msg2$ = "Punctuated at thousands"
  Else
    msg2$ = "Not punctuated at thousands"
  End If
  If (vc.NumberAttrib And VC_ATTR_PERCENT) = _
  VC_ATTR_PERCENT Then
    msg3$ = "Percentage"
  Else
    msg3$ = "Not a percentage"
  End If
  Messagebox msg1$ & Chr(13) & msg2$ & Chr(13) & msg3$,, _
  "Number attributes"
End Sub

次のエージェントは、列に負数のカッコと千の位のカンマを設定し、パーセンテージとして表示しないように設定します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vc As NotesViewColumn
  Dim f As String
  Set db = session.CurrentDatabase
  Set view = db.GetView("View A")
  Set vc = view.Columns(1)
  vc.NumberAttrib = VC_ATTR_PARENS + VC_ATTR_PUNCTUATED
End Sub

次のエージェントは、すでに設定されている他の属性を変更せずに、列をパーセンテージとして表示するように設定します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vc As NotesViewColumn
  Dim f As String
  Set db = session.CurrentDatabase
  Set view = db.GetView("View A")
  Set vc = view.Columns(1)
  vc.NumberAttrib = vc.NumberAttrib Or VC_ATTR_PERCENT
End Sub

他の属性に影響を与えずに数値属性を 1 つ設定するには、次の形式の論理構成を使用します。
```
vc. NumberAttrib = _
vc. NumberAttrib Or VC_ATTR_PARENS
```
他の属性に影響を与えずに数値属性を 2 つ設定するには、次の形式の論理構成を使用します。
```
vc.NumberAttrib = _
vc.NumberAttrib Or VC_ATTR_PARENS Or VC_ATTR_PUNCTUATED
```
他の属性に影響を与えずに 1 つの数値属性の設定を解除するには、次の形式の論理構成を使用します。
```
vc.NumberAttrib = _
vc.NumberAttrib And (Not VC_ATTR_PARENS)
```
他の属性に影響を与えずに 2 つの数値属性の設定を解除するには、次の形式の論理構成を使用します。
```
vc.NumberAttrib = _
vc.NumberAttrib And (Not (VC_ATTR_PARENS Or VC_ATTR_PUNCTUATED))
```