|目次|前ページ|次ページ| ─────────────────────────────────── 9.ストリンググリッドの追加変更シーケンス 追加前の仕様は、ビジュアルコントロールモジュールに記載されています。 編集領域番号は、0 <--> 63 と 531,532,533,534 を指定できます。 --------------------------------------------------------------------- ■<<<ストリンググリッドに文字列を行毎にストリングリストからロードする>>> --------------------------------------------------------------------- 追加行数はストリングリストの件数。 桁数はストリングリスト中のデリミタの最大個数+1件に拡張される。 デリミタの区切りの1番目から桁位置(0)に順次格納。 [1] シーケンス cid <== ストリンググリッドのコントロールid番号 srccid <-- ストリングリストのコントロールid番号 ストリングリスト中の文字列はデリミタで区切られている 例えば行データは 桁位置(0)$ 桁位置(1)$ 桁位置(2)$ edit <-- デリミタ文字列を格納する領域(531,532,533,534)32763文字まで 0<->63 255文字まで editstr <-- デリミタ(1文字のみ有効) appendsw <-- 0:クリアしてから 1:末尾に追加 0:クリアしてから->行数はストリングリストの件数。 1:末尾に追加->追加行数はストリングリストの件数。 <esc>%20;621;cid;;;srccid;appendsw;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリンググリッドのコントロールid番号 srccid <-- ストリングリストのコントロールid番号 edit <-- デリミタ文字列を格納する領域(531,532,533,534)32763文字まで 0<->63 255文字まで editstr <-- デリミタ(1文字のみ有効) ストリングリスト中の文字列はデリミタで区切られている 例えば行データは 桁位置(0)$ 桁位置(1)$ 桁位置(2)$ appendsw <-- 0:クリアしてから 1:末尾に追加 D LOADFROMLIST^ZVCMGRD6 【応答メッセージ】 Rselno -> 行数 Rselcnt -> 桁数 Rerr2 -> 内部エラー(処理の過程や例外発生エラー) --------------------------------------------------------------------- ■<<<ストリンググリッドに行毎に文字列をストリングリストに保存する>>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリンググリッドのコントロールid番号 dstcid <-- ストリングリストのコントロールid番号 ストリングリスト中の文字列はデリミタで区切られている 例えば行データは 桁位置(0)$ 桁位置(1)$ 桁位置(2)$ <esc>%20;622;cid;;;dstcid sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリンググリッドのコントロールid番号 dstcid <-- ストリングリストのコントロールid番号 ストリングリスト中の文字列はデリミタで区切られている 例えば行データは 桁位置(0)$ 桁位置(1)$ 桁位置(2)$ D SAVETOLIST^ZVCMGRD6 【応答メッセージ】 Rselno -> 行数 Rselcnt -> 桁数 Rerr2 -> 内部エラー(処理の過程や例外発生エラー) --------------------------------------------------------------------- ■<<<文字列リストの行数を取得 >>> --------------------------------------------------------------------- [1] シーケンス cid <== コントロールid番号 <esc>%20;701;cid;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== コントロールid番号 D COUNT^ZVCMGRD6 【応答メッセージ】 Rselno -> 行数 Rselcnt -> 桁数 Roption ->選択セルの矩形(左;上;右;下;Col数;Row数) Rmain -> 固定部の桁数;固定部の行数 --------------------------------------------------------------------- ■<<<指定セル文字列を取得する >>> --------------------------------------------------------------------- [1] シーケンス cid <== コントロールid番号 edit <-- 531,532,533,534 を指定 editstr <-- 桁(カラム)位置(0,1,...)を指定 行(ロー)位置(0,1,2,...)を指定 桁(カラム)位置 $ 行(ロー)位置 rect <-- 531,532,533,534 を指定 <esc>%20;711;cid;edit;rect;;;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます rectの領域 --> セル文字列 --------------------------------------------------------------- [2] Cache用共通関数 cid <== コントロールid番号 edit <-- 531,532,533,534 を指定 editstr <-- 桁(カラム)位置(0,1,...)を指定 行(ロー)位置(0,1,2,...)を指定 桁(カラム)位置 $ 行(ロー)位置 rect <-- 531,532,533,534 を指定 D GETCELL6^ZVCMGRD6 【応答メッセージ】 Rselno -> 0 Rselcnt -> セル文字列文字数 Roption ->選択セルの矩形(左;上;右;下;Col数;Row数) rectの領域 -> セル文字列 rectstr -> セル文字列 [*]rect文字列を取得するにはコントロールA等の終端文字を指定します Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<指定ローの文字列を<CR><LF>で結合し取得する >>> --------------------------------------------------------------------- [1] シーケンス cid <== コントロールid番号 edit <-- 531,532,533,534 を指定(行(ロー)位置(0,1,2,...)を指定) rect <-- 531,532,533,534 を指定 <esc>%20;712;cid;edit;rect;;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます rectの領域 --> 取得文字列 --------------------------------------------------------------- [2] Cache用共通関数 cid <== コントロールid番号 edit <-- 531,532,533,534 を指定(行(ロー)位置(0,1,2,...)を指定) editstr <-- 行(ロー)位置(0,1,2,...)を指定 rect <-- 531,532,533,534 を指定 D GETROWS^ZVCMGRD6 【応答メッセージ】 Rselno -> <CR><LF>で全て結合したときの文字数 Rselcnt -> カラム数 Roption ->選択セルの矩形(左;上;右;下;Col数;Row数) Rmain -> null rectの領域 -> <CR><LF>で結合した取得文字列 rectstr -> <CR><LF>で結合した取得文字列 Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<指定カラムの文字列を<CR><LF>で結合し取得する >>> --------------------------------------------------------------------- [1] シーケンス cid <== コントロールid番号 edit <-- 531,532,533,534 を指定(桁(カラム)位置(0,1,2,...)を指定) editstr <-- 桁(カラム)位置(0,1,2,...)を指定 rect <-- 531,532,533,534 を指定 <esc>%20;713;cid;edit;rect;;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます rectの領域 --> 取得文字列 --------------------------------------------------------------- [2] Cache用共通関数 cid <== コントロールid番号 edit <-- 531,532,533,534 を指定(桁(カラム)位置(0,1,2,...)を指定) editstr <-- 桁(カラム)位置(0,1,2,...)を指定 rect <-- 531,532,533,534 を指定 D GETCOLS^ZVCMGRD6 【応答メッセージ】 Rselno -> <CR><LF>で全て結合したときの文字数 Rselcnt -> カラム数 Roption ->選択セルの矩形(左;上;右;下;Col数;Row数) Rmain -> null rectの領域 -> <CR><LF>で結合した取得文字列 rectstr -> <CR><LF>で結合した取得文字列 Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<ローに<CR><LF>区切りで全ての文字列を設定する >>> --------------------------------------------------------------------- [1] シーケンス cid <== コントロールid番号 edit <-- 531,532,533,534 を指定 editstr <-- 行(ロー)位置(0,1,2,...)を指定 rect <-- 531,532,533,534 を指定 rectstr <-- <CR><LF>で区切ったテキストを指定します <esc>%20;717;cid;edit;rect;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== コントロールid番号 edit <-- 531,532,533,534 を指定 editstr <-- 行(ロー)位置(0,1,2,...)を指定 rect <-- 531,532,533,534 を指定 rectstr <-- <CR><LF>で区切ったテキストを指定します D SETROWS^ZVCMGRD6 【応答メッセージ】 Rselno -> <CR><LF>区切りで全て結合したときの文字数($L) Rselcnt -> カラム数 Roption ->選択セルの矩形(左;上;右;下;Col数;Row数) Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<カラムに<CR><LF>区切りで全ての文字列を設定する >>> --------------------------------------------------------------------- [1] シーケンス cid <== コントロールid番号 edit <-- 531,532,533,534 を指定 editstr <-- 桁(カラム)位置(0,1,2,...)を指定 rect <-- 531,532,533,534 を指定 rectstr <-- <CR><LF>で区切ったテキストを指定します <esc>%20;718;cid;edit;rect;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== コントロールid番号 edit <-- 531,532,533,534 を指定 editstr <-- 桁(カラム)位置(0,1,2,...)を指定 rect <-- 531,532,533,534 を指定 rectstr <-- <CR><LF>で区切ったテキストを指定します D SETROWS^ZVCMGRD6 【応答メッセージ】 Rselno -> <CR><LF>区切りで全て結合したときの文字数($L) Rselcnt -> ロー数 Roption ->選択セルの矩形(左;上;右;下;Col数;Row数) Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<指定セル文字列を設定する >>> --------------------------------------------------------------------- [1] シーケンス cid <== コントロールid番号 edit <-- 531,532,533,534 を指定 editstr <-- 桁(カラム)位置(0,1,2,...),行(ロー)位置(0,1,2,...)を指定 桁 $ 行 を指定 rect <-- 531,532,533,534 を指定 rectstr <-- セル文字列を指定 <esc>%20;719;cid;edit;rect;;;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます rectの領域 --> セル文字列 --------------------------------------------------------------- [2] Cache用共通関数 cid <== コントロールid番号 edit <-- 531,532,533,534 を指定 editstr <-- 桁(カラム)位置(0,1,2,...),行(ロー)位置(0,1,2,...)を指定 桁 $ 行 を指定 rect <-- 531,532,533,534 を指定 rectstr <-- セル文字列を指定 D SETCELL6^ZVCMGRD6 【応答メッセージ】 Rselno -> 0 Rselcnt -> セル文字列文字数 Roption ->選択セルの矩形(左;上;右;下;Col数;Row数) rectの領域 -> セル文字列 rectstr -> セル文字列 [*]rect文字列を取得するにはコントロールA等の終端文字を指定します Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<桁幅サイズを設定【桁サイズで指定】 >>> --------------------------------------------------------------------- [1] シーケンス cid <== コントロールid番号 edit <== 編集番号(0〜63,531,532,533,534) editstr <== 桁幅サイズ(桁0のサイズ;桁1のサイズ;桁2のサイズ;...) col <== 開始桁インデックス番号(0,1,2,...) <esc>%20;401;cid;edit;;start;; sp M --------------------------------------------------------------- [2] Cache用共通関数 cid <== コントロールid番号 edit <== 編集番号(0〜63,531,532,533,534) editstr <== 桁幅サイズ(桁0のサイズ;桁1のサイズ;桁2のサイズ;...) ※ 桁幅を桁サイズで設定します(nullの桁位置は変更されません)【仕様変更】 ※ T又はtで桁サイズ指定、P又はpでピクセルサイズ指定【仕様変更】 col <== 開始桁インデックス番号(0,1,2,...) D COLWIDTH^ZVCMGRD2 【応答メッセージ無し】 --------------------------------------------------------------------- ■<<<行高さサイズを設定【行サイズで指定】 >>> --------------------------------------------------------------------- [1] シーケンス cid <== コントロールid番号 edit <== 編集番号(0〜63,531,532,533,534) editstr <== 行高さサイズ(行0のサイズ;行1のサイズ;行2のサイズ;...) row <== 開始行インデックス番号(0,1,2,...) <esc>%20;402;cid;edit;;start;; sp M --------------------------------------------------------------- [2] Cache用共通関数 cid <== コントロールid番号 edit <== 編集番号(0〜63,531,532,533,534) editstr <== 行高さサイズ(行0のサイズ;行1のサイズ;行2のサイズ;...) ※ 行高さを行サイズで設定します(nullの行位置は変更されません)【仕様変更】 ※ T又はtで行サイズ指定、P又はpでピクセルサイズ指定【仕様変更】 row <== 開始行インデックス番号(0,1,2,...) D ROWHEIGHT^ZVCMGRD2 【応答メッセージ無し】 --------------------------------------------------------------------- ■<<<桁幅サイズを設定【ピクセルサイズで指定】 >>> --------------------------------------------------------------------- [1] シーケンス cid <== コントロールid番号 edit <== 編集番号(0〜63,531,532,533,534) editstr <== 桁幅サイズ(桁0のサイズ;桁1のサイズ;桁2のサイズ;...) col <== 開始桁インデックス番号(0,1,2,...) <esc>%20;403;cid;edit;;start;; sp M --------------------------------------------------------------- [2] Cache用共通関数 cid <== コントロールid番号 edit <== 編集番号(0〜63,531,532,533,534) editstr <== 桁幅サイズ(桁0のサイズ;桁1のサイズ;桁2のサイズ;...) ※ 桁幅をピクセルサイズで設定します(nullの桁位置は変更されません) ※ T又はtで桁サイズ指定、P又はpでピクセルサイズ指定【仕様変更】 col <== 開始桁インデックス番号(0,1,2,...) D PIXELCOLWIDTH^ZVCMGRD2 【応答メッセージ無し】 --------------------------------------------------------------------- ■<<<行高さサイズを設定【ピクセルサイズで指定】 >>> --------------------------------------------------------------------- [1] シーケンス cid <== コントロールid番号 edit <== 編集番号(0〜63,531,532,533,534) editstr <== 行高さサイズ(行0のサイズ;行1のサイズ;行2のサイズ;...) row <== 開始行インデックス番号(0,1,2,...) <esc>%20;404;cid;edit;;start;; sp M --------------------------------------------------------------- [2] Cache用共通関数 cid <== コントロールid番号 edit <== 編集番号(0〜63,531,532,533,534) editstr <== 行高さサイズ(行0のサイズ;行1のサイズ;行2のサイズ;...) ※ 行高さをピクセルサイズで設定します(nullの行位置は変更されません) ※ T又はtで行サイズ指定、P又はpでピクセルサイズ指定【仕様変更】 row <== 開始行インデックス番号(0,1,2,...) D PIXELROWHEIGHT^ZVCMGRD2 【応答メッセージ無し】 ─────────────────────────────────── 9 |目次|前ページ|次ページ|