Public ReadOnly Property Speeds As List(Of MediaWriterSpeed)

Dim instance As MediaWriterDrive
Dim value As List(Of MediaWriterSpeed)
 
value = instance.Speeds

public List<MediaWriterSpeed> Speeds {get;}

public:
property List<MediaWriterSpeed^>^ Speeds {
   List<MediaWriterSpeed^>^ get();
}

Public Sub DriveSpeedsExample()
      Try
         Dim writer As MediaWriter = New MediaWriter()
         Dim drives As List(Of MediaWriterDrive) = writer.Drives
         Dim drive As MediaWriterDrive = drives(1)
         Dim disc As MediaWriterDisc = drive.CreateDisc()

         disc.VolumeName = "TEST DISC"
         disc.SourcePathName = Path.Combine(LEAD_VARS.ImagesDir, "InputFiles")

         drive.LoadDisc()
         System.Threading.Thread.Sleep(1000)

         Dim speedIndex As Integer = -1
         For Each speed As MediaWriterSpeed In drive.Speeds
            If speed.Index > speedIndex Then
               speedIndex = speed.Index
            End If
         Next speed

         If speedIndex > -1 Then
            drive.CurrentSpeedIndex = speedIndex ' fastest speed
         End If

         drive.BurnDisc(disc)

         ' wait loop for demonstration purposes
         Do While drive.State <> MediaWriterState.StateIdle
            System.Windows.Forms.Application.DoEvents()
            System.Threading.Thread.Sleep(10)
         Loop

      Catch ex As Exception
         Assert.Fail("Test Failed: " & ex.Message)
      End Try
   End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

public void DriveSpeedsExample()
   {
      try
      {
         MediaWriter writer = new MediaWriter();
         List<MediaWriterDrive> drives = writer.Drives;
         MediaWriterDrive drive = drives[1];
         MediaWriterDisc disc = drive.CreateDisc();

         disc.VolumeName = "TEST DISC";
         disc.SourcePathName = Path.Combine(LEAD_VARS.ImagesDir, "InputFiles");

         drive.LoadDisc();
         System.Threading.Thread.Sleep(1000);

         int speedIndex = -1;
         foreach (MediaWriterSpeed speed in drive.Speeds)
         {
            if (speed.Index > speedIndex)
               speedIndex = speed.Index;
         }

         if (speedIndex>-1)
            drive.CurrentSpeedIndex = speedIndex; // fastest speed

         drive.BurnDisc(disc);

         // wait loop for demonstration purposes
         while (drive.State != MediaWriterState.StateIdle)
         {
            System.Windows.Forms.Application.DoEvents();
            System.Threading.Thread.Sleep(10);
         }
      }
      catch (Exception ex)
      {
         MessageBox.Show("Test Failed: " + ex.Message);
      }
   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}