Loading a Data Set (Visual Basic)

Take the following steps to start a project and to add some code that loads a DICOM Data Set and prints information about the data set:

1.	Start Visual Basic.
2.	Add the LEAD COM Objects to your project.
	On the Project pull-down menu, use the Components option, and select the LEAD Raster View Control (14.5).
	On the Project pull-down menu, use the References option, and select the following: LEAD Raster Object Library (14.5) LEAD Raster Variant Object Library (14.5 LEAD Raster Process Object Library (14.5) LEAD Raster IO Object Library (14.5) LEAD DICOM Kernel COM Object Library (14.5) LEAD DICOM DS COM Object Library (14.5).
3.	Select the LEAD Raster View Control, then add the control to your main form.
4.	Add a command button to your form and name it as follows:
	Name	Caption
	LoadImage	Load Image
5.	Add the following initialization code to the main form's Load procedure. In online help, you can use the Edit pull-down menu to copy the block of code.

‘global declaration
Private WithEvents LEADDICOM1 As LEADDicomDS

Private Sub Form_Load()
    'Unlock DICOM support.
    'Note that this is a sample key, which will not work in your toolkit.
    Dim Factory As New LEADDicomFactory
    Dim DicomKernel As LEADDicomKernel
    Dim szLic As String

    szLic = "LEADTOOLS OCX Copyright (c) 1991-2005 LEAD Technologies, Inc."
    Set Factory = CreateObject("LEADDicomFactory.LEADDicomFactory")
    Set DicomKernel = Factory.CreateObject ("LEADDicomKernel.LEADDicomKernel", szLic)
    Set LEADDICOM1 = Factory.CreateObject ("LEADDicomDS.LEADDicomDS", szLic)
    DicomKernel.UnlockSupport L_SUPPORT_MEDICAL, "TestKey"

End Sub

6.	Code the LoadImage button's click procedure as follows:

Private Sub LoadLead_Click()
    Dim nRet As Integer
    Dim lCount As Integer
    Dim Result As Boolean

    LEADDICOM1.EnableMethodErrors = False
    nRet = LEADDICOM1.LoadDS ("D:\lead14\dist\images\dicom\image1.dic", 0)
    If (nRet <> DICOM_SUCCESS) Then
        MsgBox "Error " & CStr(nRet) & " loading file!"
    End If
    lCount = LEADDICOM1.GetModuleCount
    LEADDICOM1.FindIndexModule 0
    Result = LEADDICOM1.SetCurrentElement(LEADDICOM1.CurrentModule.Element(0).hElement)
    If (Result = True) Then
        MsgBox "There are " & CStr(lCount) & " modules in this data set." & (Chr(13)) & _
        "The first module has " & CStr(LEADDICOM1.CurrentModule.ElementCount) & _
        " elements." & (Chr(13)) & "The first element has: " & (Chr(13)) & "Tag number:" & _
        Hex(LEADDICOM1.CurrentElement.Tag) & (Chr(13)) & "VR: " & _
        Hex(LEADDICOM1.CurrentElement.VR)
    End If

    LEADDICOM1.EnableMethodErrors = True
End Sub

7.	Run your program to test it.
8.	Save the project to use as a starting point for other tasks in this tutorial.