PDA

View Full Version : خطا scan



a1b2uu
یک شنبه 15 اسفند 1389, 12:41 عصر
ImportsSystem
ImportsSystem.Collections
ImportsSystem.ComponentModel


ImportsSystem.Data


ImportsSystem.Drawing


ImportsSystem.Text


ImportsSystem.Windows.Forms


ImportsSystem.Drawing.Imaging


ImportsBytescout.Scan


ImportsSystem.IO



ImportsSystem.Collections.Generic


ImportsSystem.Linq


PublicClass Form1



PrivateSub btnScanToImagesAsync_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScanToImagesAsync.Click


Dim scan AsNew Scan()

scan.SaveTo = SaveTo.ImageObject

AddHandler scan.TransferFinished, AddressOf scan_TransferFinished
scan.AcquireImagesAsync(






Me.Handle)


EndSub


PrivateSub scan_TransferFinished(ByVal sender As Scan, ByVal scannedImages As ArrayList)


FillTabsWithImages(scannedImages)

EndSub





PrivateSub FillTabsWithImages(ByVal images As ArrayList)


TabControl1.TabPages.Clear()

For i AsInteger = 0 To images.Count - 1

Dim page AsNew TabPage()
Dim pb AsNew PictureBox()
pb.Dock = DockStyle.Fill
pb.SizeMode = PictureBoxSizeMode.Zoom
IfTypeOf images(i) Is Image Then
page.Text =







"Image " + (i + 1).ToString()


pb.Image = DirectCast(images(i), Image)


Else

page.Text =





DirectCast(images(i), String)


pb.Image = Image.FromFile(DirectCast(images(i), String))


EndIf

page.Controls.Add(pb)

TabControl1.TabPages.Add(page)
Next
EndSub







PrivateSub btnScanToFilesAsync_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScanToFilesAsync.Click


Dim scan AsNew Scan()

scan.SaveTo = SaveTo.File





scan.OutputFormat = OutputFormat.JPEG


AddHandler scan.TransferFinished, AddressOf scan_TransferFinished

scan.AcquireImagesAsync(





Me.Handle)


EndSub


PrivateSub btnOptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOptions.Click

Scan.ShowOptionsDialog(New Scan())

EndSub






کد برنامم اینه زمانی که روی دکمه btnScanToImagesAsyncو btnScanToFilesAsync کلیک میکنم error زیر را میدهد.دوستان لطفا منو راهنمایی کنید.


An attempt was made to load a program with an incorrect format. (Exception from HRESULT: 0x8007000B)"


با تشکر