Animation - Stop メソッド
アニメーションを停止し、アニメーションの最後に進みます。
Stop メソッドは、アニメーションを停止するために使用されます。 アニメーションは、アニメーションが完了するまで、コントロールの実際のプロパティ値に影響を与えません。終了前にアニメーションを停止すると すべてのコントロールがアニメーションが開始される前の状態に戻ります。
この例では、ラベルをクリックすると3秒で200ピクセル移動します。アニメーション中に[停止]ボタンをクリックすると、ラベルは開始点に戻ります。
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(112) Clientwidth(1050) Height(151) Width(1066) Left(218) Top(203) Theme(#SYS_THEME<2015Orange>)
Define_Com Class(#PRIM_VS.Style) Name(#Style1) Backgroundbrush(#Brush1)
Define_Com Class(#PRIM_VS.SolidBrush) Name(#Brush1) Color(Theme500)
Define_Com Class(#PRIM_labl) Name(#Label) Displayposition(1) Left(8) Parent(#COM_OWNER) Tabposition(1) Top(8) Tabstop(False) Height(65) Width(105) Alignment(Center) Verticalalignment(Center) Style(#Style1) Caption('Click')
Define_Com Class(#PRIM_PHBN) Name(#Stop) Caption('Stop') Displayposition(2) Left(8) Parent(#COM_OWNER) Tabposition(2) Top(80)
Define_Com Class(#prim_anim) Name(#Animation)
Define_Com Class(#prim_anim.Move) Name(#Animation1) Parent(#Animation) Left(200) Manage(#Label) Duration(3000)
Evtroutine Handling(#Label.Click)
#Label := "Animating"
#Animation.Start
Endroutine
Evtroutine Handling(#Stop.Click)
#Animation.Stop
Endroutine
Evtroutine Handling(#Animation.Ended)
#Label := ("Click (Left &1)").Substitute( #Label.left.AsString )
Endroutine
End_Com
2018 - V14SP1