neu

VERAG_PROG_ALLGEMEIN/frmScan.vb

@@ -401,6 +401,7 @@ Public Class frmScan
                     Me.fileName = addExtension(tbxSaveFileName.Text) ' DS.LAST_ID
                     Me.ReturnValue = PDF_bytes ' DS.LAST_ID
                     Me.DialogResult = Windows.Forms.DialogResult.OK
+
                 Case Else : saveToFile()
             End Select
         Catch ex As Exception
@@ -583,13 +584,16 @@ Public Class frmScan
 
     Private Sub frmScan_Load(sender As Object, e As EventArgs) Handles Me.Load
         InitDefaultValueForTWAIN()
-        cboResolution.Text = 150
+        cboResolution.Text = 240
 
         Select Case ART
             Case "DirectScan"
                 grpTyp.Visible = False
+            Case "QuickScan"
+
         End Select
 
+
     End Sub
 
 
@@ -652,8 +656,24 @@ Public Class frmScan
         End If
         tbxSaveFileName.Text = DefaultFileName
 
+        Select Case ART
+            Case "DirectScan"
+
+            Case "QuickScan"
+                Do
+                    startScan()
+                    Dim PDF_bytes As Byte() = m_PDFCreator.SaveAsBytes(TryCast(Me, ISave))
+                    Me.fileName = addExtension(tbxSaveFileName.Text) ' DS.LAST_ID
+                    Me.ReturnValue = PDF_bytes ' DS.LAST_ID
+                Loop While MsgBox("Möchten Sie weitere Dokumente scannen?" & vbNewLine & "NEIN = fertig!", vbYesNo) = vbYes
+
+                Me.DialogResult = Windows.Forms.DialogResult.OK
+        End Select
     End Sub
 
+    Private Sub frmScan_TabStopChanged(sender As Object, e As EventArgs) Handles Me.TabStopChanged
+
+    End Sub
 End Class