Clignotement
Résolu
corazul333
Messages postés
12
Date d'inscription
mardi 10 janvier 2006
Statut
Membre
Dernière intervention
21 mars 2006
-
20 mars 2006 à 14:25
cs_rt15 Messages postés 3874 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 7 novembre 2014 - 20 mars 2006 à 15:38
cs_rt15 Messages postés 3874 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 7 novembre 2014 - 20 mars 2006 à 15:38
A voir également:
- Declare sub sleep lib "kernel32" (byval dwmilliseconds as long)
- Clignotement public - Forum C / C++ / C++.NET
- Clignotement de la zone client ✓ - Forum C++ & C++ .NET
- Clignotement - Forum C / C++ / C++.NET
- Attribut public - Forum C# / .NET
- Notifyicon + clignotement ✓ - Forum C# / .NET
2 réponses
PhilocheMan
Messages postés
55
Date d'inscription
jeudi 28 juillet 2005
Statut
Membre
Dernière intervention
23 mars 2006
1
20 mars 2006 à 14:45
20 mars 2006 à 14:45
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)
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)
cs_rt15
Messages postés
3874
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
7 novembre 2014
13
20 mars 2006 à 15:38
20 mars 2006 à 15:38
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
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
