Inkpicture [Résolu]

Messages postés
20
Date d'inscription
vendredi 10 octobre 2008
Statut
Membre
Dernière intervention
23 mai 2010
- - Dernière réponse : alienware62
Messages postés
20
Date d'inscription
vendredi 10 octobre 2008
Statut
Membre
Dernière intervention
23 mai 2010
- 27 janv. 2010 à 17:13
Bonjour à vous,
j'ai parcouru des 100n de pages web à la recherche d'informations sur l'objet inkpicture mais aucun ne dit vraiment son fonctionnement.
je voudrais développer un champs signature donc je place le inkpicture, on peut bien écrire dedans, mais je n'arrive pas à sauvegarder la signature en image gif jpg bmp ou autre, pour pouvoir la placer dans un fiché excel pour imprimer
voila comment je sauvegarde :
 boxSign.Image.Save("c:\monimage.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)

boxSign=inkpicture1

Merci d'avance de votre aide.

Cordialement Alienware62
Afficher la suite 
A voir également:

9 réponses

Meilleure réponse
Messages postés
20
Date d'inscription
vendredi 10 octobre 2008
Statut
Membre
Dernière intervention
23 mai 2010
3
Merci
j'ai réussi
voila le code si ça peut aider quelqu'un ( vb.net 2008 ):

Public Class Form1


    Dim bytes() As Byte
    Dim sauv As System.IO.FileStream
    Dim inkoverlay1 As Microsoft.Ink.InkOverlay



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click




        sauv = System.IO.File.Create("C:\tempink.gif")
        bytes = inkoverlay1.Ink.Save(PersistenceFormat.Gif, CompressionMode.NoCompression)

        sauv.Write(bytes, 0, bytes.Length)
        sauv.Close()


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        inkoverlay1 = New Microsoft.Ink.InkOverlay()

        inkoverlay1.Handle = Panel1.Handle

        inkoverlay1.Enabled = True

    End Sub

   
End Class

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 200 internautes nous ont dit merci ce mois-ci

Commenter la réponse de alienware62
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58
0
Merci
possible d'utiliser la méthode DrawToBitmap de la classe Control ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic
Commenter la réponse de Renfield
Messages postés
20
Date d'inscription
vendredi 10 octobre 2008
Statut
Membre
Dernière intervention
23 mai 2010
0
Merci
oui il y a bien
boxSign.DrawToBitmap()


mais comment fonctionne t'il ?
Commenter la réponse de alienware62
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58
0
Merci
msdn.microsoft.com/fr-fr/library/system.windows.forms.control.drawtobitmap.aspx

Renfield - Admin CodeS-SourceS - MVP Visual Basic
Commenter la réponse de Renfield
Messages postés
20
Date d'inscription
vendredi 10 octobre 2008
Statut
Membre
Dernière intervention
23 mai 2010
0
Merci
je vais tester merci de ton aide
Commenter la réponse de alienware62
Messages postés
20
Date d'inscription
vendredi 10 octobre 2008
Statut
Membre
Dernière intervention
23 mai 2010
0
Merci
cela me donne un carré mais avec le rectangle gris du inkpicture mais sans la signature (le ink)

Dim bi As New Bitmap(150, 150)
   boxSign.DrawToBitmap(bi,Rectangle(0, 0, 150, 150 )
        bi.Save("c:\monimage.jpg")
Commenter la réponse de alienware62
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58
0
Merci
ok.

je ne peux t'aider plus, sans dispositif de tracage, so..

Renfield - Admin CodeS-SourceS - MVP Visual Basic
Commenter la réponse de Renfield
Messages postés
20
Date d'inscription
vendredi 10 octobre 2008
Statut
Membre
Dernière intervention
23 mai 2010
0
Merci
ok, merci quand même
Commenter la réponse de alienware62
Messages postés
20
Date d'inscription
vendredi 10 octobre 2008
Statut
Membre
Dernière intervention
23 mai 2010
0
Merci
Donc voila mon avancement: j'ai réussi à recuperer la signature (qui est le ink enfin je crois) je la mets dans un bytes et je l'écris dans un stream et la paf le drame "Le flux ne prend pas en charge l'écriture"

(VB.net 2008)
'boxSign c'est mon inkpicture1
    Dim bytes() As Byte
    Dim sauv As System.IO.Stream


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        OpenFileDialog1.ShowDialog()

        sauv = OpenFileDialog1.OpenFile()'je sélectionne un .gif vierge
        bytes = boxSign.Ink.Save(PersistenceFormat.Gif, CompressionMode.Default)

        sauv.Write(bytes, 0, bytes.Length)



    End Sub

l'erreur indique la ligne

sauv.Write(bytes, 0, bytes.Length)
Commenter la réponse de alienware62