8.4.7 *IsEqualTo演算子と*IsOfType演算子
*IS演算子と*ISNOT演算子の場合と同じように、*IsEqualTo、*IsNotEqualTo、*IsOfType、*IsNotOfTypeの各演算子を使用して、コンポーネント参照変数をテストできます。
If (#COM_OWNER *IsEqualTo #Phbn_1.Parent) Use Builtin(Ov_Message_box) With_Args("3. #COM_OWNER is equal to #PHBN_1.Parent") Endif If (#COM_OWNER *IsNotEqualTo #Phbn_1) Use Builtin(Ov_Message_box) With_Args("4. #COM_OWNER is not equal to #PHBN_1") Endif If (#COM_OWNER *IsOfType #AADFORM22) Use Builtin(Ov_Message_box) With_Args("5. #COM_OWNER is of type #AADFORM22") Endif If (#COM_OWNER *IsNotOfType #PRIM_PHBN) Use Builtin(Ov_Message_box) With_Args("6. #COM_OWNER is not of type #PRIM_PHBN") Endif