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