IMcImageSetDataChannels Property |
![]() |
Namespace: MediaCy.IQL.Sets
Sub ShowSetDataChannel() If ImageSets.Count = 0 Then Exit Sub End If If ImageSets(0).DataChannels.Count = 0 then ' no data channels Exit Sub End If ' Note that the members of the channels collection are McImageSetChannel ' objects. We will use the Type property of the McImageSetChannel object to ' see which type of channel we are working with. Dim aChannel As McImageSetChannel Set aChannel = ImageSets(0).DataChannels(0) Dim strChannelType Select Case aChannel.Type Case mcisctDoubleData strChannelType = "Data channel of type Double" Case mcisctLongData strChannelType = "Data channel of type Long " Case mcisctStringData strChannelType = "Data channel of type String " Case mcisctVariantData strChannelType = "Data channel of type Variant " End Select ' Since we know that the channel is a data channel, we can get the ' type-specific channel object and then report data channel characteristics Dim aDataChannel As McImageSetDataChannel Set aDataChannel = aChannel MsgBox strChannelType + "'" + aDataChannel.Name + "'" + vbCrLf + "Duration: " + CStr(aDataChannel.Duration) End Sub