OVH Cloud OVH Cloud

Comment lancer une applie depuis VB ???

6 réponses
Avatar
LE TROLL
Bonjour,

Je lance le volume Windows depuis le programme VB, et aussitôt je ferme
l'applie (qui n'est là que pour lancer le curseur du son), or, quand je
ferme l'applie, ça ferme le curseur du son, sous-cité mon code, où est
l'erreur svp ?

' SonVolume Form1 Affiche la petite fenêtre volume de windows
Sub Form_Activate()
Dim rep
rep = Shell("sndvol32 /t")
Unload Me
End Sub

Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !

6 réponses

Avatar
Kiriasse
Essayez :
Shell "sndvol32.exe", 1

Kiriasse
www.kiriasse.fr

== "LE TROLL" <le a écrit dans le message de news:

Bonjour,

Je lance le volume Windows depuis le programme VB, et aussitôt je ferme
l'applie (qui n'est là que pour lancer le curseur du son), or, quand je
ferme l'applie, ça ferme le curseur du son, sous-cité mon code, où est
l'erreur svp ?

' SonVolume Form1 Affiche la petite fenêtre volume de windows
Sub Form_Activate()
Dim rep
rep = Shell("sndvol32 /t")
Unload Me
End Sub


Avatar
Kiriasse
Je complète ma réponse...
Avec l'argument /t, sndvol32.exe est prévu pour se refermer dès que l'on
clique n'importe où hors de cette petite fenêtre (fenêtre dépourvue de croix
système permettant de la fermer) qui permet de régler le volume c'-à-d. dès
que cette fenêtre perd le focus.
Il est donc normal que la fermeture de votre application fasse disparaître
cette fenêtre du volume.
Cela ne se produit pas si l'on appelle sndvol32.exe sans argument.
À noter qu'un clic sur l'icône du volume dans la barre des tâches, près de
l'heure (« system tray ») revient à appeler sndvol32.exe avec l'argument /t.
Il est donc inutile que la petite fenêtre en question reste ouverte quand
vous refermez votre application puisqu'on peut l'ouvrir facilement de cette
façon.

Kiriasse
www.kiriasse.fr

== "Kiriasse" a écrit dans le message de news:
4217025f$0$850$
Essayez :
Shell "sndvol32.exe", 1

Kiriasse
www.kiriasse.fr

== > "LE TROLL" <le a écrit dans le message de news:

Bonjour,

Je lance le volume Windows depuis le programme VB, et aussitôt je
ferme l'applie (qui n'est là que pour lancer le curseur du son), or,
quand je ferme l'applie, ça ferme le curseur du son, sous-cité mon code,
où est l'erreur svp ?

' SonVolume Form1 Affiche la petite fenêtre volume de windows
Sub Form_Activate()
Dim rep
rep = Shell("sndvol32 /t")
Unload Me
End Sub





Avatar
LE TROLL
Oui, merci, certes ça marche, mais ce n'est pas ça que je veux
faire, je veux juste le petit curseur de volume, sinon, avec tout le panneau
il faut localiser le son, puis fermer l'applie, galère...
-------------

"Kiriasse" a écrit dans le message de news:
4217025f$0$850$
Essayez :
Shell "sndvol32.exe", 1

Kiriasse
www.kiriasse.fr

== > "LE TROLL" <le a écrit dans le message de news:

Bonjour,

Je lance le volume Windows depuis le programme VB, et aussitôt je
ferme l'applie (qui n'est là que pour lancer le curseur du son), or,
quand je ferme l'applie, ça ferme le curseur du son, sous-cité mon code,
où est l'erreur svp ?

' SonVolume Form1 Affiche la petite fenêtre volume de windows
Sub Form_Activate()
Dim rep
rep = Shell("sndvol32 /t")
Unload Me
End Sub





Avatar
ng
Salut,

Et pourquoi ne pas faire ca avec un petit slider dans une form ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

LE TROLL wrote:
Oui, merci, certes ça marche, mais ce n'est pas ça que je veux
faire, je veux juste le petit curseur de volume, sinon, avec tout le
panneau il faut localiser le son, puis fermer l'applie, galère...
-------------

"Kiriasse" a écrit dans le message de news:
4217025f$0$850$
Essayez :
Shell "sndvol32.exe", 1

Kiriasse
www.kiriasse.fr

== >> "LE TROLL" <le a écrit dans le message de news:

Bonjour,

Je lance le volume Windows depuis le programme VB, et aussitôt je
ferme l'applie (qui n'est là que pour lancer le curseur du son), or,
quand je ferme l'applie, ça ferme le curseur du son, sous-cité mon
code, où est l'erreur svp ?

' SonVolume Form1 Affiche la petite fenêtre volume de windows
Sub Form_Activate()
Dim rep
rep = Shell("sndvol32 /t")
Unload Me
End Sub






Avatar
LE TROLL
Oui, je crois que je vais en arriver là :o)
-------

"ng" a écrit dans le message de news:

Salut,

Et pourquoi ne pas faire ca avec un petit slider dans une form ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

LE TROLL wrote:
Oui, merci, certes ça marche, mais ce n'est pas ça que je veux
faire, je veux juste le petit curseur de volume, sinon, avec tout le
panneau il faut localiser le son, puis fermer l'applie, galère...
-------------

"Kiriasse" a écrit dans le message de news:
4217025f$0$850$
Essayez :
Shell "sndvol32.exe", 1

Kiriasse
www.kiriasse.fr

== >>> "LE TROLL" <le a écrit dans le message de news:

Bonjour,

Je lance le volume Windows depuis le programme VB, et aussitôt je
ferme l'applie (qui n'est là que pour lancer le curseur du son), or,
quand je ferme l'applie, ça ferme le curseur du son, sous-cité mon
code, où est l'erreur svp ?

' SonVolume Form1 Affiche la petite fenêtre volume de windows
Sub Form_Activate()
Dim rep
rep = Shell("sndvol32 /t")
Unload Me
End Sub










Avatar
gloops
Salut,

Pour faire régler le son, regarde si ceci peut t'aider :
http://www.vbfrance.com/article.aspx?ID033

Mais alors après il y a plusieurs canaux de son, je crois qu'il reste du
travail pour savoir s'adresser au bon canal. Je ne sais pas si il y a
une doc là-dessus quelque part.

--
______________________________________________________________
niark.fr ... Vous avez déjà vu un nom de domaine pareil, vous ?
Complètement gloops, ce mec ...