Pour cette derniere update, (bé oui je vais pas passer ma vie la dessus) voici un petit éditeur pour le repositionnement des 3 controls.
(Bouton OK, Bouton Annuler, Bouton Quitter)
Lancez l'editeur, placez vos controls, sauvegardez les positions, et lancez Skin.exe pour retrouver les emplacement exacte tel que vous l'aviez laissé dans l'editeur.
Par contre il doit y avoir un pb, mais je c pas trop de ou sa vien, mais quand je charge une image, il arrive que l'éditeur se crache tout seul.(sa n'arrive pas à tout le coup)
Comme toujours, si vous utilisez un bout de mon code, pensez à mettre mon nom ;-)
Source / Exemple :
'C'est la derniere Update de ce petit projet à 1, à vous de continuer ;-)
Conclusion :
Si vous avez des idées pour apporter des meilleurs resultat à se petit projet, allez y, foncez ;-)
Commentaires
Il faut que tu ouvres ton application.
La position et les parametres de tes Skins dans un fichier ini pas dans la base de regitre !!!!
Et puis pourquoi limité à ton application qui à 3 boutons ... rare son les application avec seulement 3 boutons ...
enfin si tu comptes encore modifier les sources .... tu peut fair eun beau truc mais il y a du boulots !!! ;-)
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....
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.