Page History

...

このソースコードは、「フォームの表示」を参照してください。

ステップ 1.Visual LANSAコンポーネントの追加

...

1. Visual Basicをいったん終了してください。
2. 「メモ帳」を起動し、「準備作業」で作成したフォーム(Form<n>.frm)を開きます。
3. ソース・コードを「ケース 1 – Visual Basic – オブジェクト」に載っているもので置き換え、保存してください。
4. Visual Basicを起動し、「準備作業」で作成したプロジェクト(Project<n>.vbp)を開きます。
5. フォーム(Form<n>.frm)を開きます。
6. 「ケース 1 – Visual Basic – コード」に載っているソース・コードをフォームにコピーし、保存してください。
7. Visual Basicのツールボックスを右クリックし、ポップ・アップ・メニューからコンポーネントを選択します。
8. さらに、サブ・メニューを下にスクロールし、LANSA.AXFORMAをオンにしてください。これでLANSAアイコンがツールボックスに追加されました。
   
9. AXFORMAアイコンをクリックし、マウス・ボタンを押したままドラッグして、フォーム上で放してください。これでLANSA ActiveXフォームがVisual Basicフォームに追加されました。
   

10. フォームのプロパティを表示し、名前を「AXFORMA1」から「AXFORMA」に変更してください。

    
    

    注：

    Note
    title 注意
    ツールボックスが表示されない場合は、[表示]、[ツールボックス]の順にクリックします。 フォームのユーザー・インターフェース設計を表示するには、[表示]をクリックしてから、メニューまたは[プロジェクト]ペインで[オブジェクト]をクリックします。

11. 必要に応じ、Visual BasicのLOADルーチン(Private Sub Form_Load)にあるログインの手順を、環境に合わせて変更します。
    例：

          Call ConnectToLansa("user1", "mypassword", "c:\ActiveXTests\session.cfg")



12. Visual Basicプロジェクトを保存し、[ファイル]メニューの[Project<n>.exeの作成]コマンドでコンパイルします。

    確認のため、サンプル・データを表示してみましょう。プログラムを起動し、社員番号を入力した後、[表示]をクリックしてください。