VintaSoftTwain Control v6.0
VintaSoftTwain Object / Device_LightPath Property
In This Topic
    Device_LightPath Property
    In This Topic
    Gets or sets a value indicating whether the image must be captured transmissively or reflectively.
    Property type
    Read-write property
    Visual Basic
    Public Property Device_LightPath As enumLightPath
    Call this property after Device_Open and before Device_AcquireImage.

    You can get supported values of page sizes by GetDevice_PageSizes method.

    This property has effect only if User Interface is not used (Device_ShowUI=False).

    Information about error that occurs during getting/setting property value can be get using the Error and ErrorString properties.
    Here is an example that shows how to scan negatives using a scanner.
    Private VSTwain1 As New VintaSoftTwain()
    Private Sub ScanImages()
        ' open the device manager
        If Not VSTwain1.DeviceManager_Open() Then
            Exit Sub
        End If
        ' open the device
        If Not VSTwain1.Device_Open Then
            Exit Sub
        End If
        ' scan images without UI
        VSTwain1.Device_ShowUI = False
        ' specify that device must scan negatives
        VSTwain1.Device_LightPath = LIGHTPATH.LightPath_Transmissive
        ' subscribe to the device events
        AddHandler VSTwain1.DeviceImageAcquired, AddressOf VSTwain1_ImageAcquired
        AddHandler VSTwain1.DeviceScanCompleted, AddressOf VSTwain1_ScanCompleted
        AddHandler VSTwain1.DeviceScanFailed, AddressOf VSTwain1_ScanFailed
        AddHandler VSTwain1.DeviceScanCanceled, AddressOf VSTwain1_ScanCanceled
        ' acquire images asynchronously
    End Sub
    Private Sub VSTwain1_ImageAcquired()
        ' get index of acquired image
        Dim imageIndex As Integer = VSTwain1.AcquiredImages_Count - 1
        ' save acquired image to TIFF file
        If Not VSTwain1.AcquiredImages_Save(imageIndex, "test.tif") Then
        End If
    End Sub
    Private Sub VSTwain1_ScanCompleted()
        Console.WriteLine("Scan is completed.")
    End Sub
    Private Sub VSTwain1_ScanFailed(errorString As String)
        Console.WriteLine(String.Format("Scan is failed: {0}.", errorString))
    End Sub
    Private Sub VSTwain1_ScanCanceled()
        Console.WriteLine("Scan is canceled.")
    End Sub
    See Also