[ 
|../../index.htm#lansa/l4wdev03_0290.htm]
現在地:
プログレス・バー
フィールド名
PROGRESS(Signed2,0)
説明
フィールドをフォーム上にプログレス・バーとして表示します。
PROGRESSという、長さが2の符号つき数値フィールドを作成します。フィールド・コンポーネントのソースから、PRIM_EVEFビジュアライゼーションを削除し、代わりにプログレス・バー・ビジュアライゼーションを追加してください。いったんフィールドを保存し、ビジュアライゼーションを使用します。
フィールドのソース
Begin_Com Role(*EXTENDS #PRIM_OBJT)
Begin_Com Role(*Visual #PRIM_EVPB) Name(#VisualProgress) Defaultvisual(True) Height(19) Width(209) End_Com End_Com
フォームのソース
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(130) Clientwidth(492) Height(157) Left(304) Top(155) Define_Com Class(#PROGRESS.Visual) Name(#PROGRESS) Displayposition(1) Height(57) Labelhoralignment(Center) Labelposition(Top) Left(112) Marginleft(0) Margintop(19) Parent(#COM_OWNER) Tabposition(1) Top(16) Width(233) Define_Com Class(#PRIM_PHBN) Name(#PHBN_INC) Caption('Increment') Displayposition(2) Left(112) Parent(#COM_OWNER) Tabposition(2) Top(88) Define_Com Class(#PRIM_PHBN) Name(#PHBN_DEC) Caption('Decrement') Displayposition(3) Left(264) Parent(#COM_OWNER) Tabposition(3) Top(88) Evtroutine Handling(#PHBN_INC.Click) Change Field(#STD_IDNO) To('#PROGRESS + 1') Change Field(#PROGRESS) To(#STD_IDNO) Endroutine Evtroutine Handling(#PHBN_DEC.Click) Change Field(#STD_IDNO) To('#PROGRESS - 1') Change Field(#PROGRESS) To(#STD_IDNO) Endroutine End_Com
外観
[ |../../index.htm#lansa/l4wdev03_0290.htm]