Clignotement [Résolu]

corazul333 12 Messages postés mardi 10 janvier 2006Date d'inscription 21 mars 2006 Dernière intervention - 20 mars 2006 à 14:25 - Dernière réponse : cs_rt15 3982 Messages postés mardi 8 mars 2005Date d'inscription 7 novembre 2014 Dernière intervention
- 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

PhilocheMan 55 Messages postés jeudi 28 juillet 2005Date d'inscription 23 mars 2006 Dernière intervention - 20 mars 2006 à 14:45
+3
Utile
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)
Cette réponse vous a-t-elle aidé ?  
cs_rt15 3982 Messages postés mardi 8 mars 2005Date d'inscription 7 novembre 2014 Dernière intervention - 20 mars 2006 à 15:38
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  

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.