|目次|前ページ|次ページ| ─────────────────────────────────── 6.リストボックスの追加シーケンスの説明 追加前の仕様は、ビジュアルコントロールモジュールに記載されています。 編集領域番号は、0 <--> 63 と 531,532,533,534 を指定できます。 ─────────────────────────────────── ビジュアルコントロールモジュールエラーの場合メッセージ窓を表示させたくない Rerr2 が 0以外の場合に発生します。 ◆ [777]エラー表示メッセード表示/非表示の設定 ※ sw=0 は非表示 sw=1 は表示する <esc>%999;777;;sw;;;;;;;; sp M ※ エラーが発生しても無視したい時非表示に設定 ※ (デフォルト)はエラー表示メッセードボックス表示 ----------------------------------------- sw <-- sw=0 は非表示 sw=1 は表示する D ERRMSG^ZVCM999 --------------------------------------------------------------------- ■<<<リストボックスに表示する文字列をファイルからロードする>>> --------------------------------------------------------------------- ファイル名はテキストファイル(.TXT)でないとエラーとなります。 [1] シーケンス cid <== リストボックスのコントロールid番号 edit <-- ファイル名を格納する領域(531,532,533,534)32763文字まで 0<->63 255文字まで editstr <-- ファイル名 <esc>%2;610;cid;edit;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== リストボックスのコントロールid番号 edit <-- ファイル名を格納する領域(531,532,533,534)32763文字まで 0<->63 255文字まで editstr <-- ファイル名 D LOADFROMFILE^ZVCMLST6 【応答メッセージ】 Rselno -> 文字数($L) Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程や例外発生エラー) --------------------------------------------------------------------- ■<<<リストボックスに表示する文字列をファイルに保存する>>> --------------------------------------------------------------------- ファイル名はテキストファイル(.TXT)でないとエラーとなります。 [1] シーケンス cid <== リストボックスのコントロールid番号 edit <-- ファイル名を格納する領域(531,532,533,534)32763文字まで 0<->63 255文字まで editstr <-- ファイル名 <esc>%2;611;cid;edit;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== リストボックスのコントロールid番号 edit <-- ファイル名を格納する領域(531,532,533,534)32763文字まで 0<->63 255文字まで editstr <-- ファイル名 D SAVETOFILE^ZVCMLST6 【応答メッセージ】 Rselno -> 文字数($L) Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程や例外発生エラー) --------------------------------------------------------------------- ■<<<リストボックスに表示する文字列をストリングリストからロードする>>> --------------------------------------------------------------------- リスト件数はストリングリストの件数。 [1] シーケンス cid <== リストボックスのコントロールid番号 srccid <-- ストリングリストのコントロールid番号 appendsw <-- 0:クリアしてから 1:末尾に追加 <esc>%2;621;cid;;;srccid;appendsw;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== リストボックスのコントロールid番号 srccid <-- ストリングリストのコントロールid番号 appendsw <-- 0:クリアしてから 1:末尾に追加 D LOADFROMLIST^ZVCMLST6 【応答メッセージ】 Rselno -> 文字数($L) Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程や例外発生エラー) --------------------------------------------------------------------- ■<<<リストボックスに表示する文字列をストリングリストに保存する>>> --------------------------------------------------------------------- [1] シーケンス cid <== リストボックスのコントロールid番号 dstcid <-- ストリングリストのコントロールid番号 <esc>%2;622;cid;;;dstcid sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== リストボックスのコントロールid番号 dstcid <-- ストリングリストのコントロールid番号 D SAVETOLIST^ZVCMLST6 【応答メッセージ】 Rselno -> 文字数($L) Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程や例外発生エラー) --------------------------------------------------------------------- ■<<<リストボックスに表示する文字列をストリームからロードする>>> --------------------------------------------------------------------- [1] シーケンス cid <== リストボックスのコントロールid番号 srccid <-- ストリームのコントロールid番号 offset <-- ソースストリームの読み書きを行う位置指定 0: ストリームの読み書きを行うオフセット値を0に 設定してから行います(先頭から) 1: ソースストリームの現在オフセット値 <esc>%2;631;cid;;;srccid;offset;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== リストボックスのコントロールid番号 srccid <-- ストリームのコントロールid番号 offset <-- ソースストリームの読み書きを行う位置指定 0: ストリームの読み書きを行うオフセット値を0に 設定してから行います(先頭から) 1: ソースストリームの現在オフセット値 D LOADFROMSTREAM^ZVCMLST6 【応答メッセージ】 Rselno -> 文字数($L) Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程や例外発生エラー) --------------------------------------------------------------------- ■<<<リストボックスに表示する文字列をストリームに保存する>>> --------------------------------------------------------------------- [1] シーケンス cid <== リストボックスのコントロールid番号 dstcid <-- ストリームのコントロールid番号 offset <-- 保存先ストリームの読み書きを行う位置指定 0: 保存先ストリームの読み書きを行うオフセット値を0に 設定してから行います(先頭に保存) 1: 保存先ストリームの現在オフセット値 <esc>%2;632;cid;;;dstcid;offset;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== リストボックスのコントロールid番号 dstcid <-- ストリームのコントロールid番号 offset <-- 保存先ストリームの読み書きを行う位置指定 0: 保存先ストリームの読み書きを行うオフセット値を0に 設定してから行います(先頭に保存) 1: 保存先ストリームの現在オフセット値 D SAVETOSTREAM^ZVCMLST6 【応答メッセージ】 Rselno -> 文字数($L) Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程や例外発生エラー) --------------------------------------------------------------------- ■<<<リスト件数を取得 >>> --------------------------------------------------------------------- [1] シーケンス cid <== リストボックスのコントロールid番号 <esc>%2;701;cid;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== リストボックスのコントロールid番号 D COUNT^ZVCMLST6 【応答メッセージ】 Rselno -> <CR><LF>で全て結合したときの文字数($L) Rselcnt -> リスト件数 Rmain -> null --------------------------------------------------------------------- ■<<<<CR><LF>区切りで全ての文字列を結合し取得する >>> --------------------------------------------------------------------- [1] シーケンス cid <== リストボックスのコントロールid番号 rect <-- 531,532,533,534 を指定 <esc>%2;702;cid;;rect;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます rectの領域 --> <CR><LF>区切りで結合した文字列 --------------------------------------------------------------- [2] Cache用共通関数 cid <== リストボックスのコントロールid番号 rect <-- 531,532,533,534 を指定 D CRLFTEXT^ZVCMLST6 【応答メッセージ】 Rselno -> <CR><LF>区切りで全て結合したときの文字数($L) Rselcnt -> リスト件数 rectの領域 -> <CR><LF>区切りで結合した文字列 rectstr -> <CR><LF>区切りで結合した文字列 [*]rect文字列を取得するにはコントロールA等の終端文字を指定します Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<<CR><LF>区切りで全ての文字列を設定する >>> --------------------------------------------------------------------- [1] シーケンス cid <== コントロールid番号 edit <-- 531,532,533,534 を指定 <esc>%2;718;cid;edit;;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== コントロールid番号 edit <-- 531,532,533,534 を指定 editstr <-- <CR>または<LF>で区切ったテキストを指定します D SETTEXT6^ZVCMLST6 【応答メッセージ】 Rselno -> <CR><LF>区切りで全て結合したときの文字数($L) Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) ─────────────────────────────────── 6 |目次|前ページ|次ページ|