Dessiner dans vb6

Question

Bonjour à tous et à toutes,

J'aurais aimé savoir en vb6 un algorythme qui peremtte à l'utilisateur de dessinner dans un picture box et qu'il puisse aussi  enregistrer a partir d'un btn son dessin en format jpg.

Ps: J'aurais bien aimé savoir aussi comment faire pour ouvrir un fichier. Dans ce cas le dessin de l'utilisateur.

Merci d'avance!!!

Utilisateur anonyme · Answer

Salut,

Aurais-tu aimée savoir comment chercher sur le site ?

__________
Kenji
( 
Nouveau forum VBA/Office

panicq · Answer

Oui tant que cela peu m'aider à trouver comment dessiner avec la souris enregistrer et ouvrir le dessin fait avec la souris.

Ps: J'ai deja regarder un peu dans le site mais je ne voudrais pas un truc compliqué

Merci d'avance

Utilisateur anonyme · Answer

Bon, la compression jpeg :
http://www.codyx.org/snippet_conversion-images-bmp-jpg-png-avec-gdi_160.aspx

Pour dessiner : 
http://www.vbfrance.com/recherche.aspx?r=paint&dotnet=2

__________
Kenji
( 
Nouveau forum VBA/Office

panicq · Answer

Merci mais avais pas plus compliqué lol! C'est dur quand rien que pour changer une image
Peu etre je me suis mal expliqué. J'aurais mieu aimé savoir comment enregistrer le dessin une fois fini et que la prochaine fois des que l'utilisateur lancera le logiciel ca lui remette le dessin!

Merci d'avance

Utilisateur anonyme · Answer

Dans le unload :
SavePicture TaPictureBox.Picture, app.Path & "	mpimg.bmp"

Dans le load, regarder si le fichier existe (http://www.codyx.org/snippet_savoir-si-fichier-existe_65.aspx#154) puis :
Set TaPictureBox.Picture = LoadPicture(app.Path & "	mpimg.bmp")

__________
Kenji
( 
Nouveau forum VBA/Office

jmfmarques · Answer

"SavePicture TaPictureBox.Picture, app.Path & "	mpimg.bmp""

Bonsoir, Charles,
Pense à la propriété Image (pour "figer") Elle st ici de mise.., non ?

Utilisateur anonyme · Answer

@JMF (Bonsoir)
En effet, il faudra AutoRedraw à True et ajouter Set TaPictureBox.Picture = TaPictureBox.Image avant de sauvegarder. Merci de l'avoir signalé.

Au passage, on te vois plus trop ces temps-ci ?







__________
Kenji

( 


Nouveau forum VBA/Office

jmfmarques · Answer

Trop étant "trop", j'ai opté pour le "très peu"...

Dessiner dans vb6

8 réponses

Votre réponse

Discussions similaires