EFFET SUR DES PICTUREBOX : CODE TRES SIMPLE, FLUIDE ET COMMENTER

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 27 juin 2004 à 17:47
gandalfkhorne Messages postés 70 Date d'inscription dimanche 11 janvier 2004 Statut Membre Dernière intervention 1 octobre 2004 - 28 juin 2004 à 16:10
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/24069-effet-sur-des-picturebox-code-tres-simple-fluide-et-commenter

gandalfkhorne Messages postés 70 Date d'inscription dimanche 11 janvier 2004 Statut Membre Dernière intervention 1 octobre 2004
28 juin 2004 à 16:10
Une sauvegarde de menu ok, jvais la faire des ce soir, jvais modifié les deux ou trois saloperies, thx.
cs_Arknoth Messages postés 96 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 22 août 2004
28 juin 2004 à 12:54
A mon avis ta ligne

Dim msg_ As Msg

a oublié d'aller dans la procédure DoEvnts()

Bravo, bonne source, niquel les commentaires, te reste plus qu'à mettre une fonction de sauvegarde :)

allez hop 9
@ pluche
gandalfkhorne Messages postés 70 Date d'inscription dimanche 11 janvier 2004 Statut Membre Dernière intervention 1 octobre 2004
28 juin 2004 à 11:18
C'est vrai c constantes servent à rien mais j'avais pas fait attention à ce module de doevents, je n'y porte pas trop d'interêt bien qu'il soit tres utile et pour les opérateur sont ils plus rapide?
Saros Messages postés 921 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 23 septembre 2010
28 juin 2004 à 11:03
Private Const PM_NOYIELD = &H2
Private Const PM_NOREMOVE = &H0
Elles servent à rien les constantes, non ?

Pour extraire les composantes d'une couleur, j'utilise une autre manière avec seulement deux opérateurs :

Red = ((ClRc And &HFF0000) / &H10000)
Green = ((ClRc And &HFF00&) / &H100)
Blue = (ClRc And &HFF&)

Voilà, sinon j'ai trouvé aucun problème...
10/10
Saros
gandalfkhorne Messages postés 70 Date d'inscription dimanche 11 janvier 2004 Statut Membre Dernière intervention 1 octobre 2004
27 juin 2004 à 17:55
mais quel con pour se rafraichissement lol, ca se voit trop l'erreur, je n'ai pas mis la condition pour quitter le sub plus tot :$

Sinon jvais mettre à jour vite fait, et je n'ai pas fait un rafraichissement automatique car à chaque clique tu aurais une attente et plu l'image et longue plus il en mettrait, de plus j'ai utilisé le Doevents perso pour gagner de la vitesse. et tu m'a appris qq chose que le Or etc... pouvez etre utiliser comme opérateur pour implémenter, merci :)
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
27 juin 2004 à 17:47
pourquoi utiliser un Doevents "perso" ??

tu pourrais accelerer ton code en n'utilisant pas GetPixel et SetPixel , mais GetDibBits , par exemple

d'autre part, j'ai noté que l'image etait toute grise s'il elle etait raffraichie avec les trois canaux activés

ce serait pas mal, de plus que l'image soit raffraichie dès que l'on change les canaux (sans faire F5)

petite remarque enfin :

If Not (Red Or Green Or Blue) Then NB = True

equivaut à :

NB = Not (Red Or Green Or Blue)


mais c'est un bon exemple de l'utilisation des API, et l'application de l'effet est interessant
Rejoignez-nous