Bip déclenché par VB

Jacqo · 13 Octobre 2008

Bonjour le monde,

Je voudrais savoir comment déclencher le "beep" identique à celui du démarrage de nos chères tromblo... euh ordinateurs. Existe-t-il une ligne de commande simple ?

JCGL · 13 Octobre 2008

Re : Bip déclenché par VB

Bonjour à tous,

Réponse simple :

Code:

Beep

dans ton code

et :

Code:

Option Explicit
 
Sub Test()
Dim I
For I = 1 To 5 ' Fait 5 boucles.
Beep ' Émet une note.
Next I
End Sub

pour le répéter cinq fois

A+

Jacqo · 13 Octobre 2008

Re : Bip déclenché par VB

Hello, merci de ta réponse rapide

J'avais déjà testé le simple "beep" mais rien ne se passe...

PS: je suis sur un PC portable, mais le bip est présent au démarrage, comme sur un fixe... mais je préfère prévenir

JCGL · 13 Octobre 2008

Re : Bip déclenché par VB

Bonjour à tous,

Peux-tu tester ce fichier ?

A+

Jacqo · 13 Octobre 2008

Re : Bip déclenché par VB

Rien à faire, j'ai même redémarré pour être sur qu'il y avait bien un bip, mais il n'est pas joué par VB... je vais me rabattre sur un son issue de la bibliothèque windows... ça complique un peut le code mais tant pis !

Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" ( _
ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long

Private Sub Play()
PlaySound "c:\temp\chimes.wav", 0&, &H1
End Sub

cela fonctionne, mais ça demande plus de ressources à mon vieux portable que le seul bip...

cococh · 16 Octobre 2008

Re : Bip déclenché par VB

boujour, y-t-il plusieurs bip ainsi disponibles? Pck la c'est un bi^p d'inf mais j'aimerais bien avoir aussi un bip type erreur (mot de passe éroné) et un bip type confirmation.

Bip déclenché par VB

Jacqo

XLDnaute Nouveau

JCGL

XLDnaute Barbatruc

Jacqo

XLDnaute Nouveau

JCGL

XLDnaute Barbatruc

Pièces jointes

Jacqo

XLDnaute Nouveau

cococh

XLDnaute Occasionnel

Discussions similaires