''Voir Zip
Télécharger le zip
Sympatique, simple et instructif, c'est une source de newbie mais c'est peu courrant, continue comme ca, c'est une bonne source !
Il faut continuer , l'idée est originale un peu simple bien sûr mais pourquoi pas d'autres idées de ce type .Bonne continuation .
C'est vrai que le code est un peu simplet .Je suis un débutant et quand je vois les autres sources déposées sur ce site, cela me décourage vraiment .Merci pour la note et les commentaires.
Tu débutes par une source qui fonctionne : c'est déjà un bon pointRassures-toi nous avons tous été des débutantsalors courage Fierobe et 10/10
salut FIEROBEsympa ta source.un petit truc pour éviter d'effacer ta feuille à chaque mouvement de la souris, ce qui chez moi provoque un 'scintillement' de l'heure.Met une variable Booléenne (exemple Ecrit) que tu mets à vrai lorsque tu écrits un lieu.et dans ta Form_MouseMovemets des lignes du typeIf Ecrit Then Cls Ecrit = FalseEnd Ifcomme cela l'effacement ne se fera que lo'rsqu'il y aura eu écriture d'un lieuDrissou
PS: J'ai mis 10 aussi pour l'encouragement et parce que la source est fonctionnelle, bonne continuation =)Bonne prog @ts
10/10 ... que dire de plus
Salut,IL est vrai que c'est original.Bon passons au critiques constructive.Comme tu le dis tu es débutant, alors autant prendre les bonne habitude tout de suite.Lorsque tu vois un code qui semble se répéter à plein d'endroit, tu dois tout de suite penser "procédure".Je m'explique:'Ceci se répète tout le temps il y seulement les valeur qui change et le print. (d'ailleur FontSize ne prenant que la valeur 10 place le dans le Form_Load et comme ca plus de répétition de ce coté la.Me.CurrentX = 6800Me.CurrentY = 3970Me.FontSize = 10Print "Bastille"Pourait devenir:Private Sub AfficheMonument(ByVal X As Integer, ByVal Y As Integer, ByVal NomMonument As String) Me.Cls 'Cls passe ici comme ca plus de scintillement et pas besoin de variable Me.CurrentX = X Me.CurrentY = Y Print NomMonumentEnd SubEt ensuite tu appelles comme suit Private Sub Image9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Call AfficheMonument(4900, 2300, "Hôpital St Louis")End SubAller un petit 6 pour encourager à penser "procédure"
Merci pour votre aide . Je vais essayer de mettre a jour le logiciel grâce a vos information .
Ca y est j'ai fait la première mise a jour .
Salut,Pas mal la mise à jour.En revanche l'utilisation de F8 pour affiche la frame1 est laborieuse.POur y remédier je ferais.- Propriété KeyPreview de Form a True- J'utiliserais l'événement KeyDown au lieu de KeyPress.De plus 118 (F8) peu etre remplacé pour une meilleure lisibilité par VbKeyF8 (voir KeyCodeConstants dans l'explorateur d'objet (F2))EnFin pour finir - voir Afficher Frame1 lorsque l'on réussi à la déplier n'est pas tres "joli" - Pense à bine commenter ton code cela peu aider pour une meilleure lecture.- Nettoie le code des portions inutile Private Sub Command1_Click()Timer3.Interval = 1End SubIl n'y plus de Command1 sur ton Form...Voila.Mais plein d'encouragements pour la prochaines mise à jour.@+Julien
Ce n'est pas F8 qui fait afficher la frame1 mais X .Je vais essayer de mettre le logiciel a jour .merci pour l'aide .
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 874 173 membres 193 nouveaux aujourd'hui 16 152 membres club