Quand je scanne plusieurs feuilles avec l'application le temps d'attente entre deux feuilles est assez long.
Y-a-til un moyen de l'écourté ?
Merci d'avance.
Voici le code
- Code: Select all
Public Sub FaireScan()
Dim nImageCount As Integer
Dim nImageID As Integer
AxTwain1.TwainCloseSource()
If AxTwain1.TwainOpenDefaultSource() Then
nImageCount = 1
InitScanConfig()
AxTwain1.TwainSetAutoFeed(True)
AxTwain1.TwainSetAutoScan(True)
AxTwain1.TwainSetCurrentResolution(300)
AxTwain1.TwainSetCurrentPixelType(GdTwain2.TwainPixelType.TWPT_RGB) 'RGB
AxTwain1.TwainSetCurrentBitDepth(8) ' 24 bpp
While AxTwain1.TwainAcquireToGdPictureImage(Me.Handle.ToInt32) <> 0
nImageID = AxTwain1.GetNativeImage
DisplayNativeImage(nImageCount)
nImageCount = nImageCount + 1
Call AxTwain1.CloseImage(nImageID)
End While
Choix_image.Maximum = nImageCount - 1
Choix_image.Value = nImageCount - 1
Call AxTwain1.TwainCloseSource()
Picture1.Image = bmp
Else
Dim message As String = ""
Select Case AxTwain1.TwainGetState
Case GdTwain2.TwainStatus.TWAIN_PRESESSION : message = "Présession, l'environnement Twain est de accessible"
Case GdTwain2.TwainStatus.TWAIN_SM_LOADED : message = "Le Source Manager a été chargé"
Case GdTwain2.TwainStatus.TWAIN_SM_OPEN : message = "Le Source Manager est ouverte"
Case GdTwain2.TwainStatus.TWAIN_SOURCE_OPEN : message = "La Source est ouverte"
Case GdTwain2.TwainStatus.TWAIN_SOURCE_ENABLED : message = "La source is accessible"
Case GdTwain2.TwainStatus.TWAIN_TRANSFER_READY : message = "La source est prête pour le transfère de données"
Case GdTwain2.TwainStatus.TWAIN_TRANSFERRING : message = "A source transfère des données"
End Select
MsgBox("Impossible d'ouvrir la source, Etat : " & message)
Exit Sub
End If
