--- In [email protected], "Chris Kenworthy" <chrisk...@...> wrote: > > --- In [email protected], "brianmeek@" <brianmeek@> wrote: > > > > Hi > > > > Can anyone help me get started with a signature capture box. I am told the > > picture box is the way to go but a few pointers would be greatly > > appreciated. > > > > Many thenks > > > > Brian > > Hi Brian. Here's a few details about the way I did it. > > - Dropped a picture box onto the form using the toolbox, named it PBox with > the properties window. > - Added the following code lines to the form_load: > PBox.FillColor = RGB(255, 255, 255) > PBox.CreateImage PBox.Width, PBox.Height > > - Used the following code to handle the actual drawing: > > Sub FreeHand(X,Y) > > If curX <> -1 And curY <> -1 Then > pbox.drawline CurX,CurY,X,Y,colorBlack,0,0 > End If > > 'TempXY=TempXY & "#" & X & "#" & Y > CurX=X > CurY=Y > End Sub > > Sub pbox_mousedown(button, shift, X, Y) > CurX=X > CurY=Y > > Call FreeHand(X, Y) > > pbox.refresh > End Sub > > Sub pbox_mouseup(button, shift, X, Y) > > Call FreeHand(X, Y) > pbox.refresh > End Sub > > Sub pbox_mousemove(button, shift, X, Y) > > Call FreeHand(X, Y) > pbox.refresh > End Sub > > - Added 'clear' and 'save' buttons below the picture box, with the following > code handlers: > > Sub btnClearSig_Click > PBox.FillColor = RGB(255, 255, 255) > PBox.CreateImage PBox.Width, PBox.Height > End Sub > > Sub btnSaveSig_Click > sigID = nextSigID > > nextSigID = nextSigID + 1 > > Dim filename, filepath, result > > filename = sigID & ".bmp" > > filepath = "\My Documents\printouts\" & filename > result = PBox.SaveImageToFile(filepath, 0) > > cn.Execute "insert into signatures values (" & sigID & ", '" & filename & > "')" > > Dim sql > > cn.Execute sql > > frmPrint_show > frmSig_hide > > End Sub > > nextSigID is a self-incrementing primary key field, and cn is my open SQLite > object. > > Hope that this helps you out. > Thanks Chris
This should get me started with the project. Regards Brian --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "nsb-ce" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/nsb-ce?hl=en -~----------~----~----~----~------~----~------~--~---
