Soyez le premier à donner votre avis sur cette source.
Vue 14 170 fois - Téléchargée 1 232 fois
Dim I As Integer Declare Function TWAIN_AcquireToClipboard Lib "EZTW32.DLL" (ByVal hwndApp&, ByVal wPixTypes&) As Long Declare Function TWAIN_SelectImageSource Lib "EZTW32.DLL" (ByVal hwndApp&) As Long Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim r As Long r = TWAIN_SelectImageSource(Me.Handle.ToInt32) r = TWAIN_AcquireToClipboard(Me.Handle.ToInt32, 0) Image1.Image = Clipboard.GetDataObject.GetData(DataFormats.Bitmap) Image1.Image.Save("C:\Toto " & I & ".bmp") I = I + 1 MsgBox("Votre photo a été enregistré sur C:\Toto " & I - 1 & "") End Sub
Commentaires
mais j'ai eu le message d'erreur suivant au niveau de l'instruction
r = TWAIN_SelectImageSource(Me.Handle.ToInt32)
Un appel à la fonction PInvoke 'scannerimage!scannerimage.Mainform::TWAIN_SelectImageSource' a déséquilibré la pile. Cela peut se produire, car la signature PInvoke managée ne correspond pas à la signature cible non managée. Vérifiez que la convention d'appel et les paramètres de la signature PInvoke correspondent à la signature non managée cible.
Ca marche mais c'est pas top.
Maintenant c mieux
merci
c'est quel type d'objet Image1 ??
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.