a1b2uu
یک شنبه 15 اسفند 1389, 13: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)"
با تشکر
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)"
با تشکر