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