|目次前ページ次ページ|
───────────────────────────────────
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 
     |目次前ページ次ページ