VarAsBoolean メソッド
VarAsBooleanは、Subjectバリアントをブール値として返します。
構文は以下のとおりです。
VarAsBoolean( Subject )
以下の例では、#PHBN_1がクリックされると#PHBN_2が無効になります。
Function Options(*DIRECT)
Import Libraries(#Prim_Libv) As(#VL)
BEGIN_COM ROLE(*EXTENDS #PRIM_FORM *implements #Prim_App.IHelpHandler) CLIENTHEIGHT(141) CLIENTWIDTH(152) COMPONENTTAG('Help for the form') HEIGHT(168) LEFT(681) TOP(135) WIDTH(160)
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_1) DISPLAYPOSITION(1) LEFT(24) PARENT(#COM_OWNER) TABPOSITION(1) TOP(64)
DEFINE_COM CLASS(*Variant) NAME(#MyVariant)
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_2) DISPLAYPOSITION(2) LEFT(24) PARENT(#COM_OWNER) TABPOSITION(2) TOP(32)
EVTROUTINE HANDLING(#PHBN_1.Click)
#myvariant := false
set #phbn_2 enabled(#VL.VarAsboolean(#myvariant))
ENDROUTINE
EVTROUTINE HANDLING(#PHBN_2.Click)
set #phbn_2 caption('Clicked')
ENDROUTINE
End_Com