コンテナ - Transitionメソッド 

コントロール間の変遷をアニメーション化

コンテナ (PRIM_CPST) のメンバ

パラメータ

名前

タイプ

データタイプ

記述

From

*Input

PRIM_CTRL

非表示にするコントロール

To

*Input

PRIM_CTRL

表示するコントロール

TransitionType

*Input (任意)

列挙

アニメーションのタイプ

Duration

*Input (任意)

整数

アニメーション終了までの時間(ミリ秒)

Delay

*Input (任意)

整数

アニメーション開始までの待ち時間(ミリ秒)

詳細

Transition メソッドは、 1 つのパネルの非表示と別のパネルの表示をアニメートします。 

利用可能なさまざまなトランジションがあります。完全なリストを取得するには、 IDE で AutoComplete または F2 を使用します。

この例では、クリックされたときに切り替えする 2 つのパネル 

     Begin_Com Role(*EXTENDS #PRIM_WEB) Height(456) Width(864) Layoutmanager(#TableLayout2)
Define_Com Class(#PRIM_VS.Style) Name(#Style1) Backgroundbrush(#Brush1)
Define_Com Class(#PRIM_VS.SolidBrush) Name(#Brush1) Color(43:130:255)

Define_Com Class(#PRIM_VS.Style) Name(#Style2) Backgroundbrush(#Brush2)
Define_Com Class(#PRIM_VS.SolidBrush) Name(#Brush2) Color(255:146:40)

Define_Com Class(#PRIM_TBLO) Name(#TableLayout1)
Define_Com Class(#PRIM_TBLO.Column) Name(#Column1) Displayposition(1) Parent(#TableLayout1)
Define_Com Class(#PRIM_TBLO.Row) Name(#Row1) Displayposition(1) Parent(#TableLayout1)

Define_Com Class(#PRIM_TBLO) Name(#TableLayout2)
Define_Com Class(#PRIM_TBLO.Column) Name(#Column2) Displayposition(1) Parent(#TableLayout2)
Define_Com Class(#PRIM_TBLO.Row) Name(#Row2) Displayposition(1) Parent(#TableLayout2)
Define_Com Class(#PRIM_TBLO.Item) Name(#Panel1Item1) Column(#Column2) Manage(#Panel1) Parent(#TableLayout2) Row(#Row2) Margintop(20) Marginbottom(20) Marginleft(20) Marginright(20)
Define_Com Class(#PRIM_TBLO.Item) Name(#Panel1Item2) Column(#Column2) Manage(#Panel2) Parent(#TableLayout2) Row(#Row2) Margintop(20) Marginbottom(20) Marginleft(20) Marginright(20)

Define_Com Class(#PRIM_PANL) Name(#Panel1) Displayposition(1) Left(20) Parent(#COM_OWNER) Tabposition(2) Tabstop(False) Top(20) Layoutmanager(#TableLayout1) Height(416) Width(824) Style(#Style1)
Define_Com Class(#PRIM_PANL) Name(#Panel2) Displayposition(2) Left(20) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(20) Layoutmanager(#TableLayout1) Height(416) Width(824) Style(#Style2) Visible(False)

Evtroutine Handling(#Panel1.Click #Panel2.Click)

If (#Panel1.Visible)

#Com_owner.Transition( #Panel1 #Panel2 Fade )

Else

#Com_owner.Transition( #Panel2 #Panel1 Fade )

Endif

Endroutine

End_Com



参照

すべてのコンポーネント クラス
テクニカルリファレンス

  • No labels