萨拉夫吐温多次扫描 [英] Saraff Twain multiple scanning

问题描述

我有一个带有6个图片盒的表格...所以我想扫描6个项目....我正在使用saraff twain ..

请帮助...我有一些代码。 。

I have one form with 6 pictures boxes... so I want to scan 6 items.... I am using saraff twain..
please help... i have some code..

Private Sub scanButton_Click(sender As System.Object, e As System.EventArgs) Handles scanButton.Click
    Try
        Me._twain32.Acquire()
    Catch ex As Exception
        MessageBox.Show(ex.Message, ex.GetType().Name, MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub


Private Sub _twain32_AcquireCompleted1(sender As System.Object, e As System.EventArgs) Handles _twain32.AcquireCompleted
    Try
        If Not Me.Photopicturebox1.Image Is Nothing Then
            Me.Photopicturebox1.Image.Dispose()
        End If
        Me.Photopicturebox1.Image = Me._twain32.GetImage(0)
        Me.Photopicturebox1.Visible = True
    Catch ex As Exception
        MessageBox.Show(ex.Message, ex.GetType().Name, MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

但这只在pictuyrebox1中保存图片..如何我可以保存在其他人....请帮助....

but this save image in pictuyrebox1 only.. how can I save in others.... please help....

推荐答案

Private _boxes As PictureBox()
Private _index As Integer

Private ReadOnly Property Boxes() As PictureBox()
	Get
		If Me._boxes Is Nothing Then
			Me._boxes = New PictureBox() {Me.pictureBox1, Me.pictureBox2, Me.pictureBox3, Me.pictureBox4, Me.pictureBox5, Me.pictureBox6}
		End If
		Return Me._boxes
	End Get
End Property

Private Property CurrentImage() As Image
	Get
		Return Me.Boxes(Me._index).Image
	End Get
	Set
		Me.Boxes(Me._index).Image = value
	End Set
End Property

Private Sub _BeginAcquire(index As Integer)
	Me._index = index
	Me.scanButton1.Enabled = InlineAssignHelper(Me.scanButton2.Enabled, InlineAssignHelper(Me.scanButton3.Enabled, InlineAssignHelper(Me.scanButton4.Enabled, InlineAssignHelper(Me.scanButton5.Enabled, InlineAssignHelper(Me.scanButton6.Enabled, False)))))
	Me._twain.Acquire()
End Sub

Private Sub _EndAcquire()
	If Me.CurrentImage IsNot Nothing Then
		Me.CurrentImage.Dispose()
	End If
	If Me._twain.ImageCount > 0 Then
		Me.CurrentImage = Me._twain.GetImage(0)
	End If
	Me.scanButton1.Enabled = InlineAssignHelper(Me.scanButton2.Enabled, InlineAssignHelper(Me.scanButton3.Enabled, InlineAssignHelper(Me.scanButton4.Enabled, InlineAssignHelper(Me.scanButton5.Enabled, InlineAssignHelper(Me.scanButton6.Enabled, True)))))
End Sub

Private Sub _twain_AcquireCompleted(sender As Object, e As EventArgs)
	Try
		Me._EndAcquire()
	Catch ex As Exception
		MessageBox.Show(ex.Message, "SAMPLE1", MessageBoxButtons.OK, MessageBoxIcon.[Error])
	End Try
End Sub

Private Sub scanButton1_Click(sender As Object, e As EventArgs)
	Try
		Me._BeginAcquire(0)
	Catch ex As Exception
		MessageBox.Show(ex.Message, "SAMPLE1", MessageBoxButtons.OK, MessageBoxIcon.[Error])
	End Try
End Sub

Private Sub scanButton2_Click(sender As Object, e As EventArgs)
	Try
		Me._BeginAcquire(1)
	Catch ex As Exception
		MessageBox.Show(ex.Message, "SAMPLE1", MessageBoxButtons.OK, MessageBoxIcon.[Error])
	End Try
End Sub

Private Sub scanButton3_Click(sender As Object, e As EventArgs)
	Try
		Me._BeginAcquire(2)
	Catch ex As Exception
		MessageBox.Show(ex.Message, "SAMPLE1", MessageBoxButtons.OK, MessageBoxIcon.[Error])
	End Try
End Sub

Private Sub scanButton4_Click(sender As Object, e As EventArgs)
	Try
		Me._BeginAcquire(3)
	Catch ex As Exception
		MessageBox.Show(ex.Message, "SAMPLE1", MessageBoxButtons.OK, MessageBoxIcon.[Error])
	End Try
End Sub

Private Sub scanButton5_Click(sender As Object, e As EventArgs)
	Try
		Me._BeginAcquire(4)
	Catch ex As Exception
		MessageBox.Show(ex.Message, "SAMPLE1", MessageBoxButtons.OK, MessageBoxIcon.[Error])
	End Try
End Sub

Private Sub scanButton6_Click(sender As Object, e As EventArgs)
	Try
		Me._BeginAcquire(5)
	Catch ex As Exception
		MessageBox.Show(ex.Message, "SAMPLE1", MessageBoxButtons.OK, MessageBoxIcon.[Error])
	End Try
End Sub

你好，请尝试让sarafftwain扫描多张图片时出错。



这里我的代码如下;



Private Sub _BeginAcquire（index as Integer）

Me._index = index

Me.scanbtn.Enabled = Inl ineAssignHelper（Me.scn_c30_front.Enabled，InlineAssignHelper（Me.scn_c30_back.Enabled，InlineAssignHelper（Me.scan_auth.Enabled，InlineAssignHelper（Me.scan_cert.Enabled，InlineAssignHelper，False））））

Me._twain32 .Acquire（）

End Sub



Private Sub _EndAcquire（）

如果Me.CurrentImage IsNot Nothing Then

Me.CurrentImage.Dispose（）

结束如果

如果Me._twain32.ImageCount> 0然后

Me.CurrentImage = Me._twain32.GetImage（0）

结束如果

Me.scanbtn.Enabled = InlineAssignHelper（我。 scn_c30_front.Enabled，InlineAssignHelper（Me.scn_c30_back.Enabled，InlineAssignHelper（Me.scan_auth.Enabled，InlineAssignHelper（Me.scan_cert.Enabled，True））））

End Sub



Private Sub _twain32_AcquireCompleted（发件人作为对象，e作为EventArgs）

尝试

Me._EndAcquire（）

Catch ex As Exception

MessageBox.Show（ex.Message，ex.GetType（）。Name，MessageBoxButtons.OK，MessageBoxIcon。[Error]）

结束尝试< br $>
结束次级



私人子扫描btn_Click（发件人为对象，e为EventArgs）

尝试

Me._BeginAcquire（0）

Catch ex As Exception

MessageBox.Show（ex.Message，ex.GetType（）。Name，MessageBoxButtons.OK，食堂ageBoxIcon。[错误]）

结束尝试

结束子



私人子scn_c30_front_Click（发件人作为对象， e作为EventArgs）

尝试

Me._BeginAcquire（1）

Catch ex As Exception

MessageBox.Show （ex.Message，ex.GetType（）。Name，MessageBoxButtons.OK，MessageBoxIcon。[Error]）

结束尝试

结束子



Private Sub scn_c30_back_Click（发送者为对象，e为EventArgs）

尝试

Me._BeginAcquire（2）

Catch ex As Exception

MessageBox.Show（ex.Message，ex.GetType（）。Name，MessageBoxButtons.OK，MessageBoxIcon。[Error]）

结束尝试

结束子



私人子scan_auth_Click（发件人为对象，e为EventArgs）

尝试

Me._BeginAcquire（3）

Catch ex As Exception

MessageBox.Show（ex.Message，ex.GetType（）。Name，MessageBoxButtons.OK，MessageBoxIcon。[Error]）

结束尝试

结束子



私人子scan_cert_Click（发件人为对象，e为EventArgs）

尝试

Me._BeginAcquire （4）

Catch ex As Exception

MessageBox.Show（ex.Message，ex.GetType（）。Name，MessageBoxButtons.OK，MessageBoxIcon。[Error]）

结束尝试

结束次级

结束班级



这是错误讯息 -

hello, please am having error, while trying to make the sarafftwain scan multiple images

here his my code below;

Private Sub _BeginAcquire(index As Integer)
Me._index = index
Me.scanbtn.Enabled = InlineAssignHelper(Me.scn_c30_front.Enabled, InlineAssignHelper(Me.scn_c30_back.Enabled, InlineAssignHelper(Me.scan_auth.Enabled, InlineAssignHelper(Me.scan_cert.Enabled, InlineAssignHelper, False))))
Me._twain32.Acquire()
End Sub

Private Sub _EndAcquire()
If Me.CurrentImage IsNot Nothing Then
Me.CurrentImage.Dispose()
End If
If Me._twain32.ImageCount > 0 Then
Me.CurrentImage = Me._twain32.GetImage(0)
End If
Me.scanbtn.Enabled = InlineAssignHelper(Me.scn_c30_front.Enabled, InlineAssignHelper(Me.scn_c30_back.Enabled, InlineAssignHelper(Me.scan_auth.Enabled, InlineAssignHelper(Me.scan_cert.Enabled, True))))
End Sub

Private Sub _twain32_AcquireCompleted(sender As Object, e As EventArgs)
Try
Me._EndAcquire()
Catch ex As Exception
MessageBox.Show(ex.Message, ex.GetType().Name, MessageBoxButtons.OK, MessageBoxIcon.[Error])
End Try
End Sub

Private Sub scanbtn_Click(sender As Object, e As EventArgs)
Try
Me._BeginAcquire(0)
Catch ex As Exception
MessageBox.Show(ex.Message, ex.GetType().Name, MessageBoxButtons.OK, MessageBoxIcon.[Error])
End Try
End Sub

Private Sub scn_c30_front_Click(sender As Object, e As EventArgs)
Try
Me._BeginAcquire(1)
Catch ex As Exception
MessageBox.Show(ex.Message, ex.GetType().Name, MessageBoxButtons.OK, MessageBoxIcon.[Error])
End Try
End Sub

Private Sub scn_c30_back_Click(sender As Object, e As EventArgs)
Try
Me._BeginAcquire(2)
Catch ex As Exception
MessageBox.Show(ex.Message, ex.GetType().Name, MessageBoxButtons.OK, MessageBoxIcon.[Error])
End Try
End Sub

Private Sub scan_auth_Click(sender As Object, e As EventArgs)
Try
Me._BeginAcquire(3)
Catch ex As Exception
MessageBox.Show(ex.Message, ex.GetType().Name, MessageBoxButtons.OK, MessageBoxIcon.[Error])
End Try
End Sub

Private Sub scan_cert_Click(sender As Object, e As EventArgs)
Try
Me._BeginAcquire(4)
Catch ex As Exception
MessageBox.Show(ex.Message, ex.GetType().Name, MessageBoxButtons.OK, MessageBoxIcon.[Error])
End Try
End Sub
End Class

This is the error message -

Error   1   'InlineAssignHelper' is not declared. It may be inaccessible due to its protection.

Please help me, thank you in advance

这篇关于萨拉夫吐温多次扫描的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！