サンプル：Dialog System アプリケーション用 ActiveX としての Windows Forms コントロール

CustGrid プロジェクト

CustGrid プロジェクトには、Dialog System の元の CustGrid プロジェクトと次のものが含まれます。

• CustGrid.gs はスクリーンセットであり、現在は元の ActiveX グリッド・コントロールではなく DataGridView コントロールが含まれています。以前と同様に、Dialog System はコールアウトとコールバックを使用してネイティブ・コードの gridctrl.cbl と通信します。
• GridCtrl.cbl は、DataGridView コントロールによって生成されたイベントを処理し、以前に ActiveX コードを起動していた場合と同じ方法で COM コードを起動します。例えば、Delete-A-Row Section は、次のように行削除イベントを処理して COM コードを起動します。

    INVOKE  RowSet  "GetSelect"  USING  theRow  RETURNING  Numeric-Value
  INVOKE  RowSet  "Remove"  USING  Numeric-Value

  ここで、 RowSet は、Windows Forms ユーザ・コントロールの COM インターフェースで定義されます。後述の『ControlInterface.cbl』を参照してください。

GridViewUserControl プロジェクト

GridViewUserControl プロジェクトは、COM 相互運用性に登録されます。COMRegister() メソッドに加えて、ActiveX コンテナがこれをコントロールとして認識するように適切なエントリをレジストリに挿入します。このメソッドについては、後で詳しく説明します。

次のようにクラス・インターフェース、イベント・インターフェース、およびクラス自体を宣言すると、マネージ COBOL グリッド・ユーザ・コントロールが COM に公開されます。

• ControlInterface.cbl 内の MicroFocus.VisualCOBOL.ISampleGridView クラス・インターフェース
• GridViewControl.cbl 内の SampleGridView クラス
• GridViewEvents.cbl 内の IGridViewEvents イベント・インターフェース

プロジェクトには、実装を完了するために他のクラスも含まれています。

• UserDataGridViewRow クラス (行を処理するためのメソッドが含まれている)
• RowSet クラス (グリッドの行を処理するためのメソッドが含まれている)
• CalendarColumn クラス (データ・グリッドで使用するカレンダ・エディタ列を実装する)

ControlInterface.cbl

ControlInterface.cbl では、コントロールのメソッドとプロパティを COM に公開するインターフェースが定義されます。

  interface-id  MicroFocus.VisualCOBOL.ISampleGridView
attribute  Guid("5A0AED5B-7D47-48C9-9F95-DEE8BC2D4807").
method-id  get  property  RowSet.
  ...

GridViewControl.cbl [code]

GridViewControl.cbl には、DataGridView コントロールの動作を定義するクラスが含まれています。その主なタスクは、古い ActiveX コントロールの動作を新しい DataGridView コントロールで再現することです。

GridViewControl.cbl に含まれているコードは次のとおりです。

Class-id SampleGridView

SampleGridView クラスを定義します。このクラスは、Windows Forms UserControl クラスから継承され、ControlInterface.cbl で宣言された ISampleGridView インターフェースを実装します。また、シリアル化動作を制御できるようにする ISerializable インターフェースも実装します。

  Class-id SampleGridView
inherits type System.Windows.Forms.UserControl
implements type System.Runtime.Serialization.ISerializable
type MicroFocus.VisualCOBOL.ISampleGridView
						

attribute Serializable()

クラスのシリアル化を可能にします。この属性は、クラスが ISerializable インターフェースを実装してシリアル化プロセスを制御する場合にも必要です。

  attribute Serializable()

attribute ComVisible(true)

マネージ・クラスを COM に対して可視にします。つまり、クラスを COM に公開します。

 attribute ComVisible(true)

attribute ProgId

COM オブジェクトの ProgID を指定します。これは、COM/ActiveX オブジェクトの識別に使用される人間可読形式のクラス識別子 (CLSID) です。

  attribute ProgId
("MicroFocus.VisualCOBOL.SampleGridView")

attribute ClassInterface

早期バインドと遅延バインドをサポートするクラス・インターフェースを生成します。

  attribute ClassInterface
(type ClassInterfaceType::AutoDual)

attribute ComDefaultInterface

COM に公開するデフォルト・インターフェースとして ISampleGridView インターフェースを指定します。

  attribute ComDefaultInterface
(type of MicroFocus.VisualCOBOL.ISampleGridView)

attribute ComSourceInterfaces

WindowsFormsControlLibrary1.dll ライブラリ (GridViewUserControl プロジェクトによってビルドされる) の COM イベント・ソースとして公開されるインターフェースとして IGridViewEvents を識別します。

  attribute ComSourceInterfaces
(type of GridViewUserControl.IGridViewEvents)

attribute Guid

明示的な GUID を指定します。これにより、ビルドと登録を行うたびに新しい GUID が生成されることが回避されます。そのため、これはデバッグ段階で役立ちます。

  attribute Guid("B33E4887-6BC0-4382-883B-EB0015F55D9B")

COMRegister()

指定されたオブジェクトのレジストリにエントリを追加します。このメソッドは適切なエントリを設定してオブジェクトを ActiveX として登録するため、ActiveX コンテナはこれをコントロールとして認識します。これにより、Dialog System はインポート可能なコントロールの 1 つとして ActiveX をリストできるようになります。

Register for COM Interop プロジェクト・プロパティは、オブジェクトを COM として登録しますが、ActiveX としては登録しません。

COMUnregister()

指定されたオブジェクトのエントリをレジストリから削除します。

New()

SampleGridView のインスタンスを作成します。

GetObjectData()

これは、コントロールのシリアル化の一部として使用されます。ただし、このサンプルには持続するものが何もないため、このメソッドは使用されません。

イベント処理メソッド

• FireOnChanged() - OnChanged イベントを処理します。
• FireRowSelected() - OnRowSelected イベントを処理します。
• FireRowDeleted() - OnRowDeleted イベントを処理します。
• OnRowEnter() - FireRowSelected() メソッドを起動します。

Get property RowSet

ISampleGridView インターフェースを実装し、行のインスタンスを作成します。

Get property OrderGrid

これにより、Windows Forms ユーザ・コントロールは DataGridView ユーザ・コントロールにアクセスできるようになります。

  01 OrdersGridView 
type System.Windows.Forms.DataGridView.
method-id. get property OrderGrid.
procedure division 
returning thegrid as type DataGridView.
set thegrid to self::OrdersGridView
goback.
end method.
						

OrdersGridView_CellEndEdit()

セル編集イベントを処理して、FireOnChanged() を起動します。

	
method-id OrdersGridView_CellEndEdit
final private.
procedure division using by value  
sender as object  
e as type System.Windows.Forms.DataGridViewCellEventArgs.
invoke self::FireOnChanged 
(e::RowIndex, e::ColumnIndex)
						

Delegates

イベントのデリゲートを定義します。

  01 OnRowSelected type RowSelectedEventHandler event public.
01 OnRowDeleted type RowDeletedEventHandler event public.
01 OnChanged type RowChangedEventHandler event public.
	 ...
delegate-id RowSelectedEventHandler.
delegate-id RowDeletedEventHandler.
delegate-id RowChangedEventHandler.

						

GridViewEvents.cbl

次のように、GridViewEvents.cbl はイベントのインターフェースを定義し、各イベントに COM ディスパッチ識別子 (DispId) を割り当てます。

  method-id OnRowSelected attribute DispId(29).
procedure division using by value  
row as binary-long, 
coln as binary-long.
      ...  
method-id OnRowDeleted attribute DispId(18).
method-id OnChanged attribute DispId(6).
			

イベントは、GridViewControl.cbl 内の SampleGridView クラスで定義されたデリゲートに対応します。

このインターフェースはソリューションでは実装されないので注意してください。