Firma grafometrica con MSAccess/VBA

di MadMax74 il
2 risposte

2 Risposte

  • Qualche anno fa, feci qualche esperimento con il controllo [InkPicture]

    La documentazione più completa è qui, c'è da girarci bene dentro perchè non è così immediata:
    https://learn.microsoft.com/en-us/windows/win32/tablet/inkpicture-control-reference

    Inserisci il controllo activex nella Maschera, dopo aver scarabocchiato nel controllo, mettendo un Button per il SAVE: 

    Private Sub Save_Click() 
    	Dim mPic As Object 
    	Dim imgBytes() As Byte 
    	Set mPic = Me.InkPicture6.Object 
    	imgBytes = mPic.Ink.Save(IPF_GIF) 
    	Open CurrentProject.Path & "\test.gif" For Binary Access Write As #1 
    	Put #1, 1, imgBytes 
    	Close #1 
    End Sub 
    
    Private Sub Delete_Click() 
    	Dim mPic As Object 
    	Set mPic = Me.InkPicture6.Object 
    	mPic.Ink.DeleteStrokes 
    	mPic.AutoRedraw = True 
    End Sub 

    Se hai un display Touch usi una pen firmi e salvi… l'immagine salvata poi la metti dove ritieni, in un Report da caricare Runtime, per la stampa PDF che ormai è nativa…

    Non so se sia un suggerimento che soddisfa a pieno la richiesta… 

Devi accedere o registrarti per scrivere nel forum
2 risposte