VarAsDecimal メソッド
VarAsDecimalは、対象のバリアントを小数として返します。
構文は以下のとおりです。
VarAsDecimal( Subject )
This example resizes #PHBN_1 using a variant:
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)
EVTROUTINE HANDLING(#PHBN_1.Click)
#myvariant := 50
set #phbn_1 Height(#VL.VarAsDecimal(#myvariant))
ENDROUTINE
End_Com