Discussion :

[marsupilami34]

Bonjour à tous.

J'aurai aimé savoir si il y avait possibilité de commander le volume de l'ordinateur par simple commande VBA. J'ai essayé avec l'enregistreur de macro et ca n'a rien donné.

Après, par Sendkeys (Fn + F7) mais je ne sais pas comment faire pour traduire la touche Fn.

Quelqu'un aurait il une solution ?

Merci d'avance.

Marsup

[Invité]

Bonjour

Si c'est possible, cela ne peut-être fait que par des API.
Voilà une piste de recherche, il faut seulement trouver la bonne

Jettes un coup d'oeil aux différentes FAQ (VB, C, etc..) où on parle régulèrement des API.

Starec

[tomy7]

http://silkyroad.developpez.com/VBA/...aPlayer/#LII-H

mais c est avec windows media player

[ucfoutu]

Bonjour,

On y va ?

Je te laisse le soin de lancer comme tu l'entends, pour faire ton essai, la musique de ton choix, hein ...

Cequi suit va te permettre de régler tes hauts parleurs (que la musique soit en route ou non)

Sur un userform :

4 petits boutons de commande ainsi répartis :

à gauche :

un bouton MoinsG avec son caption "-"
un bouton PlusG avec son caption "+

A droite

un bouton MoinsD avec son caption "-"
un bouton PlusD avec son caption "+

Ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Option Explicit
' Déclaration des fonctions API
Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
' Déclaration des constantes
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_NOWAIT = &H2000
' Variable globale du volume
Public VolG As Long
Public VolD As Long
Public volumeG As Long
' Variable globale bidon pour les retour d'API
Public coucou As Long
 
Private Sub Form_Load()
  ' Récupération du volume courant
  coucou = waveOutGetVolume(0, volumeG)
  VolG = volumeG And &HFFFF&
  VolD = ((volumeG And &HFFFF0000) / &H10000) And &HFFFF&
End Sub
 
Private Sub PlusG_Click()
  ' Augmente le volume du côté gauche
  VolG = VolG + &H1000
  If VolG > &HFFFF& Then VolG = &HFFFF&
  coucou = waveOutSetVolume(0, CLng("&H" + Hex$(VolD) + Hex$(VolG)))
End Sub
 
Private Sub MoinsG_Click()
  ' Diminue le volume du côté gauche
  VolG = VolG - &H1000
  If VolG < &H0& Then VolG = &H0&
  coucou = waveOutSetVolume(0, CLng("&H" + Hex$(VolD) + Hex$(VolG)))
End Sub
 
Private Sub PlusD_Click()
  ' Augmente le volume du côté droit
  VolD = VolD + &H1000
  If VolD > &HFFFF& Then VolD = &HFFFF&
  coucou = waveOutSetVolume(0, CLng("&H" + Hex$(VolD) + Hex$(VolG)))
End Sub
 
Private Sub MoinsD_Click()
  ' Diminue le volume du côté droit
  VolD = VolD - &H1000
  If VolD < &H0& Then VolD = &H0&
  coucou = waveOutSetVolume(0, CLng("&H" + Hex$(VolD) + Hex$(VolG)))
End Sub

C'est fait ?

Lance ta musique et joue avec les boutons (plusieurs clics comme tu l'entends)

Amuse-toi...

Edit : j'ai fait exprès de mettre des boutons avec clics + et - à droite et à gauche en lieu et place de scrollbars.

Si tu as tout compris du mécanisme, tu n'auras aucune difficulté à faire la transformation "élégante". Si tu n'as pas tout compris, par contre, il en ira tout autrement (et je tiens à ce que l'on n'utilise que ce que l'on comprend vraiment ...)