|目次|前ページ|次ページ| ─────────────────────────────────── 5.プログラミングの説明[旧版 ─────────────────────────────────── ◆サンプル[旧版 ※ なるべく直接シーケンスをコーディングしないで共通ルーチンを使用してください ─────────────────────────────────── ● エデットコントロール作成シーケンス ※※ M言語のサンプルも用意されています <esc>%59;15 sp F<No.1初期値><CR> <- エデットコントロールに表示する文字列 <esc>%59;25 F$12$11$20$1$25$1$0$<CR> <- 位置サイズ/入力最大長/色/フォント/ <esc>%1;1;11;15;25;1;;;;;;;;;; sp M <- control=1:エデットコントロールモジュールを指定 <- cmd=1:作成(表示/enable) <- cid=11:コントロールid <- edit=15:初期文字列が格納されているedit番号(edit) <- rect=25:位置サイズ情報が格納されているedit番号(rect) <- action=1:リターンキーをおすとエデットコントロールはリスポンスを返して 操作不能(disable)になります <- 以降のパラメータはゼロクリアしておきます [リスポンスメッセージ -> (入力完了した時に送信されます) ※以下の応答メッセージ形式は正しくは変更されています[14-oct-2003] !!$VM$Edit;1;$11$1$$$;;;$13;$0$12$$$<No.1入力値>$$$$$$$$<CR> <- [3=11:コントロールid <- [4=1:イベント(入力終了キー) <- [9=13;:入力終了仮想キーコード<Enter> <- [11=12:入力されたバイト数 <- [14:入力文字列 ─────────────────────────────────── ● リストボックス作成シーケンス ※※ M言語のサンプルも用意されています <esc>%59;14 sp F<単一選択>$<品川>$<太田>$<杉並>$<世田谷> $<新宿>$<渋谷>$<江戸川>$<墨田>$<荒川><CR> <- リストボックスに表示する選択肢文字列 <esc>%59;26 sp F$42$10$20$5$$3$0$2$<CR> <- 位置サイズ//色/フォント/ <esc>%2;1;16;14;26;17;;;;;0;;;;; sp M <- control=2:リストボックスコントロールモジュールを指定 <- cmd=1:作成(表示/enable) <- cid=16:コントロールid <- edit=14:初期文字列が格納されているedit番号(edit) <- rect=26:位置サイズ情報が格納されているedit番号(rect) <- action=17:リターンキーをおすとコントロールはリスポンスを返して 消去されます <- [10opt=0:単一選択リストボックス <- 以降のパラメータはゼロクリアしておきます [リスポンスメッセージ ->(選択完了した時に送信されます) ※以下の応答メッセージ形式は正しくは変更されています[14-oct-2003 !!$VM$List;2;$16$2$$$;;;$;$5$1$$$<世田谷>$$$$$$$$<CR> <- [3=16:コントロールid <- [4=2:イベント(マウスクリック) <- [10=5:選択された選択肢番号(1:先頭) <- [11=1:選択された選択肢個数 <- [14:選択された選択肢文字列 ─────────────────────────────────── 60-1 ─────────────────────────────────── ● コンボボックス作成シーケンス ※※ M言語のサンプルも用意されています <esc>%59;14 sp F<品川>$<太田>$<杉並>$<世田谷> $<新宿>$<渋谷>$<江戸川>$<墨田>$<荒川><CR> <- ドロップダウンリストに表示する選択肢文字列 <esc>%59;27 sp F$42$14$20$1$$6$0$4$<CR> <- 位置サイズ//色/フォント/ <esc>%3;1;15;14;27;1;;;;3; sp M <- control=3:コンボボックスコントロールモジュールを指定 <- cmd=1:作成(表示/enable) <- cid=15:コントロールid <- edit=14:初期文字列が格納されているedit番号(edit) <- rect=27:位置サイズ情報が格納されているedit番号(rect) <- action=1:リターンキーをおすとエデットコントロールはリスポンスを返して 操作不能(disable)になります <- [10opt=3:ドロップダウンスタイル <- 以降のパラメータはゼロクリアしておきます [リスポンスメッセージ -> (入力完了した時に送信されます) ※以下の応答メッセージ形式は正しくは変更されています[14-oct-2003 !!$VM$Combo;3;$15$1$$$;;;$13;$4$8$$$<世田谷>$$$$$$$$<CR> <- [3=16:コントロールid <- [4=1:イベント(入力終了キー) <- [9=13;:入力終了仮想キーコード<Enter> <- [10=4:選択された選択肢番号(1:先頭) <- [11=8:入力されたバイト数 <- [14:入力文字列 ─────────────────────────────────── ● プッシュボタン作成シーケンス ※※ M言語のサンプルも用意されています <esc>%59;25 sp F$12$6$20$3$$5$0$<CR> <- プッシュボタンに表示する文字列 <esc>%59;15 sp F<push button><CR> <- 位置サイズ///フォント/ <esc>%7;1;11;15;25;2;;99;;; sp M <- control=7:プッシュボタンコントロールモジュールを指定 <- cmd=1:作成(表示/enable) <- cid=11:コントロールid <- edit=15:表示文字列が格納されているedit番号(edit) <- rect=25:位置サイズ情報が格納されているedit番号(rect) <- action=2:リターンキーをおすとプッシュボタンコントロールはリスポンスを返して グループ番号=99のコントロールを全て操作不能(disable)になります ※※複数個のプッシュボタンやリストボックスを同一グループに指定できます <- group=99:グループ番号 <- 以降のパラメータはゼロクリアしておきます [リスポンスメッセージ -> (ボタンを押した時に送信されます) ※以下の応答メッセージ形式は正しくは変更されています[14-oct-2003 !!$VM$Pushbtn;7;$11$2$$$;;99;$;$0$0$$$1;clicked$$$$$$$$<CR> <- [3=11:コントロールid <- [4=2:イベント(マウスクリック) <- [14:プッシュボタンがクリックされた ─────────────────────────────────── ● ビットボタン作成シーケンス ※※ M言語のサンプルも用意されています <esc>%59;19 sp F<bitbtn><CR> <- ビットボタンに表示する文字列 <esc>%59;29 sp F$42$6$20$3$$5$0$<CR> <- 位置サイズ///フォント/ <esc>%8;1;15;19;29;2;;98;;1; sp M <- control=8:ビットボタンコントロールモジュールを指定 <- cmd=1:作成(表示/enable) <- cid=15:コントロールid <- edit=19:表示文字列が格納されているedit番号(edit) <- rect=29:位置サイズ情報が格納されているedit番号(rect) <- action=2:リターンキーをおすとビットボタンコントロールはリスポンスを返して グループ番号=99のコントロールを全て操作不能(disable)になります ※※複数個のビットボタンやリストボックスを同一グループに指定できます <- group=98:グループ番号 <- 以降のパラメータはゼロクリアしておきます [リスポンスメッセージ -> (ボタンを押した時に送信されます) ※以下の応答メッセージ形式は正しくは変更されています[14-oct-2003 !!$VM$Bitbtn;8;$15$2$$$;;98;$;$0$0$$$1;clicked$$$$$$$$<CR> <- [3=11:コントロールid <- [4=2:イベント(マウスクリック) <- [14:ビットボタンがクリックされた ─────────────────────────────────── 60-2 ─────────────────────────────────── ● チェックボックス作成シーケンス <esc>%59;4 sp F<<< GROUP >>><CR> <esc>%59;5 sp F$11$5$22$6.5$$3$0$<CR> <esc>%5;1;79;4;5;;;;;;; sp M <- グループボックスを作成表示 ※※ action=15 は何回でもリスポンスを返します <esc>%59;25 sp F$1.5$2$20$1$$5$0$<CR> <- 親の中での相対位置サイズ//色/フォント/ <esc>%59;15 sp F<CHECKBOX No1>$0<CR><CR> <esc>%9;1;11;15;25;15;79;99;;; sp M <- グループボックスが親のボックスボックスを作成表示 <esc>%59;16 sp F<CHECKBOX No2>$1<CR> <esc>%59;26 sp F$1.5$3$20$1$$6$0$<CR> <- 親の中での相対位置サイズ//色/フォント/ <esc>%9;1;12;16;26;15;79;99;;; sp M <- グループボックスが親のボックスボックスを作成表示 <esc>%59;17 sp F<CHECKBOX No3>$2<CR> <esc>%59;27 sp F$1.5$4$20$1$$8$0$<CR> <- 親の中での相対位置サイズ//色/フォント/ <esc>%9;1;13;17;27;15;79;99;;; sp M <- グループボックスが親のボックスボックスを作成表示 <esc>%59;18 sp F<CHECKBOX No4>$1<CR> <esc>%59;28 sp F$1.5$5$20$1$$5$0$<CR> <- 親の中での相対位置サイズ//色/フォント/ <esc>%9;1;14;18;28;15;79;99;;; sp M <- グループボックスが親のボックスボックスを作成表示 <esc>%59;19 sp F<CHECKBOX No5>$1<CR> <esc>%59;29 sp F$1.5$6$20$1$$4$0$<CR> <- 親の中での相対位置サイズ//色/フォント/ <esc>%9;1;15;19;29;15;79;99;;; sp M <- グループボックスが親のボックスボックスを作成表示 <esc>%59;20 F選択完了$<CR> <esc>%59;30 F$16$12$10$1$$$0$<CR> <- 位置サイズ//色/フォント/ <esc>%7;1;20;20;30;2;;99;;; sp M <- プッシュボタン(親無し)を作成表示 [リスポンスメッセージ -> (ボタンを押した時に送信されます) プッシュボタン(親無し)を押した時 グループ番号=99のコントロールを全て操作不能(disable)になります ※以下の応答メッセージ形式は正しくは変更されています[14-oct-2003 !!$VM$Checkbox;7;$14$2$$$79;;99;$;$0$0$$$1$$$$$$$$<CR> ─────────────────────────────────── 60-3 ─────────────────────────────────── ● ラジオボタン作成シーケンス <esc>%59;4 sp F<<< GROUP >>><CR> <esc>%59;5 sp F$11$5$21$6$$3$0$<CR> <esc>%5;1;79;4;5;;;;;;; sp M <esc>%59;25 sp F$1.5$1.5$20$1$$5$0$<CR> <esc>%59;15 sp F<RADIOBTN No1>$0<CR> <esc>%10;1;11;15;25;15;79;99;;; sp M ※※ action=15 は何回でもリスポンスを返します <esc>%59;16 sp F<RADIOBTN No2>$0<CR> <esc>%59;26 sp F$1.5$2.5$20$1$$6$0$<CR> <esc>%10;1;12;16;26;15;79;99;;; sp M <esc>%59;17 sp F<RADIOBTN No3>$0<CR> <esc>%59;27 sp F$1.5$3.5$20$1$$8$0$<CR> <esc>%10;1;13;17;27;15;79;99;;; sp M <esc>%59;18 F<RADIOBTN No4>$1<CR> <esc>%59;28 F$1.5$4.5$20$1$$5$0$<CR> <esc>%10;1;14;18;28;15;79;99;;; sp M <esc>%59;19 sp F<RADIOBTN No5>$0<CR> <esc>%59;29 sp F$1.5$5.5$20$1$$4$0$<CR> <esc>%10;1;15;19;29;15;79;99;;; sp M <esc>%59;20 sp F選択完了$<CR> <esc>%59;30 sp F$16$12$10$1$$$0$<CR> <esc>%7;1;20;20;30;2;;99;;; sp M [リスポンスメッセージ -> (ボタンを押した時に送信されます) プッシュボタン(親無し)を押した時 グループ番号=99のコントロールを全て操作不能(disable)になります ※以下の応答メッセージ形式は正しくは変更されています[14-oct-2003 !!$VM$Radiobtn;10;$14$2$$$79;;99;$;$0$0$$$1$$$$$$$$<CR> ─────────────────────────────────── 60-4 ─────────────────────────────────── ● メモコントロール作成シーケンス ※※ 入力最大長は31999までです[new! <esc>%59;16 sp F<memo初期値><CR> <- メモコントロールに表示する文字列 <esc>%59;26 sp F$12$14$20$3$255$6$0$<CR> <- 位置サイズ/入力最大長/色/フォント/ <esc>%11;1;12;16;26;1;;;;1 sp M <- control=11:メモコントロールモジュールを指定 <- cmd=1:作成(表示/enable) <- cid=12:コントロールid <- edit=16:初期文字列が格納されているedit番号(edit) <- rect=26:位置サイズ情報が格納されているedit番号(rect) <- action=1:リターンキーをおすとエデットコントロールはリスポンスを返して 操作不能(disable)になります <- pm1=1:垂直スクロールバー <- 以降のパラメータはゼロクリアしておきます [リスポンスメッセージ -> (ボタンを押した時に送信されます) プッシュボタン(親無し)を押した時 ※以下の応答メッセージ形式は正しくは変更されています[14-oct-2003 !!$VM$Memo;11;$12$1$$$;;;$13;$0$255$$$<memo入力値>$$$$$$$$<CR> ─────────────────────────────────── ● マスクエデットコントロール作成シーケンス <esc>%59;15 sp F12113411112$>(000)_0000-0000;0;*<CR> <- マスクエデットコントロールに表示する初期文字列とマスクデータ ------------------------------------------ セミコロン1番目->マスクパターン ! があれば先頭部分の空白がデータに表れない なければ末尾部分の空白がデータに表れない > マスク内又は<まで大文字で表される < マスク内又は>まで小文字で表される <> 入力どうり \ \に続く文字はリテラル文字である L この位置には英字1文字指定しなければならない A->Z,a->z LLで日本語1文字 も可能 l この位置には英字1文字指定しても良いが指定 しなくても良い A 英文字1文字指定しなければならない A->Z,a->z,0->9 のいずれか a 英文字1文字指定出来るが指定 しなくても良い C 1文字指定しなければならない c 1文字指定出来るが指定しなくても良い 0 数字を1文字指定しなければならない 9 数字を1文字指定出来るが指定しなくても良い # 数字/正符号/負符号いずれか 指定出来るが指定しなくても良い : 時刻の分秒時間を区切る / 日付けを区切る _ 編集ボックスに自動的に空白を挿入する ------------------------------------------ セミコロン2番目->リテラル文字もデータの一部として保存するか 0:初期文字列にリテラル文字を含んではならない意味 1:初期文字列にリテラル文字も含めなければならない セミコロン3番目->マスクに入力できない(空白)文字を表す為 ------------------------------------------ <esc>%59;25 sp F$12$11$20$1$12$5$0$<CR> <- 位置サイズ/入力最大長/色/フォント/ <esc>%12;1;11;15;25;1;;;; sp M <- control=12:マスクエデットコントロールモジュールを指定 <- cmd=1:作成(表示/enable) <- cid=11:コントロールid <- edit=15:初期文字列が格納されているedit番号(edit) <- rect=25:位置サイズ情報が格納されているedit番号(rect) <- action=1:リターンキーをおすとエデットコントロールはリスポンスを返して 操作不能(disable)になります ─────────────────────────────────── 60-5 ─────────────────────────────────── ● パネル作成シーケンス ※※ M言語のサンプルも用意されています <esc>%59;3 sp F<<<PANEL感じ LOW/def>>><CR> <- パネルに表示する文字列(コンテナに利用する時は指定しない) <esc>%59;13 sp F$12$10$20$4$$42$0$$<CR> <- 位置サイズ//色/フォント/ <esc>%4;1;08;3;13;;;;;1;1;0;2;1;; sp M <- control=4:パネルモジュールを指定 <- cmd=1:パネル作成(表示/enable) <- cid=15:コントロールid <- edit=19:表示文字列が格納されているedit番号(edit) <- rect=29:位置サイズ情報が格納されているedit番号(rect) <- opt=1:3D 指定 <- pm1=1:内側ベベル(窪んだ形) <- pm2=0:外側ベベル(デフォルト) <- pm3=2:ベベル幅(ドット) <- pm4=1:ボータスタイル <- pm5=0:ボータ幅(ドット) <esc>%59;4 F<<<PANEL感じ RAI/def >>><CR> <- パネルに表示する文字列(コンテナに利用する時は指定しない) <esc>%59;14 F$42$10$20$4$$3$3$$<CR> <- 位置サイズ//色/フォント/ <esc>%4;1;09;4;14;;;;;1;2;0;0;0;; sp M <- opt=1:3D 指定 <- pm1=2:内側ベベル(出っ張った形) <- pm2=0:外側ベベル(デフォルト) <- pm3=0:ベベル幅(ドット) <- pm4=0:ボータスタイル <- pm5=0:ボータ幅(ドット) <esc>%59;5 F<<<PANEL感じ def/low>>><CR> <- パネルに表示する文字列(コンテナに利用する時は指定しない) <esc>%59;15 F$12$15$20$4$$4$4$$<CR> <- 位置サイズ//色/フォント/ <esc>%4;1;10;5;15;;;;;1;0;1;2;0;2; sp M <- opt=1:3D 指定 <- pm1=0:内側ベベル(デフォルト) <- pm2=1:外側ベベル(窪んだ形) <- pm3=2:ベベル幅(ドット) <- pm4=0:ボータスタイル <- pm5=2:ボータ幅(ドット) <esc>%59;6 F<<<PANEL感じ sp/low>>><CR> <- パネルに表示する文字列(コンテナに利用する時は指定しない) <esc>%59;16 F$42$15$20$4$$1$0$$<CR> <- 位置サイズ//色/フォント/ <esc>%4;1;11;6;16;;;;;1;3;2;1;1;3; sp M <- opt=1:3D 指定 <- pm1=3:内側ベベル(スペース) <- pm2=2:外側ベベル(出っ張った形) <- pm3=1:ベベル幅(ドット) <- pm4=1:ボータスタイル <- pm5=3:ボータ幅(ドット) ─────────────────────────────────── 60-6 ─────────────────────────────────── ● ラベル作成シーケンス ※※ M言語のサンプルも用意されています <esc>%531;27 sp F<<< LABEL-1行目 >>><CR><LF> <<<label-2行目>>><CR><LF> <<<label-3行目>>><CR><LF> <<<label-4行目>>><CR><LF> <<<label-5行目>>><CR><LF> <<<label-6行目>>><esc> <- ラベルに表示する文字列(複数行の場合) <esc>%59;25 sp F$12$11$20$6$$11$0$<CR> <- 位置サイズ//色/フォント/ <esc>%6;1;8;531;25;;;;;1;3;;;;;; sp M <-opt=1:ラベル全体に広げて表示 <-pm1=3:中央に表示 ─────────────────────────────────── ● フォント作成シーケンス ※※ id番号1->5は予めセットされています(変更/置き換え可能) edit -> フォントを新規に作成する時の設定情報を取得する為の 編集/パラメータ領域番号を指定します (1)Name$(2)Charset$(3)Height$(4)Pitch$(5)Style $(6)color$(7)Size$(8)PixelPerInch <esc>%59;15 sp FMS 明朝$128$10$0$1$$$<CR> <- Name=MS 明朝 を指定 <- Charset=128:SJIFT_JIS を指定 <- Height=10:ピクセル値 <- Style=0:標準 <- color=1 <esc>%2000;1;3;15;;;;; sp M <- 20000:フォントモジュールを指定 <- 1:フォント作成を指定 <- 3:フォント管理番号を指定 <- 15:フォント情報が格納されている編集/パラメータ領域番号を指定 <esc>%59;16 sp FMS 明朝$128$40$0$1$$$<CR> <esc>%2000;1;4;16;;;;; sp M <esc>%2000;99;3;15;;;;; sp M <- 99:フォント情報を取得します <esc>%2000;99;4;16;;;;; sp M <- 99:フォント情報を取得します ※※ コントロール作成作成時にこのフォント管理番号を指定します ─────────────────────────────────── 60-7 ─────────────────────────────────── ● データベース対応リストボックス作成シーケンス ※※ リストボックスの選択肢はローカルデータベースからとりだされます <esc>%59;13 sp F$SIMDB1$GBLTBL3$3$4$1=POPUP;2=LIST1;$<CR> <- SIMDB1:データベースエイリアス <- GBLTBL1:テーブル名 <- 3:フィールド番号3が選択肢キーコード <- 4:フィールド番号4が選択肢文字列 <- 1=POPUP; フィールド番号1が"POPUP"が検索条件-1 <- 2=LIST1; フィールド番号2が"LIST1"が検索条件-1 <esc>%59;25 sp F$12$10$20$3$$5$0$3$<CR> <- 位置サイズ//色/フォント/ <esc>%102;2;17;13;25;1;;;;0;0 sp M <- 102:データベース対応リストボックス <- 2:作成/変更 <- 17:id <- 13:編集番号(13)にデータベース情報 <- 25:編集番号(25)に位置サイズ//色/フォント/ <esc>%59;35 F<LISTBhintヒント初期値><CR> <- ヒント文字列 <esc>%102;15;17;35;;;;;;; sp M <- ヒント文字列を設定 ─────────────────────────────────── ● データベース対応コンボボックス作成シーケンス ※※ コンボボックスの選択肢はローカルデータベースからとりだされます <esc>%59;13 sp F$SIMDB1$GBLTBL3$3$4$1=POPUP;2=LIST1;$<CR> <- SIMDB1:データベースエイリアス <- GBLTBL1:テーブル名 <- 3:フィールド番号3が選択肢キーコード <- 4:フィールド番号4が選択肢文字列 <- 1=POPUP; フィールド番号1が"POPUP"が検索条件-1 <- 2=LIST1; フィールド番号2が"LIST1"が検索条件-1 <esc>%59;25 sp F$12$10$20$5$$4$0$2$<CR> <- 位置サイズ//色/フォント/ <esc>%103;2;17;13;25;1;;;;1; sp M<CR> <- 103:データベース対応コンボボックス <- 2:作成/変更 <- 17:id <- 13:編集番号(13)にデータベース情報 <- 25:編集番号(25)に位置サイズ//色/フォント/ ─────────────────────────────────── 600-8 |目次|前ページ|次ページ|