' 最上位の ClearCase オブジェクトに接続します。 Dim CC As New ClearCase.Application ' VOB からトリガ タイプを取得します。 Dim VOB As CCVOB Set VOB = CC.VOB("¥caroltest") Dim TriggerType As CCTriggerType Set TriggerType = VOB.TriggerType("my_trigger") ' ディレクトリ エレメントにトリガ タイプを適用し、ディレクトリ サブセット リストから ' 継承リストが除外されるように指定します。 Dim Elem As CCElement Set Elem = CC.Element("¥caroltest") TriggerType.Apply Elem, "Applying trigger from CAL example", False, _ False, ccSubset_NotInheritance ' エレメント上のトリガについての情報を取得します。 Dim Trigger As CCTrigger Dim strAttached As String Dim strInheritance As String Set Trigger = Elem.Trigger("another_trigger") If Trigger.IsOnAttachedList Then strAttached = " is on attached list." End If If Trigger.IsOnInheritanceList Then strInheritance = " is on inheritance list." End If MsgBox "Trigger of type " & Trigger.Type & strAttached & strInheritance