Takenoff Labs » HTMLを動的に表示する方法(2)

[Notes/Domino] HTMLを動的に表示する方法(2)

前回予告したとおり、今回は WebBrowser コントロール（いわゆるIEコンポーネント）を使用して、HTMLを動的に表示する手順を書いてみます。

実装方法

1. フォームを作成または開いて、WebBrowserコントロールを挿入したいところにカーソルを合わせ、「作成」メニュー → 「オブジェクト」を実行します。

2. 「オブジェクトの作成」ダイアログが表示されますので、「コントロール」を選択し、「オブジェクトの種類」から「Microsoft Web Browser」を選択して、「OK」をクリックします。

3. （省略可）挿入したオブジェクトをうまくフォーカスして、プロパティを表示すると、以下のようなプロパティが表示されます。

「名前」は、このオブジェクトにアクセスする際の名前です。
「オブジェクトをウィンドウサイズに合わせる」にすると、画面いっぱいに表示されます。
「文書の読み込み時にオブジェクトを実行する」にチェックを入れると、読み込みモードでもオブジェクトが有効になります。

4. （省略可）また、下のペインにはコントロールが持っているプロパティとイベントが表示されます。たとえば、プロパティで「Width」の値を変えると、横幅を変更できます。

5. オブジェクトをフォーカスした状態で、下のペインの Navigatecomplete2 に以下のようなスクリプトを記述します。（ここでは例として現在時刻を表示します。）

Source.Document.body.innerHTML = "<strong>" & Cstr(Now) & "</strong>"

6. 以下のようなスクリプトを記述したボタンを作成します。

Dim ws As New NotesUIWorkspace
Dim objIE As Variant
Set objIE = ws.CurrentDocument.GetObject("Microsoft Web Browser")
Call objIE.Navigate2("about:blank")

以上で終了です。プレビューしてボタンをクリックし、現在時刻が動的に表示されることを確認してください。

※ ローカルにファイルを出力してもよいなら、HTMLファイル出力 → Navigate2 でそのファイルを表示（「file//～」を使用）のほうがシンプルでよいですね。また、上記の方法では、コントロール内で「最新の情報に更新」を実行されてしまうと、画面がクリアされてしまいます。それが嫌な場合も、ファイル出力する方法にしたほうがよいです。