このソースコードは、「[<span style="color: #0000ee"><span style="text-decoration: underline; ">フォームの表示</span></span>|l4wdeva_example1.htm]」を参照してください。
 
ステップ 1.Visual LANSAコンポーネントの追加
ここでは、社員に関する詳細情報の表示に使う、ActiveX LANSAフォームを作成します。
!worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32!
ActiveXコンポーネントを作成する手順を以下に示します。
1.      LANSAエディターを起動し、AXFORMAという新しいコンポーネントを作成して、「Form」と入力します。
2.      「ケース1 Visual LANSA ソース」に載っているソース・コードをフォームにコピーしてください。
3.      リボンで\[ActiveX属性の設定\]コマンドを選択します(先にコピーしたソース・コードには属性の定義がありますが、改めて同じ属性を設定しても問題ありません)。
         これでVisual LANSAコンポーネントがActiveXコントロールとして使えるようになりました。上記のコマンドの役割は、ActiveXの既存の属性設定ステートメント4つを最初に削除してみるとわかるでしょう(メニュー・オプションを選択する前のソースからのAttribute Class(#PRIM_ATTR.AX_))。
4.      フォームをコンパイルしてください。
ステップ 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]」で作成したフォーム(Form<n>.frm)を開きます。
3.      ソース・コードを「ケース 1 – Visual Basic – オブジェクト」に載っているもので置き換え、保存してください。
4.      Visual Basicを起動し、「[<span style="color: #0000ee"><span style="text-decoration: underline; ">準備作業</span></span>|l4wdev07_0225.htm#L4wDev07_0225]」で作成したプロジェクト(Project<n>.vbp)を開きます。
5.      フォーム(Form<n>.frm)を開きます。
6.      「ケース 1 – Visual Basic – コード」に載っているソース・コードをフォームにコピーし、保存してください。
7.      Visual Basicのツールボックスを右クリックし、ポップ・アップ・メニューからコンポーネントを選択します。  
8.      さらに、サブ・メニューを下にスクロールし、LANSA.AXFORMAをオンにしてください。これでLANSAアイコンがツールボックスに追加されました。
!worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32!
10.     AXFORMAアイコンをクリックし、マウス・ボタンを押したままドラッグして、フォーム上で放してください。これでLANSA ActiveXフォームがVisual Basicフォームに追加されました。
!worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32!
11.     フォームのプロパティを表示し、名前を「AXFORMA1」から「AXFORMA」に変更してください。
         注：

12.     必要に応じ、Visual BasicのLOADルーチン(Private Sub Form_Load)にあるログインの手順を、環境に合わせて変更します。例：
      Call ConnectToLansa("user1", "mypassword", "c:\ActiveXTests\session.cfg")
 
13.     Visual Basicプロジェクトを保存し、\[ファイル\]メニューの\[Project<n>.exeの作成\]コマンドでコンパイルします。
         確認のため、サンプル・データを表示してみましょう。プログラムを起動し、社員番号を入力した後、\[表示\]をクリックしてください。
[ !worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32! |../../index.htm#lansa/l4wdev07_0230.htm]