Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Me.SqlDataAdapter3.InsertCommand.Parameters(0).Value = Convert.ToInt32(TextBox22.Text) Me.BindingContext(DataSet31, "scan").EndCurrentEdit() Me.BindingContext(DataSet31, "scan").AddNew() AxVintaSoftTwain2.StartDevice() AxVintaSoftTwain2.SelectSource() AxVintaSoftTwain2.ShowUI = False AxVintaSoftTwain2.DisableAfterAcquire = True AxVintaSoftTwain2.OpenDataSource() AxVintaSoftTwain2.UnitOfMeasure = 0 ' inches' AxVintaSoftTwain2.PixelType = 2 ' RGB image' AxVintaSoftTwain2.Resolution = 200 ' 200 dpi' AxVintaSoftTwain2.Brightness = AxVintaSoftTwain2.BrightnessMaxValue AxVintaSoftTwain2.Contrast = 0 AxVintaSoftTwain2.SetImageLayout(1, 1, 5, 5) 'image size in inches' AxVintaSoftTwain2.Acquire() End Sub Private Sub VSTwain1_PostScan(ByVal sender As System.Object, ByVal e As AxVSTWAINLib._IVintaSoftTwainEvents_PostScanEvent) Handles AxVintaSoftTwain2.PostScan If e.flag <> 0 Then If AxVintaSoftTwain2.ErrorCode <> 0 Then MsgBox(AxVintaSoftTwain2.ErrorString) End If Else If Not (PictureBox1.Image Is Nothing) Then PictureBox1.Image.Dispose() PictureBox1.Image = Nothing End If PictureBox1.Image = AxVintaSoftTwain2.GetCurrentImage End If End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click Me.BindingContext.Item(DataSet31,"scan").EndCurrentEdit() Me.SqlDataAdapter3.Update(DataSet31) Me.DataSet31.AcceptChanges() Me.SqlConnection1.Close() Me.SqlConnection1.Open() Me.DataSet31.Tables("scan").Clear() Me.SqlDataAdapter3.Fill(DataSet31, "scan") End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)