Public sub facile() if vol > 10 then vol = 10 : msgbox ("max") if vol<0 then vl = 0 : msg ("min") End sub
Télécharger le zip
lol, aujourd'hui j'ai pensé qu'il me faudrait u ntruc comme ca pour mon programme et je savcas pas comment faire, j'espere que je ne serai pas decu par ta source, j'vais voir @+
mmmm ouai ca marche bien mais ya pas + simple ??? ca a l'air bien compliqué pour un truc dans ce genre, comment t'as fait ce prog ?
Si ya plus simple mais "moins élégant" :Private Sub Command1_Click()r = Shell("sndvol32 /t") ' Affiche la petite fenêtre volume de windowEnd Sub
j'ai oublié de citer l'auteur l'API initiale : Proger !Mea culpa.RnoSatPS : si qqun dvlp un logiciel dans un but médical , qu'il me contacte ,ca m'interesse : arnaud.satsou@wanadoo.fr
Bonjour mon code ;) rnosat, j'ai fait une chtite màj du module de réglage que tu utilises : bcp plus clean. Je t'invites a le modifier également dans ton zip!
c'est fait ! je rajoute un checkbox " muet".RnoSat
Salut rnosat, c pas mal ton truc mais tu pouré pa me dir ou ce trouv ton active x MscomctlLib.slider ? Merci ga
Super, j'avais justement besoin de pouvoir facilement régler le volume, vu que chez moi l'application qui fait le plus de bruit se trouve désactiver les touches fonction réservées à cet usage ...Je prends bonne note de sndvol32, que je ne connaissais pas jusque là. ça peut toutefois être utile d'ajouter un peu de fantaisie à l'interface, pour modifier les réactions des touches ou mettre une valeur par défaut. C'est fait, merci.
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 873 499 membres 33 nouveaux aujourd'hui 16 151 membres club