FORMULAIRE SKINNABLE ULTRA SIMPLE + EDITEUR - UPDATE 2

Commentaire de Nestor le 13/05/2002 00:07:41

J'ai même pas pensé à changer "Picture3" par une "ImageBox"
v'la le code à changer:

Encien code:
---------------
Private Sub chargerimgfont_Click() 'Charger l'image de font
'Va chercher une image
CommonDialog1.Filter = "Fichiers Images (*.*)|*.*"
CommonDialog1.ShowOpen 'ouvre la boite de windows
If Err.Number > 0 Then Exit Sub 'Si annuler on sort sans erreur de retour
'Appliquation de l'image
If Dir$(CommonDialog1.FileName) <> "" Then 'Si on a chatger une image alors on l'affiche
    Picture1.Picture = LoadPicture(CommonDialog1.FileName) 'Affiche l'image dans Picture1 (Grille)
    Picture3.Picture = LoadPicture(CommonDialog1.FileName) 'Affiche une autre PictureBox (preview)
End If
End Sub

Nouveau code:
------------------
Private Sub chargerimgfont_Click() 'Charger l'image de font
'Va chercher une image
CommonDialog1.Filter = "Fichiers Images (*.*)|*.*"
CommonDialog1.ShowOpen 'ouvre la boite de windows
If Err.Number > 0 Then Exit Sub 'Si annuler on sort sans erreur de retour
'Appliquation de l'image
If Dir$(CommonDialog1.FileName) <> "" Then 'Si on a chatger une image alors on l'affiche
    Picture1.Picture = LoadPicture(CommonDialog1.FileName) 'Affiche l'image dans Picture1 (Grille)
    Image4.Picture = LoadPicture(CommonDialog1.FileName) 'Affiche une autre PictureBox (preview)
End If
End Sub

Enlevez la "PictureBox3" et remplacez la par une "ImageBox4", et dans "Appearance" selectionnez: 1 - 3D, puis "Stretch" passez le en True.
comme sa l'image de font vous la voyez en entiere ;-)
si ça pose pb je peus vous changer le zip....