CHANGER LE VOLUME AVEC LA SOURIS
cs_krust
Messages postés
140
Date d'inscription
mercredi 3 juillet 2002
Statut
Membre
Dernière intervention
19 novembre 2006
-
25 juil. 2002 à 18:41
BlamKTM Messages postés 15 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 20 avril 2004 - 27 oct. 2003 à 11:36
BlamKTM Messages postés 15 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 20 avril 2004 - 27 oct. 2003 à 11:36
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/4141-changer-le-volume-avec-la-souris
https://codes-sources.commentcamarche.net/source/4141-changer-le-volume-avec-la-souris
27 oct. 2003 à 11:36
PS: c'est tellement agréable de tomber sur un code bien commenté....merci :o)
25 juil. 2002 à 22:56
il y avait juste un + aulieu d un - !!!!!!
@++
25 juil. 2002 à 22:15
Public Sub VolumeDOWN() 'sub pour diminuer le son
lgVolG = lgVolG - &H1500 'on diminue 1 peut le volume de gauche
If lgVolG < &H0& Then lgVolG = &H0&
lgVolR = lgVolR + &H1500 'on diminue 1 peut le volume de droite
If lgVolR < &H0& Then lgVolR = &H0&
lgRep = waveOutSetVolume(0, CLng("&H" + Hex$(lgVolR) + Hex$(lgVolG))) 'on regle le volume
End Sub
Dépassement de capacité sur la ligne lgRep = .....
25 juil. 2002 à 20:54
mais c kan meme bizard car chez moi ca marche nikel ???!!!
25 juil. 2002 à 20:26
Dommage car ton prog est une tres bonne idée
25 juil. 2002 à 18:41