例: NumberFormat 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.NumberFormat = VC_FMT_GENERAL Then
    vc.NumberFormat = VC_FMT_FIXED
    f = "Fixed"
  Elseif vc.NumberFormat = VC_FMT_FIXED Then
    vc.NumberFormat = VC_FMT_CURRENCY
    f = "Currency"
  Elseif vc.NumberFormat = VC_FMT_CURRENCY Then
    vc.NumberFormat = VC_FMT_SCIENTIFIC
    f = "Scientific"
  Else
   vc.NumberFormat = VC_FMT_GENERAL
    f = "General"
  End If
 Messagebox f,, "New number format"
End Sub