|目次前ページ次ページ|
───────────────────────────────────
 13.リッチエディットの追加シーケンス 

  追加前の仕様は、ビジュアルコントロールモジュールに記載されています。 
  編集領域番号は、0 <--> 63 と 531,532,533,534 を指定できます。 
  $と^はキー入力が禁止されています。 
  ※キーボードイベントの仕様を追加する。[2008-3-4]修正 
  ※keycode=0:<RETURN><ESCAPE><END><HELP> 
  ※         :<F1><F2><F3><F4><F5><F6><F7><F8><F9><F10><F11><F12> 
  ※keycode=1:<RETURN><ESCAPE><END><HELP> 
  ※keycode=2:<RETURN><ESCAPE> 
  ※keycode=3:<RETURN> 
  ※keycode=4:なし 
  ※keycode=5:<ESCAPE><HELP> 
  ※         :<F1><F2><F3><F4><F5><F6><F7><F8><F9><F10><F11><F12> 
  ※keycode=6:<ESCAPE><HELP> 
  ※keycode=7:<ESCAPE> 
---------------------------------------------------------------------
■<<<リッチエディットに表示する文字列をファイルからロードする>>>
---------------------------------------------------------------------
  ファイルは書式付のものとなります。 
[1] シーケンス

    cid <== リッチエディットのコントロールid番号 
    edit <-- ファイル名文字列を格納する領域(531,532,533,534)32763文字まで 
            0<->63 255文字まで 
    editstr <-- ファイル名 
     <esc>%51;610;cid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== リッチエディットのコントロールid番号 
    edit <-- ファイル名文字列を格納する領域(531,532,533,534)32763文字まで 
            0<->63 255文字まで 
    editstr <-- ファイル名 
     D LOADFROMFILE^ZVCMRCH6 
   【応答メッセージ】 
    Rhojyo -> リッチエディットの行数 
    Rselno -> ユーザがテキストを変更(0:無 1:変更) 
    Rselcnt -> リッチエディットの文字列の長さ文字数($L)(含む<cr><lf>)
    Rerr2 -> 内部エラー(処理の過程や例外発生エラー)
---------------------------------------------------------------------
■<<<リッチエディットに表示する文字列をファイルに保存する>>>
---------------------------------------------------------------------
  ファイルは書式付のものとなります。 
[1] シーケンス

    cid <== リッチエディットのコントロールid番号 
    edit <-- ファイル名文字列を格納する領域(531,532,533,534)32763文字まで 
            0<->63 255文字まで 
    editstr <-- ファイル名 
     <esc>%51;611;cid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== リッチエディットのコントロールid番号 
    edit <-- ファイル名文字列を格納する領域(531,532,533,534)32763文字まで 
            0<->63 255文字まで 
    editstr <-- ファイル名 
     D SAVETOFILE^ZVCMRCH6 
   【応答メッセージ】 
    Rhojyo -> リッチエディットの行数 
    Rselno -> ユーザがテキストを変更(0:無 1:変更) 
    Rselcnt -> リッチエディットの文字列の長さ文字数($L)(含む<cr><lf>)
    Rerr2 -> 内部エラー(処理の過程や例外発生エラー)
---------------------------------------------------------------------
■<<<リッチエディットに表示する文字列をストリングリストからロードする>>>
---------------------------------------------------------------------
  行数はストリングリストの件数。 
[1] シーケンス

    cid <== リッチエディットのコントロールid番号 
    srccid <-- ストリングリストのコントロールid番号 
    appendsw <-- 0:クリアしてから 1:末尾に追加 
     <esc>%51;621;cid;;;srccid;appendsw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== リッチエディットのコントロールid番号 
    srccid <-- ストリングリストのコントロールid番号 
    appendsw <-- 0:クリアしてから 1:末尾に追加 
     D LOADFROMLIST^ZVCMRCH6 
   【応答メッセージ】 
    Rhojyo -> リッチエディットの行数 
    Rselno -> ユーザがテキストを変更(0:無 1:変更) 
    Rselcnt -> リッチエディットの文字列の長さ文字数($L)(含む<cr><lf>)
    Rerr2 -> 内部エラー(処理の過程や例外発生エラー)
---------------------------------------------------------------------
■<<<リッチエディットに表示する文字列をストリングリストに保存する>>>
---------------------------------------------------------------------
[1] シーケンス

    cid <== リッチエディットのコントロールid番号 
    dstcid <-- ストリングリストのコントロールid番号 
     <esc>%51;622;cid;;;dstcid sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== リッチエディットのコントロールid番号 
    dstcid <-- ストリングリストのコントロールid番号 
     D SAVETOLIST^ZVCMRCH6 
   【応答メッセージ】 
    Rhojyo -> リッチエディットの行数 
    Rselno -> ユーザがテキストを変更(0:無 1:変更) 
    Rselcnt -> リッチエディットの文字列の長さ文字数($L)(含む<cr><lf>)
    Rerr2 -> 内部エラー(処理の過程や例外発生エラー)
---------------------------------------------------------------------
■<<<リッチエディットに表示する文字列をストリームからロードする>>>
---------------------------------------------------------------------
[1] シーケンス

    cid <== リッチエディットのコントロールid番号 
    srccid <-- ストリームのコントロールid番号 
    offset <-- ソースストリームの読み書きを行う位置指定 
         0: ストリームの読み書きを行うオフセット値を0に 
            設定してから行います(先頭から) 
         1: ソースストリームの現在オフセット値 
     <esc>%51;670;cid;;;srccid;offset;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== リッチエディットのコントロールid番号 
    srccid <-- ストリームのコントロールid番号 
    offset <-- ソースストリームの読み書きを行う位置指定 
         0: ストリームの読み書きを行うオフセット値を0に 
            設定してから行います(先頭から) 
         1: ソースストリームの現在オフセット値 
     D LOADFROMSTREAM^ZVCMRCH6 
   【応答メッセージ】 
    Rhojyo -> リッチエディットの行数 
    Rselno -> ユーザがテキストを変更(0:無 1:変更) 
    Rselcnt -> リッチエディットの文字列の長さ文字数($L)(含む<cr><lf>)
    Rerr2 -> 内部エラー(処理の過程や例外発生エラー)
---------------------------------------------------------------------
■<<<リッチエディットに表示する文字列をストリームに保存する>>>
---------------------------------------------------------------------
[1] シーケンス

    cid <== リッチエディットのコントロールid番号 
    dstcid <-- ストリームのコントロールid番号 
    offset <-- 保存先ストリームの読み書きを行う位置指定 
         0: 保存先ストリームの読み書きを行うオフセット値を0に 
            設定してから行います(先頭に保存) 
         1: 保存先ストリームの現在オフセット値 
     <esc>%51;671;cid;;;dstcid;offset;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== リッチエディットのコントロールid番号 
    dstcid <-- ストリームのコントロールid番号 
    offset <-- 保存先ストリームの読み書きを行う位置指定 
         0: 保存先ストリームの読み書きを行うオフセット値を0に 
            設定してから行います(先頭に保存) 
         1: 保存先ストリームの現在オフセット値 
     D SAVETOSTREAM^ZVCMRCH6 
   【応答メッセージ】 
    Rhojyo -> リッチエディットの行数 
    Rselno -> ユーザがテキストを変更(0:無 1:変更) 
    Rselcnt -> リッチエディットの文字列の長さ文字数($L)(含む<cr><lf>)
    Rerr2 -> 内部エラー(処理の過程や例外発生エラー)
---------------------------------------------------------------------
■<<<リッチエディットに表示する文字列を別のストリングリストから設定する>>>
---------------------------------------------------------------------
[1] シーケンス

    cid <== リッチエディットのコントロールid番号 
    srccid <-- ストリングリストのコントロールid番号 
     <esc>%51;673;cid;;;srccid sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== リッチエディットのコントロールid番号 
    srccid <-- ストリングリストのコントロールid番号 
     D ASSIGN6^ZVCMRCH6 
   【応答メッセージ】 
    Rhojyo -> リッチエディットの行数 
    Rselno -> ユーザがテキストを変更(0:無 1:変更) 
    Rselcnt -> リッチエディットの文字列の長さ文字数($L)(含む<cr><lf>)
    Rerr2 -> 内部エラー(処理の過程や例外発生エラー)
───────────────────────────────────
---------------------------------------------------------------------
■<<<文字列リストのリスト件数を取得 >>>
---------------------------------------------------------------------
[1] シーケンス

    cid <== リッチエディットのコントロールid番号 
     <esc>%51;701;cid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== リッチエディットのコントロールid番号 
     D COUNT^ZVCMRCH6 
   【応答メッセージ】 
    Rhojyo -> リッチエディットの行数 
    Rselno -> ユーザがテキストを変更(0:無 1:変更) 
    Rselcnt -> リッチエディットの文字列の長さ文字数($L)(含む<cr><lf>)
    Rmain -> リスト件数 
---------------------------------------------------------------------
■<<<<CR><LF>区切りで全ての文字列を結合し取得する >>>
---------------------------------------------------------------------
[1] シーケンス

    cid <== リッチエディットのコントロールid番号 
    rect <-- 531,532,533,534 を指定 
     <esc>%51;702;cid;;rect;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
    rectの領域 --> <CR><LF>区切りで結合した文字列 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== リッチエディットのコントロールid番号 
    rect <-- 531,532,533,534 を指定 
     D CRLFTEXT^ZVCMRCH6 
   【応答メッセージ】 
    Rhojyo -> リッチエディットの行数 
    Rselno -> ユーザがテキストを変更(0:無 1:変更) 
    Rselcnt -> リッチエディットの文字列の長さ文字数($L)(含む<cr><lf>)
    rectの領域 -> <CR><LF>区切りで結合した文字列 
    rectstr -> <CR><LF>区切りで結合した文字列 
    [*]rect文字列を取得するにはコントロールA等の終端文字を指定します 
    Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー)
---------------------------------------------------------------------
■<<<<CR><LF>で文字列リストの一部分を結合し取得する >>>
---------------------------------------------------------------------
[1] シーケンス

    cid <== リッチエディットのコントロールid番号 
    edit <-- (531,532,533,534)32763文字まで 
            0<->63 255文字まで 
    editstr <--取得開始位置インデックス(0,1,2,...) 
    rect <-- 531,532,533,534 を指定 
    count --> 取得希望件数 
                     0:以降全件を取得 
                     取得開始位置インデックス=0にすると先頭から全件 
     <esc>%51;703;cid;edit;rect;count;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
    rectの領域 --> 文字列リストの一部分を<CR><LF>で結合した取得文字列 
                  [*]文字列が引用符で囲まれることはありません! 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== リッチエディットのコントロールid番号 
    edit <-- (531,532,533,534)32763文字まで 
            0<->63 255文字まで 
    editstr <--取得開始位置インデックス(0,1,2,...) 
    rect <-- 531,532,533,534 を指定 
    count --> 取得希望件数 
                     0:全件を取得 
                     取得開始位置インデックス=0にすると先頭から全件 
     D CRLFPORTION^ZVCMRCH6 
   【応答メッセージ】 
    Rhojyo -> 最後に取り出しされた位置インデックス 
                取得された件数がゼロ件の場合は 0 となる 
    Rselno -> ユーザがテキストを変更(0:無 1:変更) 
                    取り出し部分の<CR><LF>で全て結合したときの(文字数) 
    Rselcnt -> リッチエディットの文字列の長さ文字数($L)(含む<cr><lf>)
    Rselno -> <CR><LF>で全て結合したときの(文字数) 
    Rmain -> 実際に取得された件数(最大インデックスを越えた場合countと異なる) 
    rectの領域 -> 文字列リストの一部分を<CR><LF>で結合した取得文字列 
                  [*]文字列が引用符で囲まれることはありません! 
    rectstr ->文字列リストの一部分を<CR><LF>で結合した取得文字列 
    Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー)
───────────────────────────────────
---------------------------------------------------------------------
■<<<文字列リストの行数を取得 >>>
---------------------------------------------------------------------
[1] シーケンス

    cid <== コントロールid番号 
     <esc>%51;701;cid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== コントロールid番号 
     D COUNT^ZVCMRCH6 
   【応答メッセージ】 
    Rhojyo -> リッチエディットの行数 
    Rselno -> ユーザがテキストを変更(0:無 1:変更) 
    Rselcnt -> リッチエディットの文字列の長さ文字数($L)(含む<cr><lf>)
    Roption -> x方向文字位置;y方向文字位置;選択開始文字位置;選択長さ;テキスト長さ 
    Rmain -> 行数 
---------------------------------------------------------------------
■<<<<CR><LF>区切りで全ての文字列を結合し取得する >>>
---------------------------------------------------------------------
[1] シーケンス

    cid <== コントロールid番号 
    rect <-- 531,532,533,534 を指定 
     <esc>%51;702;cid;;rect;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
    rectの領域 --> <CR><LF>区切りで結合した文字列 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== コントロールid番号 
    rect <-- 531,532,533,534 を指定 
     D CRLFTEXT^ZVCMRCH6 
   【応答メッセージ】 
    Rhojyo -> リッチエディットの行数 
    Rselno -> ユーザがテキストを変更(0:無 1:変更) 
    Rselcnt -> リッチエディットの文字列の長さ文字数($L)(含む<cr><lf>)
    Roption -> x方向文字位置;y方向文字位置;選択開始文字位置;選択長さ;テキスト長さ 
    rectの領域 -> <CR><LF>区切りで結合した文字列 
    rectstr -> <CR><LF>区切りで結合した文字列 
    [*]rect文字列を取得するにはコントロールA等の終端文字を指定します 
    Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー)
---------------------------------------------------------------------
■<<<<CR><LF>で文字列リストの一部分を結合し取得する >>>
---------------------------------------------------------------------
[1] シーケンス

    cid <== コントロールid番号 
    edit <-- (531,532,533,534)32763文字まで 
            0<->63 255文字まで 
    editstr <--取得開始位置インデックス(0,1,2,...) 
    rect <-- 531,532,533,534 を指定 
    count --> 取得希望件数 
                     0:以降全件を取得 
                     取得開始位置インデックス=0にすると先頭から全件 
     <esc>%51;703;cid;edit;rect;count;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
    rectの領域 --> 文字列リストの一部分を<CR><LF>で結合した取得文字列 
                  [*]文字列が引用符で囲まれることはありません! 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== コントロールid番号 
    edit <-- (531,532,533,534)32763文字まで 
            0<->63 255文字まで 
    editstr <--取得開始位置インデックス(0,1,2,...) 
    rect <-- 531,532,533,534 を指定 
    count --> 取得希望件数 
                     0:全件を取得 
                     取得開始位置インデックス=0にすると先頭から全件 
     D CRLFPORTION^ZVCMRCH6 
   【応答メッセージ】 
    Rhojyo -> 最後に取り出しされた位置インデックス(行位置) 
                取得された件数がゼロ件の場合は 0 となる 
    Rselno -> ユーザがテキストを変更(0:無 1:変更) 
    Rselcnt -> リッチエディットの文字列の長さ文字数($L)(含む<cr><lf>)
                    <CR><LF>で全て結合したときの(文字数)
    Roption -> x方向文字位置;y方向文字位置;選択開始文字位置;選択長さ;テキスト長さ 
    Rmain -> 実際に取得された件数(最大インデックスを越えた場合countと異なる) 
    rectの領域 -> 文字列リストの一部分を<CR><LF>で結合した取得文字列 
                  [*]文字列が引用符で囲まれることはありません! 
    rectstr ->文字列リストの一部分を<CR><LF>で結合した取得文字列 
    Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー)
---------------------------------------------------------------------
■<<<<CR><LF>区切りで全ての文字列を設定する >>>
---------------------------------------------------------------------
[1] シーケンス

    cid <== コントロールid番号 
    edit <-- 531,532,533,534 を指定 
     <esc>%51;718;cid;edit;;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== コントロールid番号 
    edit <-- 531,532,533,534 を指定 
    [*]<CR>または<LF>で区切ったテキストを指定します 
     D SETTEXT6^ZVCMRCH6 
   【応答メッセージ】 
    Rhojyo -> リッチエディットの行数 
    Rselno -> ユーザがテキストを変更(0:無 1:変更) 
    Rselcnt -> リッチエディットの文字列の長さ文字数($L)(含む<cr><lf>)
    Roption -> x方向文字位置;y方向文字位置;選択開始文字位置;選択長さ;テキスト長さ 
    Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー)
---------------------------------------------------------------------
■<<<$と^はキー入力が禁止許可を設定 >>>
---------------------------------------------------------------------
[1] シーケンス

    cid <== コントロールid番号 
    sw <-- 0:$と^はキー入力が禁止(デフォルト値) 1:許可 を指定 
     <esc>%51;791;cid;;;sw;;; sp M 
   【応答メッセージ無】 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== コントロールid番号 
    sw <-- 0:$と^はキー入力が禁止(デフォルト値) 1:許可 を指定 
     D DOLINPUT^ZVCMRCH6 
   【応答メッセージ無】 
---------------------------------------------------------------------
■<<<リッチエディットの応答文字列の有無を設定 >>>
---------------------------------------------------------------------
[1] シーケンス

    cid <== コントロールid番号 
    sw <-- 0:応答に含めない 1:応答に含める を指定 
     <esc>%51;792;cid;;;sw;;; sp M 
   【応答メッセージ無】 
---------------------------------------------------------------
[2] Cache用共通関数

    cid <== コントロールid番号 
    sw <-- 0:応答に含めない 1:応答に含める を指定 
     D RESPONSETEXT^ZVCMRCH6 
   【応答メッセージ無】 
───────────────────────────────────
              13
     |目次前ページ次ページ