J'essaie d'utiliser le code VBA pour enregistrer le contenu inkpicture, ne peut utiliser vb.net ou C#

Question

J'ai trouvé ce code qui manque l'appel de fonction dans la dernière ligne, des idées sur ce que la commande enregistrer dans le fichier serait? , je vais juste bidouille dans.

'CODE to SAVE InkPicture to FILE 
Dim objInk As MSINKAUTLib.InkPicture 
Dim bytArr() As Byte 
Dim File1 As String 
File1 = "C:\" & TrainerSig & ".gif" 
Set objInk = Me.InkPicture2.Object 
If objInk.Ink.Strokes.Count > 0 Then 
    bytArr = objInk.Ink.Save(2) 
    fSaveFile bytArr, File1 
End If 

Answer 1

Voici une version kludgy de sauver .InkPicture avec le code VBA dans Access 2007 dans un fichier .isf.

Private Sub Command283_Click() 
    'CODE to SAVE InkPicture to FILE 
    Dim objInk As MSINKAUTLib.InkPicture 
    Dim bytArr() As Byte 
    Dim File1 As String 

    File1 = "C:\test.isf" 

    Set objInk = Me.InkPicture2.Object 

    If objInk.Ink.Strokes.Count > 0 Then 
     bytArr = objInk.Ink.Save(2) 
     Open File1 For Binary As #1 
     Put #1, , bytArr 
     Close #1 
    End If 
End Sub