NetReceiveCMoveResponse Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
'LEADDICOM1 is a DICOM Dataset defined outside this method
'This example uses the predefined variable "TreeView1" of type "TreeView" from ".NET Framework".
Private Sub LEADDICOMNet1_NetReceiveCMoveResponse(ByVal hNet As Integer, ByVal nPresentationID As Short, ByVal nMessageID As Short, ByVal pszClass As String, ByVal nStatus As Integer, ByVal nRemaining As Short, ByVal nCompleted As Short, ByVal nFailed As Short, ByVal nWarning As Short, ByVal hDS As Integer) Handles LEADDICOMNet1.NetReceiveCMoveResponse
   Dim NewNode As System.Windows.Forms.TreeNode
   Dim nRet As Short
   Dim szName As String

   NewNode = New System.Windows.Forms.TreeNode("Command Set - " & "C-MOVE-RESPONSE")

   TreeView1.Nodes.Add(NewNode)

   NewNode.EnsureVisible()

   NewNode.Nodes.Add("Presentation ID: " & CStr(nPresentationID))
   NewNode.Nodes.Add("Message ID: " & CStr(nMessageID))

   nRet = LEADDICOM1.FindUID(pszClass)

   If (nRet = 0) Then
      szName = LEADDICOM1.CurrentUID.Name

      NewNode.Nodes.Add("Affected SOP Class: " & szName & " - " & pszClass)
   Else
      NewNode.Nodes.Add("Affected SOP Class: " & pszClass)
   End If

   NewNode.Nodes.Add("Status: " & CStr(nStatus))
   NewNode.Nodes.Add("Remaining: " & CStr(nRemaining))
   NewNode.Nodes.Add("Completed: " & CStr(nCompleted))
   NewNode.Nodes.Add("Failed: " & CStr(nFailed))
   NewNode.Nodes.Add("Warning: " & CStr(nWarning))

End Sub