Page History
この例では、ActiveXの機能により、LANSAフォームのプロパティ、イベント、メソッドを他のアプリケーションに対して公開する、基本的な手順を説明します。
[ 
|../../index.htm#lansa/l4wdev07_0230.htm]
現在地:
...
この例では、ActiveXの機能により、LANSAフォームのプロパティ、イベント、メソッドを他のアプリケーションに対して公開する、基本的な手順を説明します。
この例に使われるソース・コード
名前 | タイプ | 説明 |
|---|---|---|
AXFORMA | Visual LANSAコンポーネント | Visual LANSAソース |
Project1 | Visual Basicプロジェクト | プロジェクト定義 |
Form1 | Visual Basicフォーム | Visual Basicのコード |
Session.cfg | 設定ファイル | セッションの設定(Session.cfg) |
...
このソースコードは、「フォームの表示」を参照してください。
ステップ
...
1.Visual
...
LANSAコンポーネントの追加
ここでは、社員に関する詳細情報の表示に使う、ActiveX LANSAフォームを作成します。 !worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32! ActiveXコンポーネントを作成する手順を以下に示します。 1. LANSAエディターを起動し、AXFORMAという新しいコンポーネントを作成して、「Form」と入力します。 2. 「ケース1 Visual LANSA ソース」に載っているソース・コードをフォームにコピーしてください。 3. リボンで\[ActiveX属性の設定\LANSAフォームを作成します。
ActiveXコンポーネントを作成する手順を以下に示します。
- LANSAエディターを起動し、AXFORMAという新しいコンポーネントを作成して、「Form」と入力します。
- 「ケース1 Visual LANSA ソース」に載っているソース・コードをフォームにコピーしてください。
- リボンで[ActiveX属性の設定]コマンドを選択します(先にコピーしたソース・コードには属性の定義がありますが、改めて同じ属性を設定しても問題ありません)。
...
これでVisual LANSAコンポーネントがActiveXコントロールとして使えるようになりました。上記のコマンドの役割は、ActiveXの既存の属性設定ステートメント4つを最初に削除してみるとわかるでしょう(メニュー・オプションを選択する前のソースからのAttribute
...
- Class(#PRIM_ATTR.AX_))。
...
- フォームをコンパイルしてください。
ステップ 2.Visual
...
Basicフォームの追加
ここではLANSA ActiveXフォームを使うVisual Basicフォームを作成します。 !worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32! フォームを作成する手順を以下に示します。 1. Visual Basicをいったん終了してください。 2. 「メモ帳」を起動し、「[<span style="color: #0000ee"><span style="text-decoration: underline; ">準備作業</span></span>|l4wdev07_0225.htm#L4wDev07_0225]Basicフォームを作成します。
フォームを作成する手順を以下に示します。
- Visual Basicをいったん終了してください。
- 「メモ帳」を起動し、「準備作業」で作成したフォーム(Form<n>.frm)を開きます。
...
- ソース・コードを「ケース 1 – Visual Basic – オブジェクト」に載っているもので置き換え、保存してください。
- Visual Basicを起動し、「準備作業」で作成したプロジェクト(Project<n>.vbp)を開きます。
...
- フォーム(Form<n>.frm)を開きます。
...
Wiki Markup ツールボックスが表示されない場合は、\[表示\]、\[ツールボックス\]の順にクリックします。Wiki Markup フォームのユーザー・インターフェース設計を表示するには、\[表示\]をクリックしてから、メニューまたは\[プロジェクト\]ペインで\[オブジェクト\]をクリックします。
...
- 「ケース 1 – Visual Basic – コード」に載っているソース・コードをフォームにコピーし、保存してください。
- Visual Basicのツールボックスを右クリックし、ポップ・アップ・メニューからコンポーネントを選択します。
- さらに、サブ・メニューを下にスクロールし、LANSA.AXFORMAをオンにしてください。これでLANSAアイコンがツールボックスに追加されました。
- AXFORMAアイコンをクリックし、マウス・ボタンを押したままドラッグして、フォーム上で放してください。これでLANSA ActiveXフォームがVisual Basicフォームに追加されました。
フォームのプロパティを表示し、名前を「AXFORMA1」から「AXFORMA」に変更してください。
Note 注：
ツールボックスが表示されない場合は、[表示]、[ツールボックス]の順にクリックします。
フォームのユーザー・インターフェース設計を表示するには、[表示]をクリックしてから、メニューまたは[プロジェクト]ペインで[オブジェクト]をクリックします。
必要に応じ、Visual BasicのLOADルーチン(Private Sub Form_Load)にあるログインの手順を、環境に合わせて変更します。
例：Call ConnectToLansa("user1", "mypassword", "c:\ActiveXTests\session.cfg")
...
Visual Basicプロジェクトを保存し、[ファイル
...
]メニューの
...
[Project<n>.exeの作成
...
]コマンドでコンパイルします。
...
確認のため、サンプル・データを表示してみましょう。プログラムを起動し、社員番号を入力した後、[表示
...
]をクリックしてください。
...