NetReceiveData 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 "List2" of type "ListBox" from ".NET Framework".
Private Sub LEADDICOMNet1_NetReceiveData(ByVal hNet As Integer, ByVal nID As Short, ByVal hDicomCS As Integer, ByVal hDicomDS As Integer) Handles LEADDICOMNet1.NetReceiveData
   'data was received
   List2.Items.Add("Data was received - " & " ID: " & CStr(nID))

   If (hDicomDS = 0) Then
      List2.Items.Add("Data is a command set only!")
   Else
      'save the data set to disk
      List2.Items.Add("Data includes a data set - saved to disk!")
      LEADDICOM1.SaveExtDS(hDicomDS, "c:\temp\test.dic", 0)
   End If
End Sub