2010年3月27日土曜日

フォームを自動作成する

懇談室の話題についてサンプルを作ってみました。

設計情報が書かれた XML ファイルを読み込んでフォームを作ることができました。

以下、確認したバージョンは 8.0.1 ですが 6.0.x でも動作すると思います(...たぶん)

まずはエージェントのサンプルです。
Sub Initialize
    Dim ss As New NotesSession
    Dim stream As NotesStream
    Dim db As NotesDatabase
    Dim importer As NotesDXLImporter
    
    Set stream = ss.CreateStream
    If Not stream.Open("c:\temp\template.xml") Then Exit Sub
    
    Set db = ss.CurrentDatabase
    Set importer = ss.CreateDXLImporter(stream, db)
    
    importer.DesignImportOption = DXLIMPORTOPTION_REPLACE_ELSE_CREATE
    Call importer.Process
End Sub

サンプルとして用意した XML ファイルは次のとおりです。
<?xml version="1.0" ?>
<database xmlns="http://www.lotus.com/dxl">
<form name="Memo1">
<body>
<richtext>
<par def="1"><field kind="editable" name="Subject" type="text"></field></par>
<par def="1"><field kind="editable" name="Body" type="richtext"></field></par>
</richtext>
</body>
</form>
</database>

0 件のコメント:

コメントを投稿