FindFastConfig Example for Visual Basic
Private Sub RasterTwain_FastConfigEvent(ByVal pltResConfig As LTRASTERTWAINLib.ILTFastConfig)
' ... set your code here
RasterTwain.StopFindFastConfig = False
End Sub
Private Sub Command4_Click()
Dim nRet As Integer
Dim str As String
'Unlock Document support.
'Note that this is a sample key, which will not work in your toolkit.
RasterTwain.UnlockSupport L_SUPPORT_DOCUMENT, "TestKey"
RasterTwain.EnableFastConfigEvent = True
RasterTwain.UserFastConfigsCount = 2
RasterTwain.UserFastConfigs(0).TransferMode = L_LTWAIN_FILE_MODE
RasterTwain.UserFastConfigs(0).FileFormat = FILE_BMP
RasterTwain.UserFastConfigs(0).BitsPerPixel = 1
RasterTwain.UserFastConfigs(1).TransferMode = L_LTWAIN_FILE_MODE
RasterTwain.UserFastConfigs(1).FileFormat = FILE_TIF
RasterTwain.UserFastConfigs(1).BitsPerPixel = 1
nRet = RasterTwain.FindFastConfig("c:\Twain", L_LTWAIN_SHOW_USER_INTERFACE, 1, 1)
If nRet = 0 Then
MsgBox "FindFastConfig method was successful"
MsgBox "Result Scan Configs count = " + CStr(RasterTwain.FastConfigsResultCount)
str = "Transfer Mode = " + CStr(RasterTwain.FastConfigsResult(0).TransferMode) + Chr(13) + _
"File Format = " + CStr(RasterTwain.FastConfigsResult(0).FileFormat) + Chr(13) + _
"Buffer Size = " + CStr(RasterTwain.FastConfigsResult(0).BufferSize) + Chr(13) + _
"Required Time = " + CStr(RasterTwain.FastConfigsResult(0).RequiredTime)
MsgBox str, vbOKOnly, "Result Scan Configurations..."
str = "Transfer Mode = " + CStr(RasterTwain.BestFastConfig.TransferMode) + Chr(13) + _
"File Format = " + CStr(RasterTwain.BestFastConfig.FileFormat) + Chr(13) + _
"Buffer Size = " + CStr(RasterTwain.BestFastConfig.BufferSize) + Chr(13) + _
"Required Time = " + CStr(RasterTwain.BestFastConfig.RequiredTime)
MsgBox str, vbOKOnly, "Resulting Scan Configurations..."
Else
MsgBox "Error occurred in the FindFastConfig method!!!", vbOKOnly, "Error!!!"
End If
End Sub