Component Object Model
HSP
PSH x HSP | 講座 | オブジェクト | COM | MCI | 用語 | ソフト | HTMLタグ | リンク |
■ axobj
axobj p1,"IID",p2,p3 [ActiveXコントロールの配置] | |
p1 | COMオブジェクトが代入される変数名 |
"IID" | COMオブジェクトのクラスID、またはプログラムID |
p2,p3 | オブジェクトのX/Yサイズ |
"IID"で指定されたクラスIDまたは、プログラムID(ProgID)を持つActiveXコントロール(OLEコントロール)をウィンドウオブジェクトとして配置します。 p2,p3で配置するX/Yサイズを指定します。 サイズの指定が省略されるか0以下の場合は、objsize命令で設定されている値が使用されます。 配置に成功した場合は、システム変数statにオブジェクトIDが代入され、p1の変数をコントロールのためのCOMオブジェクト型変数として初期化します。 ActiveXコントロールの配置に失敗した場合は、HSPのシステム変数statに-1が代入されて終了します。 |
HSPのaxobj命令でVBAボタンオブジェクトを設置する。ボタンはマウスで押すコントロールです。
pos 100,100 axobj fcob, "Forms.CommandButton.1",200,50 fcob("Caption")="ボタン" ; 表示文字 fcob("ForeColor")=$FF ; 表面色 fcob("BackColor")=$FF00FF ; 文字色 fcob("FontSize")=12 ; フォントサイズ fcob("FontName")="MS 明朝" ; フォント fcob("FontBold")=1 ; ボールド fcob("FontItalic")=1 ; イタリック |
HSPのaxobj命令でVBAチェックボックスの設置です。チェックを入れて状態の切り替えができるコントロールです。
pos 100,100 axobj fchk,"Forms.CheckBox.1",200,22 fchk("Caption")="チェックボックス" fchk("ForeColor")=$FFFFFF fchk("FontSize")=10 fchk("Value")=1 ; チェックのOF・OFF |
HSPのaxobj命令でVBAトグルボタンの設置です。ボタンがへこんだままになり、再度押すと元の状態に戻るというボタンコントロールです。
pos 100,100 axobj ftb, "Forms.ToggleButton.1",200,50 ftb("Caption")="トグルボタン" ftb("ForeColor")=$FF00 ftb("BackColor")=$FF ftb("FontSize")=12 ftb("FontBold")=1 ftb("FontItalic")=1 ftb("Value")=1 repeat title ""+ftb("Value")+"" ; 状態の取得 wait 10 loop |
キャプチャショット画像。
+ Component Object Model - Wikipedia
〜〜〜〜〜