LOTUSSCRIPT /COM/OLE のクラス
例:OLE カスタムコントロールを使用する
1.
次の例は、新規文書の [Body] フィールドに新しいカレンダーコントロールを作成するか、既存文書の既存コントロールにアクセスして、週の初日を日曜日から月曜日に設定します。
Sub Postopen(Source As Notesuidocument)
Source.EditMode = True
Call Source.GoToField("Body")
If source.IsNewDoc Then
Set Cal = Source.CreateObject _
("Calendar", _
"MSCAL.Calendar.7")
Else
Set Cal = Source.GetObject _
("Calendar")
End If
Cal.FirstDay = 2
End Sub
2. 次の例は、UI からフォームに挿入されたカレンダーコントロール構成要素に対する Click イベントを処理します。このスクリプトは、カレンダーコントロールでユーザーがクリックした日付を表示します。
Sub Click(Source As Calendar)
Messagebox "You clicked on the following date:"_
& Source.Month &"/" & Source.Day &"/"_
& Source.Year
End Sub
関連項目
OLE カスタムコントロールを使用する
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集