VintaSoftTwain Control v6.0
VintaSoftTwain Object / DeviceManager_ApplicationProductName Property
In This Topic
    DeviceManager_ApplicationProductName Property
    In This Topic
    Gets or sets the name of application which uses ActiveX.
    Property type
    Read-write property
    Visual Basic
    Public Property DeviceManager_ApplicationProductName As String
    Return Type
    The string value which specifies the application name. The default value is "VintaSoft Twain".
    Application name must contain at least 8 symbols, but not more than 31 symbol.

    This property can be used if you want to scan images without UI but you want to use progress indicator. For example, HP's scanners show the following message in the progress indicator: "Scanning to Vintasoft Twain...". Using this property you can change message in the progress indicator, for example, to the following: "Scanning to YourApplicationName...".

    This property should be used before the DeviceManager_Open method.
    This example shows how to set name of scanning application and acquire images from the device.
    Private VSTwain1 As New VintaSoftTwain()
    ''' <summary>
    ''' Scans images asynchronously.
    ''' </summary>
    Private Sub ScanImages()
        ' specify name of scanning application
        VSTwain1.DeviceManager_ApplicationProductName = "MyTwainApplication"
        ' open the device manager
        If Not VSTwain1.DeviceManager_Open() Then
            Exit Sub
        End If
        ' select device using standard device selection dialog
        ' open the device
        If Not VSTwain1.Device_Open Then
            Exit Sub
        End If
        ' specify that device UI must be shown
        VSTwain1.Device_ShowUI = True
        ' 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