Comments by Member 10465707 (Top 2 by date)

Imports WebCamLib
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports CrystalDecisions.Windows.Forms
Imports CrystalDecisions.ReportSource
Imports CrystalDecisions.Shared.ReportInfo
Imports CrystalDecisions.Shared.TableLogOnInfo
Imports CrystalDecisions.CrystalReports.Engine.ReportObject
Imports System.Data.Odbc
Imports System.Data
Imports System.Drawing.Image
Imports System.Collections
Imports System.IO.IOException
Imports System.IO
Imports System.Reflection.Emit.AssemblyBuilder

Public touchless As New TouchlessLib.TouchlessMgr
Public camera1 As TouchlessLib.Camera = touchless.Cameras.ElementAt(0)

Public Function resizeimage(ByVal sourceimage As Image, ByVal newheight As Integer, ByVal newwidth As Integer) As Image
Dim bmb As New Bitmap(newwidth, newheight)
Using g As Graphics = Graphics.FromImage(bmb)
g.InterpolationMode = Drawing2D.InterpolationMode.Bicubic
g.DrawImage(sourceimage, 0, 0, newwidth, newheight)
End Using
Return bmb
End Function

Dim newimg As Image = resizeimage(PictureBox1.Image, PictureBox1.Width, PictureBox1.Height)

'If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
'savaname = SaveFileDialog1.FileName
' MessageBox.Show(savaname)
newimg.Save("D:\timeoffice\" & savaname & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
PictureBox1.Image = touchless.CurrentCamera.GetCurrentImage
End Sub