Dim ac As IUIAutomationCondition '検索条件を表すインターフェイス Dim ua As CUIAutomation Set ua = New CUIAutomation Dim bc0 As IUIAutomationBoolCondition Set bc0 = ua.CreateFalseCondition() 'FALSE 条件を生成 'Set ac = bc0 Debug.Print bc0.BooleanValue '「0」 Dim bc1 As IUIAutomationBoolCondition Set bc1 = ua.CreateTrueCondition() 'TRUE 条件を生成 'Set ac = bc1 Debug.Print bc1.BooleanValue '「1」
Dim nc0 As IUIAutomationNotCondition Set nc0 = ua.CreateNotCondition(bc0) Set nc0 = ua.CreateNotCondition(bc1) 'Set ac = nc0 'Set ac = nc0.GetChild()
Dim ac0 As IUIAutomationAndCondition Dim oc0 As IUIAutomationOrCondition Set ac0 = ua.CreateAndCondition(bc0, bc1) Set oc0 = ua.CreateOrCondition(bc0, bc1)
Dim pc0 As IUIAutomationPropertyCondition Set pc0 = ua.CreatePropertyCondition(Id, Value) 'Set pc0 = ua.CreatePropertyConditionEx(Id, Value, Flags) 'Set ac = pc0 Debug.Print pc0.PropertyId Debug.Print pc0.PropertyValue Debug.Print pc0.PropertyConditionFlags