FindIndexModule Example for VB.NET
'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestFindIndexModule()
Dim lCount As Integer
Dim szOut As String
Dim x As Integer
LEADDICOM1.EnableMethodErrors = False
lCount = LEADDICOM1.GetModuleCount
LEADDICOM1.GetInfoDS()
szOut = "Found " & CStr(lCount) & " Modules" & Chr(10) & Chr(13)
For x = 0 To lCount - 1
LEADDICOM1.FindIndexModule(x)
LEADDICOM1.FindModuleIOD(LEADDICOM1.InfoClass,
LEADDICOM1.CurrentModule.Module)
szOut = szOut & "Module " & LEADDICOM1.CurrentIOD.Name & Chr(10) & Chr(13)
Next
MessageBox.Show(szOut)
LEADDICOM1.EnableMethodErrors = True
End Sub