Clignotement [Résolu]

Messages postés
12
Date d'inscription
mardi 10 janvier 2006
Dernière intervention
21 mars 2006
- - Dernière réponse : cs_rt15
Messages postés
3982
Date d'inscription
mardi 8 mars 2005
Dernière intervention
7 novembre 2014
- 20 mars 2006 à 15:38
Bonjour,
Je voudrai savoir comment il faut faire pour faire clignoter un texte se trouvant dans un label (label12 = "alarme").
Et si possible savoir comment emmetre un son provenant du haut parleur du boitier du pc lorsque "alarme" s'affiche.
merci
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
55
Date d'inscription
jeudi 28 juillet 2005
Dernière intervention
23 mars 2006
1
3
Merci
Salut,
Pour le clignotement, utilise un timer à 500 ms d'Interval par exemple, et met dans le code :

Private Sub TimerCligno_Timer()
Me.lblAlarme.Visible = notMe.lblAlarme.Visible
End Sub

Pour le son "sans carte son" (c.a.d. directement sur le HP), utilise l'API :

Public Declare Function Bip Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

et dans ton code :
Call Bip(1000,200)
Par exemple (dwFreq étant la fréquence en Hertz, entre 37 et 32767, et dwDuration la durée du son en millisecondes)

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 86 internautes nous ont dit merci ce mois-ci

Messages postés
3982
Date d'inscription
mardi 8 mars 2005
Dernière intervention
7 novembre 2014
11
3
Merci
Bin vala une idée de clignotement (Faut une textbox en multiligne = True)
Le Sleep 100 est un peu gros, il vaudrait mieux enchaîner 10 Sleep 10 ou 100 Sleep 1: l'appli réagirait mieux.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Sub Command1_Click()
While 1 = 1
Text1.Text = "Première ligne" & vbCrLf & "Deuxième ligne"
Sleep (100)
DoEvents
Text1.Text = ""
Sleep (100)
DoEvents
Wend
End Sub

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 86 internautes nous ont dit merci ce mois-ci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.