｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜
─────────────────────────────────────
１４．ｺﾝﾎﾞﾎﾞｯｸｽ(TComboBox)の使い方
─────────────────────────────────────
[1]ｺﾝﾎﾞﾎﾞｯｸｽ(TComboBox)ｵﾌﾞｼﾞｪｸﾄの作成
→共通ルーチン【ZVCMCMB】
①予期しない値がｾｯﾄされていないようにローカル変数を削除します[D KILL^ZVCMSUB]
②ｲﾍﾞﾝﾄﾏｽｸを設定します、例では[V2EVENT^ZVCMCMB]ですが-＞適切に設定
③rectﾊﾟﾗﾒﾀを作成します。[D SETRECT^ZVCMCMB]
(x,y,w,h):位置サイズ情報(行桁サイズモードに設定後)
(color):ｺﾝﾄﾛｰﾙの色番号(Colorﾌﾟﾛﾊﾟﾃｨ)
--＞指定なしの場合ﾃﾞﾌｫﾙﾄの色
(font):ｺﾝﾄﾛｰﾙのﾌｵﾝﾄ番号(Fontﾌﾟﾛﾊﾟﾃｨ)
--＞指定なしの場合(null)[font=498]のﾌｵﾝﾄをｾｯﾄ[SETRECTにおいて]
--＞0:指定の場合ﾃﾞﾌｫﾙﾄのﾌｵﾝﾄ
(keycode):ｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄを発生させる終了ｷｰｺｰﾄﾞのｾｯﾄ
--＞0を指定した場合0番のｷｰｾｯﾄを指定した意味
※ｲﾍﾞﾝﾄﾏｽｸ設定でｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄを有効に設定しないとｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄは発生しません
(selno):初期状態で選択されている選択肢ｲﾝﾃﾞｯｸｽ(1:先頭)
--＞0を指定した場合何も選択されていない意味
(その他のﾌﾟﾛﾊﾟﾃｨ):(zorder,TabOrder,TabStop)...は必要があれば設定します。
※[D SETRECT^ZVCMCMB -＞ rectstrが作成される
④ｺﾝﾎﾞﾎﾞｯｸｽｺﾝﾄﾛｰﾙの中のﾘｽﾄに表示するを選択肢をeditﾊﾟﾗﾒﾀに設定します。[editstr]
※[S editstr="選択肢-1$選択肢-2$選択肢-3$$"]
⑤[D CREATE^ZVCMCMB]で使用されるﾊﾟﾗﾒﾀを設定する
※[S cid=(1～1023の一意の番号)]
※[S form=(1～1023の親ﾌｫｰﾑのﾌｫｰﾑ番号)]
※[S parent=(1～1023の親ｺﾝﾄﾛｰﾙのcid番号)]
※[S group=(0～32767のｸﾞﾙｰﾌﾟ番号)]
※[S opt=(Style)]
[10]opt -＞ 1:ｼﾝﾌﾟﾙｺﾝﾎﾞﾎﾞｯｸｽ(ｴﾃﾞｯﾄﾎﾞｯｸｽの入力可)(Style=csSimple)
ﾏｳｽﾀﾞﾌﾞﾙclickによる選択完了と
＜Enter＞ｷｰ等の終了ｷｰｺｰﾄﾞで選択完了ﾘｽﾎﾟﾝｽが送信されてきます
-＞ 2:ﾄﾞﾛｯﾌﾟﾀﾞｳﾝﾘｽﾄｺﾝﾎﾞﾎﾞｯｸｽ(ｴﾃﾞｯﾄﾎﾞｯｸｽの入力は不可)(Style=csDropDownList)
ﾏｳｽclickによる選択完了と
＜Enter＞ｷｰ等の終了ｷｰｺｰﾄﾞで選択完了ﾘｽﾎﾟﾝｽが送信されます
-＞ 3:ﾄﾞﾛｯﾌﾟﾀﾞｳﾝｺﾝﾎﾞﾎﾞｯｸｽ(ｴﾃﾞｯﾄﾎﾞｯｸｽの入力可)(Style=csDropDown)
ﾏｳｽﾀﾞﾌﾞﾙclickによる選択完了と
＜Enter＞ｷｰ等の終了ｷｰｺｰﾄﾞで選択完了ﾘｽﾎﾟﾝｽが送信されます
※[D CREATE^ZVCMCMB]ｺﾝﾄﾛｰﾙｵﾌﾞｼﾞｪｸﾄの作成
⑥作成後ﾘｽﾄの中に表示する選択肢を追加する。
※[S cid=(1～1023の一意の番号)]
※[S editstr="選択肢-1$選択肢-2$選択肢-3$$"]
※[D APPEND^ZVCMCMB]ｺﾝﾄﾛｰﾙの中に表示する選択肢を追加
⑦作成後ｴﾃﾞｯﾄﾎﾞｯｸｽの中に表示するテキストを変更する。
※[S cid=(1～1023の一意の番号)]
※[S editstr="文字列"]
※[D TEXT^ZVCMCMB]ｴﾃﾞｯﾄｺﾝﾄﾛｰﾙのテキストを変更する
⑧ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞからｴﾃﾞｯﾄﾎﾞｯｸｽの中に表示されているテキストを取得する
※ｲﾍﾞﾝﾄ種別=通常ﾌｫｰｶｽを失った時(11)と選択された(27)とｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄで処理します
※ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを読み込む[S RESP=$$ReadMsg^ZVCMSUB(Rtail)
※読み込んだ(受信)ｲﾍﾞﾝﾄ応答ﾒｯｾｰｼﾞを分解する[D VCMRESP^ZVCMSUB]
※(Revent2):ｲﾍﾞﾝﾄ種別
※(Rselno):選択された選択肢ｲﾝﾃﾞｯｸｽ(1:先頭)
※(Rselcnt):編集ﾎﾞｯｸｽの文字列の文字数[2008-4-4]
※(Rmain):編集ﾎﾞｯｸｽの文字列
※(Rkeycode):ｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄ時仮想ｷｰｺｰﾄﾞ
※(Rshift):シフト状態 0:無し 1:シフト 2:ｺﾝﾄﾛｰﾙ 4:＜ALT＞の組み合わせ
─────────────────────────────────────
[2]ｺﾝﾎﾞﾎﾞｯｸｽ(TComboBox)ｵﾌﾞｼﾞｪｸﾄのｲﾍﾞﾝﾄ
→共通ルーチン【ZVCMEVENT】
→共通ルーチン【ZVCMEVENT7】応答ｲﾍﾞﾝﾄｺｰﾄﾞ定数
─────────────────────────────────────
◆ ｲﾍﾞﾝﾄﾏｽｸを設定(応答を可にする)
※ｲﾍﾞﾝﾄ設定変数を初期化→ D CLEAR^ZVCMEVENT
─────────────────────────────────────
mask0= 2 : (1)マウス左クリックｲﾍﾞﾝﾄ応答(ﾋﾞｯﾄ1)
※ｲﾍﾞﾝﾄ設定変数を設定 → D CLICK^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Click],[Revent1=EV1Click]
─────────────────────────────────────
mask0= 4 : (2)マウス右クリック(ポップアップ)ｲﾍﾞﾝﾄ応答(ﾋﾞｯﾄ2)
※ｲﾍﾞﾝﾄ設定変数を設定 → D POPUP^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2RClick],[Revent1=EV1Popup]
─────────────────────────────────────
mask0= 8 : (3)キーボードｲﾍﾞﾝﾄ応答(ﾋﾞｯﾄ3)
※ｲﾍﾞﾝﾄ設定変数を設定 → D KEYBORD^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Keybord],[Revent1=EV1Keybord]
─────────────────────────────────────
mask1= 8 : (11)フォーカスを失う時応答(ﾋﾞｯﾄ3)
※ｲﾍﾞﾝﾄ設定変数を設定 → D KILLFOCUS^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Exit],[Revent1=EV1Exit]
─────────────────────────────────────
mask1= 16 : (12)フォーカスを得る時応答(ﾋﾞｯﾄ4)
※ｲﾍﾞﾝﾄ設定変数を設定 → D SETFOCUS^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Enter],[Revent1=EV1Enter]
─────────────────────────────────────
mask2= 64 : (22)マウス左ダブルクリック応答(ﾋﾞｯﾄ6)
※ｲﾍﾞﾝﾄ設定変数を設定 → D LEFTDBL^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2DblClick],[Revent1=EV1DblClick]
─────────────────────────────────────
mask3= 1 : (24)タブの変更/値が変更等(Change)(ﾋﾞｯﾄ0)
◆◆ ｲﾍﾞﾝﾄが頻繁に発生しますのでなるべく発生しない設定にしておく ◆◆
※ｲﾍﾞﾝﾄ設定変数を設定 → D CHANGE^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Change],[Revent1=EV1Other]
─────────────────────────────────────
mask3= 8 : (27)選択された(Select)(ﾋﾞｯﾄ3)%%%[2007-10-12]%%%
※ｲﾍﾞﾝﾄ設定変数を設定 → D SELECT^ZVCMEVENT
※ﾘｽﾎﾟﾝｽ応答ﾒｯｾｰｼﾞ中のｲﾍﾞﾝﾄｺｰﾄﾞ→ [Revent2=EV2Select],[Revent1=EV1Other]
─────────────────────────────────────
※ｲﾍﾞﾝﾄﾏｽｸを設定 → D SETEVENT^ZVCMEVENT
─────────────────────────────────────
[3] ZVCSCBA --＞
※ 少量の選択肢をﾃﾞｰﾀﾍﾞｰｽからｺﾝﾎﾞﾎﾞｯｸｽに全件表示します。
ただし添字の異なった次元にデータを持つ場合には使用出来ません
＜＜＜入力変数＞＞＞
※※※ テーブルに関する情報変数 ※※※
TTYPE =＞ 定型テーブル名と添字の深さ
TNAMEとLEVEL,SUBSCR(i) は
(場合によってはPOSも)自動的に決定されます
※※他の入力変数は指定した値がそのまま有効です
null/＜undef＞の時はTNAME,LEVELで指定します
TNAME =＞ 汎用テーブル名(グローバル名) ex. LIST
TUCI =＞ テーブルuci
TVOL =＞ テーブルvol
LEVEL =＞ テーブルグローバルの添字の深さ(次元)1,2,3...
SUBSCR(i) =＞ グローバルの添字の文字列(固定定数)
ex. LEVEL=3 ならば SUBSCR(1)とSUBSCR(2)を設定する
※※※ コンボボックス表示に関する情報変数 ※※※
POS =＞ テーブル名称文字列の位置($P)デリミタの何番目か
DELIM =＞ デリミタ文字(^)がデフォルト)
TOP =＞ コンボボックスの上端の行位置
LEFT =＞ コンボボックスの左端の桁位置
WIDTH =＞ コンボボックスの幅
HEIGHT=＞ コンボボックスの高さ
id -＞ VCM control id番号
PARENT -＞ 親のフォームcid
FORM -＞ フォーム番号
GROUP -＞ グループ番号
-----＜＜＜リストボックスに１回に全件表示する＞＞＞--------
INITSTR -＞ コンボボックスに初期表示する文字列(入力結果)
OPT --＞ 1:シンプルコンボボックス(結果=INITSTR)
2:ドロップダウンリスト(結果=INITSTR と SELECT)
3:ドロップダウン(結果=INITSTR)
SELECT -＞ 予め選択された選択肢の添字(LEVEL)(選択結果)
-----＜＜＜以下RECT,opt,pm1,...パラメタを参照＞＞＞--------
font -＞ font番号
color -＞ 色番号
パラメタ他にもあります
─────────────────────────────────────
[使い方]
※ ＜＜＜ﾛｰｶﾙ変数初期化＞＞＞ D KILL^ZVCSCBA
※ ＜＜＜作成時呼び出し＞＞＞ D CREATE^ZVCSCBA
※ ＜＜＜選択時呼び出し＞＞＞ D SELECTED^ZVCSCBA
※ ＜＜＜ﾌｫｰｶｽを失った時呼び出し＞＞＞ D KILLFOCUS^ZVCSCBA
※ ＜＜＜廃棄時呼び出し＞＞＞ D DESTROY^ZVCSCBA
※ラベル(TEST)から(CREATE)の前迄は、使い方のサンプルです。
※ラベル(CREATE)以降は、＜＜＜共通サブルーチン部＞＞＞です。
※ご注意[cid=990,991,992,993,994は予約されています]
※このルーチンをコピーして自分で都合良く変更しても結構です。
─────────────────────────────────────
[4] ZVCSCBB --＞
※※※多量のデータベースからコンボボックスに一部分表示します
ただし添字の異なった次元にデータを持つ場合には
使用出来ません
＜＜＜入力変数＞＞＞
※※※ テーブルに関する情報変数 ※※※
TTYPE =＞ 定型テーブル名と添字の深さ
TNAMEとLEVEL,SUBSCR(i) は
(場合によってはPOSも)自動的に決定されます
※※他の入力変数は指定した値がそのまま有効です
null/＜undef＞の時はTNAME,LEVELで指定します
TNAME =＞ 汎用テーブル名(グローバル名) ex. LIST
TUCI =＞ テーブルuci
TVOL =＞ テーブルvol
LEVEL =＞ テーブルグローバルの添字の深さ(次元)1,2,3...
SUBSCR(i) =＞ グローバルの添字の文字列(固定定数)
ex. LEVEL=3 ならば SUBSCR(1)とSUBSCR(2)を設定する
※※※ コンボボックス表示に関する情報変数 ※※※
POS =＞ テーブル名称文字列の位置($P)デリミタの何番目か
DELIM =＞ デリミタ文字(^)がデフォルト)
TOP =＞ コンボボックスの上端の行位置
LEFT =＞ コンボボックスの左端の桁位置
WIDTH =＞ コンボボックスの幅
HEIGHT=＞ コンボボックスの高さ
id -＞ VCM control id番号
PARENT -＞ 親のフォームcid
FORM -＞ フォーム番号
GROUP -＞ グループ番
READCNT -＞ コンボボックスに１回に表示する選択肢の数
INITSTR -＞ コンボボックスに初期表示する文字列(入力結果)
OPT --＞ 1:シンプルコンボボックス(結果=INITSTR)
2:ドロップダウンリスト(結果=INITSTR と SELECT)
3:ドロップダウン(結果=INITSTR)
SELECT -＞ 予め選択された選択肢の添字(LEVEL)(選択結果)
-----＜＜＜以下RECT,opt,pm1,...パラメタを参照＞＞＞--------
font -＞ font番号
color -＞ 色番号
パラメタ他にもあります
─────────────────────────────────────
[使い方]
※ ＜＜＜ﾛｰｶﾙ変数初期化＞＞＞ D KILL^ZVCSCBB
※ ＜＜＜呼び出し＞＞＞ D CREATE^ZVCSCBB
※ ＜＜＜選択時呼び出し＞＞＞ D SELECTED^ZVCSCBB
※ ＜＜＜ﾌｫｰｶｽを失った時呼び出し＞＞＞ D KILLFOCUS^ZVCSCBB
※ ＜＜＜廃棄時呼び出し＞＞＞ D DESTROY^ZVCSCBB
※ ＜＜＜ﾊﾟﾗﾒﾀ再設定＞＞＞ D SETUPPM^ZVCSCBB
※ ＜＜＜操作不能設定＞＞＞ D DISGRP^ZVCSCBB
※ ＜＜＜操作可能設定＞＞＞ D ENAGRP^ZVCSCBB
※ ＜＜＜先頭ﾍﾟｰｼﾞ表示＞＞＞ D TOPPG^ZVCSCBB
※ ＜＜＜前ﾍﾟｰｼﾞ表示＞＞＞ D PREVPG^ZVCSCBB
※ ＜＜＜次ﾍﾟｰｼﾞ表示＞＞＞ D NEXTPG^ZVCSCBB
※ ＜＜＜末尾ﾍﾟｰｼﾞ表示＞＞＞ D TOPPG^ZVCSCBB
※ラベル(TEST)から(CREATE)の前迄は、使い方のサンプルです。
※ラベル(CREATE)以降は、＜＜＜共通サブルーチン部＞＞＞です。
※ご注意[cid=990,991,992,993,994は予約されています]
※このルーチンをコピーして自分で都合良く変更しても結構です。
─────────────────────────────────────
───────────────────────────────────
14-1
｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜