Dessin d'image

Question

Bonjour à tous,

Voila j'ai un petit probleme j'ai sur ma form deux bouton et un picture box. Voila mon code: 

Dim Save As Integer
Private Sub Command1_Click()
Dim Fichier As String
CommonDialog1.Filter = "Fichier image(*.bmp)|*.bmp|Tous fichier (*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
Fichier = CommonDialog1.FileName
Form1.Picture1 = LoadPicture(Fichier)
End Sub
Private Sub Command2_Click()
If Save = 1 Then
    SavePicture Picture1, Fichier
Else
    
    CommonDialog1.Filter = "Fichier image (*.bmp)|*.bmp|Tous fichier(*.*)|*.*"
    CommonDialog1.FilterIndex = 1
    CommonDialog1.ShowSave
    Fichier = CommonDialog1.FileName
    SavePicture Picture1, Fichier
    Save = 1
End If
End Sub


Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Line -(X, Y)
End Sub

Je ne comprends pas pourquoi quand je dessine avec la souris je n'arive pas à enregistrer le tracer sous un format bmp!

Merci d'avance!

jmfmarques · Answer

pace qu'existe la propriété image (à lire dans ton aidse en ligne)
et parce que ce sujet a été traité encore très récemment :
ici, entre autres :
http://www.vbfrance.com/infomsg_DESSINER-DANS-VB6_1018100.aspx#8


et qu'on commpence en général par faire ces toutes petites recherches...

panicq · Answer

Mais j'ai pas bien compris comment l'utiliser dans mon code!

PCPT · Answer

salut,
la réponse est pourtant écrite noir sur blanc avec un lien..!
propriété image : SavePicture Picture1.Image, Fichier
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Dessin d'image

3 réponses

Votre réponse

Discussions similaires