Le clignotement, ce n'est pas en VB.NET, c'est en javascript (encore !).
Cherche sur Google Javascript + clignotement, tu trouveras des exemples.
Gilbert
"Emilie" a écrit dans le message de news: 4aa7cc63$0$17785$
Bonjour
Je voudrais faire clignoter un bouton (changement de couleur)
J'ai mis un timer quand je lance l'appli j'ai le message suivant : Timer requiert ScriptManager sur la page
ou dois-je le mettre avant le timer ?
Merci pour vos réponse Emilie
Emilie
Bonjour Gilbert
Merci pour ta réponse. J'ai trouvé un exemple que j'ai intégrée dans mon appli, mais cela ne fonctionne pas. Je n'ai pas de beug mais pas de clignotement et pas de redirection.
Peux-tu me dire ou est l'erreur, voici mon code (c'est sur une masterPage)
<script language="JavaScript">
function GoClignoter() {
var delai1P0; // temps d'affichage du texte exprimé en millisecondes (ici 0.5 seconde)
var delai2 0; // temps d'affichage du bouton vide
var texte="Recrutement"; // Texte à afficher
var bouton=document.form1.clignoter; // ici on récupère le bouton concerné
if (bouton.value=="") {
bouton.value=texte;
delaiÞlai1;
} else {
bouton.value="";
delaiÞlai2;
}
setTimeout("GoClignoter()",delai);
}
</script>
Le bouton est dans une cellule d'une table sur la form form1
Est-il possible de remplacer button par linkbutton
Emilie
"Gilbert Tordeur" a écrit dans le message de news:
Le clignotement, ce n'est pas en VB.NET, c'est en javascript (encore !).
Cherche sur Google Javascript + clignotement, tu trouveras des exemples.
Gilbert
"Emilie" a écrit dans le message de news: 4aa7cc63$0$17785$
Bonjour
Je voudrais faire clignoter un bouton (changement de couleur)
J'ai mis un timer quand je lance l'appli j'ai le message suivant : Timer requiert ScriptManager sur la page
ou dois-je le mettre avant le timer ?
Merci pour vos réponse Emilie
Bonjour Gilbert
Merci pour ta réponse. J'ai trouvé un exemple que j'ai intégrée dans mon
appli, mais cela ne fonctionne pas. Je n'ai pas de beug mais pas de
clignotement et pas de redirection.
Peux-tu me dire ou est l'erreur, voici mon code (c'est sur une masterPage)
<script language="JavaScript">
function GoClignoter() {
var delai1P0; // temps d'affichage du texte exprimé en millisecondes
(ici 0.5 seconde)
var delai2 0; // temps d'affichage du bouton vide
var texte="Recrutement"; // Texte à afficher
var bouton=document.form1.clignoter; // ici on récupère le bouton
concerné
if (bouton.value=="") {
bouton.value=texte;
delaiÞlai1;
} else {
bouton.value="";
delaiÞlai2;
}
setTimeout("GoClignoter()",delai);
}
</script>
Le bouton est dans une cellule d'une table sur la form form1
Merci pour ta réponse. J'ai trouvé un exemple que j'ai intégrée dans mon appli, mais cela ne fonctionne pas. Je n'ai pas de beug mais pas de clignotement et pas de redirection.
Peux-tu me dire ou est l'erreur, voici mon code (c'est sur une masterPage)
<script language="JavaScript">
function GoClignoter() {
var delai1P0; // temps d'affichage du texte exprimé en millisecondes (ici 0.5 seconde)
var delai2 0; // temps d'affichage du bouton vide
var texte="Recrutement"; // Texte à afficher
var bouton=document.form1.clignoter; // ici on récupère le bouton concerné
if (bouton.value=="") {
bouton.value=texte;
delaiÞlai1;
} else {
bouton.value="";
delaiÞlai2;
}
setTimeout("GoClignoter()",delai);
}
</script>
Le bouton est dans une cellule d'une table sur la form form1
J'ai une classe pour faire clignoter un bouton en VB .Net que j'tilise dans mes propres appli.
Dans le concepteur de vue de cette classe, j'ai ajouté 1 ImageList (ImageList1) qui contient une collection de 7 images de 7 boutons ronds et nommés Bleu, OrangeClair, ... (voir la liste dans le code)
A adapter selon les besoins.
Je n'ai plus qu'à poser le contrôle utilisateur où je veux, et appeler ses méthodes qui vont bien.
Exemple (1 form avec 1 bouton Start/Stop) : Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With Me.BoutonClignotant1
.Clignoter(Not .Clignotement_en_cours)
End With
End Sub
Et la classe :
Public Class BoutonClignotant
Inherits System.Windows.Forms.PictureBox
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Enum enum_couleur
Bleu
OrangeClair
OrangeFoncé
RougeClair
RougeFoncé
VertClair
VertFoncé
End Enum
Public Sub Set_Interval_clignotement_en_ms(Optional ByVal interval_en_ms As Integer = 1000) ', ByVal couleur As Color)
Me.Timer1.Interval = interval_en_ms
End Sub
Public Sub Set_Couleur(ByVal Couleur As enum_couleur) ', ByVal couleur As Color)
Dim key As String = ""
Select Case Couleur
Case enum_couleur.Bleu
key = "Bleu"
Case enum_couleur.OrangeClair
key = "OrangeClair"
Case enum_couleur.OrangeFoncé
key = "OrangeFoncé"
Case enum_couleur.RougeClair
key = "RougeClair"
Case enum_couleur.RougeFoncé
key = "RougeFoncé"
Case enum_couleur.VertClair
key = "VertClair"
Case enum_couleur.VertFoncé
key = "VertFoncé"
End Select
Me.Image = Me.ImageList1.Images(key)
End Sub
'true pour démarrer et false pour arrêter
Public Sub Clignoter(Optional ByVal Condition As Boolean = True)
Me.Timer1.Enabled = Condition
If Not Condition Then Me.Visible = False
End Sub
Function Clignotement_en_cours() As Boolean
Return Me.Timer1.Enabled
End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Visible = Not Me.Visible
End Sub
End Class
Bonjour Emilie,
J'ai une classe pour faire clignoter un bouton en VB .Net que j'tilise dans
mes propres appli.
Dans le concepteur de vue de cette classe, j'ai ajouté 1 ImageList
(ImageList1) qui contient une collection de 7 images de 7 boutons ronds et
nommés Bleu, OrangeClair, ... (voir la liste dans le code)
A adapter selon les besoins.
Je n'ai plus qu'à poser le contrôle utilisateur où je veux, et appeler ses
méthodes qui vont bien.
Exemple (1 form avec 1 bouton Start/Stop) :
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
With Me.BoutonClignotant1
.Clignoter(Not .Clignotement_en_cours)
End With
End Sub
Et la classe :
Public Class BoutonClignotant
Inherits System.Windows.Forms.PictureBox
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Enum enum_couleur
Bleu
OrangeClair
OrangeFoncé
RougeClair
RougeFoncé
VertClair
VertFoncé
End Enum
Public Sub Set_Interval_clignotement_en_ms(Optional ByVal interval_en_ms As
Integer = 1000) ', ByVal couleur As Color)
Me.Timer1.Interval = interval_en_ms
End Sub
Public Sub Set_Couleur(ByVal Couleur As enum_couleur) ', ByVal couleur As
Color)
Dim key As String = ""
Select Case Couleur
Case enum_couleur.Bleu
key = "Bleu"
Case enum_couleur.OrangeClair
key = "OrangeClair"
Case enum_couleur.OrangeFoncé
key = "OrangeFoncé"
Case enum_couleur.RougeClair
key = "RougeClair"
Case enum_couleur.RougeFoncé
key = "RougeFoncé"
Case enum_couleur.VertClair
key = "VertClair"
Case enum_couleur.VertFoncé
key = "VertFoncé"
End Select
Me.Image = Me.ImageList1.Images(key)
End Sub
'true pour démarrer et false pour arrêter
Public Sub Clignoter(Optional ByVal Condition As Boolean = True)
Me.Timer1.Enabled = Condition
If Not Condition Then Me.Visible = False
End Sub
Function Clignotement_en_cours() As Boolean
Return Me.Timer1.Enabled
End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
J'ai une classe pour faire clignoter un bouton en VB .Net que j'tilise dans mes propres appli.
Dans le concepteur de vue de cette classe, j'ai ajouté 1 ImageList (ImageList1) qui contient une collection de 7 images de 7 boutons ronds et nommés Bleu, OrangeClair, ... (voir la liste dans le code)
A adapter selon les besoins.
Je n'ai plus qu'à poser le contrôle utilisateur où je veux, et appeler ses méthodes qui vont bien.
Exemple (1 form avec 1 bouton Start/Stop) : Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With Me.BoutonClignotant1
.Clignoter(Not .Clignotement_en_cours)
End With
End Sub
Et la classe :
Public Class BoutonClignotant
Inherits System.Windows.Forms.PictureBox
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Enum enum_couleur
Bleu
OrangeClair
OrangeFoncé
RougeClair
RougeFoncé
VertClair
VertFoncé
End Enum
Public Sub Set_Interval_clignotement_en_ms(Optional ByVal interval_en_ms As Integer = 1000) ', ByVal couleur As Color)
Me.Timer1.Interval = interval_en_ms
End Sub
Public Sub Set_Couleur(ByVal Couleur As enum_couleur) ', ByVal couleur As Color)
Dim key As String = ""
Select Case Couleur
Case enum_couleur.Bleu
key = "Bleu"
Case enum_couleur.OrangeClair
key = "OrangeClair"
Case enum_couleur.OrangeFoncé
key = "OrangeFoncé"
Case enum_couleur.RougeClair
key = "RougeClair"
Case enum_couleur.RougeFoncé
key = "RougeFoncé"
Case enum_couleur.VertClair
key = "VertClair"
Case enum_couleur.VertFoncé
key = "VertFoncé"
End Select
Me.Image = Me.ImageList1.Images(key)
End Sub
'true pour démarrer et false pour arrêter
Public Sub Clignoter(Optional ByVal Condition As Boolean = True)
Me.Timer1.Enabled = Condition
If Not Condition Then Me.Visible = False
End Sub
Function Clignotement_en_cours() As Boolean
Return Me.Timer1.Enabled
End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Visible = Not Me.Visible
End Sub
End Class
Hervé
Bonjour tout le monde,
Ici, avec l'Api "GetTickCount", change du rouge au bleu toutes les demi-secondes. La durée du clignotement est fonction de la valeur de I, à adapter en fonction des besoins :
Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Minuterie(ByVal Milliseconde As Long)
Dim Arret As Long
Arret = GetTickCount() + Milliseconde
Do While GetTickCount() < Arret My.Application.DoEvents() Loop
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer
Do While I < 10 Button1.BackColor = Color.Red Minuterie(500) Button1.BackColor = Color.Blue Minuterie(500) I = I + 1 Loop
End Sub
Hervé.
"Emilie" a écrit dans le message de news:4aa7cc63$0$17785$
Bonjour
Je voudrais faire clignoter un bouton (changement de couleur)
J'ai mis un timer quand je lance l'appli j'ai le message suivant : Timer requiert ScriptManager sur la page
ou dois-je le mettre avant le timer ?
Merci pour vos réponse Emilie
Bonjour tout le monde,
Ici, avec l'Api "GetTickCount", change du rouge au bleu toutes les
demi-secondes. La durée du clignotement est fonction de la valeur de I, à
adapter en fonction des besoins :
Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Minuterie(ByVal Milliseconde As Long)
Dim Arret As Long
Arret = GetTickCount() + Milliseconde
Do While GetTickCount() < Arret
My.Application.DoEvents()
Loop
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer
Do While I < 10
Button1.BackColor = Color.Red
Minuterie(500)
Button1.BackColor = Color.Blue
Minuterie(500)
I = I + 1
Loop
End Sub
Hervé.
"Emilie" <amc-emilie@wanadoo.fr> a écrit dans le message de
news:4aa7cc63$0$17785$ba4acef3@news.orange.fr...
Bonjour
Je voudrais faire clignoter un bouton (changement de couleur)
J'ai mis un timer
quand je lance l'appli j'ai le message suivant : Timer requiert
ScriptManager sur la page
Ici, avec l'Api "GetTickCount", change du rouge au bleu toutes les demi-secondes. La durée du clignotement est fonction de la valeur de I, à adapter en fonction des besoins :
Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Minuterie(ByVal Milliseconde As Long)
Dim Arret As Long
Arret = GetTickCount() + Milliseconde
Do While GetTickCount() < Arret My.Application.DoEvents() Loop
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer
Do While I < 10 Button1.BackColor = Color.Red Minuterie(500) Button1.BackColor = Color.Blue Minuterie(500) I = I + 1 Loop
End Sub
Hervé.
"Emilie" a écrit dans le message de news:4aa7cc63$0$17785$
Bonjour
Je voudrais faire clignoter un bouton (changement de couleur)
J'ai mis un timer quand je lance l'appli j'ai le message suivant : Timer requiert ScriptManager sur la page
ou dois-je le mettre avant le timer ?
Merci pour vos réponse Emilie
Emilie
Merci pour vos réponses c'est génial Emilie "Hervé" a écrit dans le message de news:
Bonjour tout le monde,
Ici, avec l'Api "GetTickCount", change du rouge au bleu toutes les demi-secondes. La durée du clignotement est fonction de la valeur de I, à adapter en fonction des besoins :
Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Minuterie(ByVal Milliseconde As Long)
Dim Arret As Long
Arret = GetTickCount() + Milliseconde
Do While GetTickCount() < Arret My.Application.DoEvents() Loop
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer
Do While I < 10 Button1.BackColor = Color.Red Minuterie(500) Button1.BackColor = Color.Blue Minuterie(500) I = I + 1 Loop
End Sub
Hervé.
"Emilie" a écrit dans le message de news:4aa7cc63$0$17785$
Bonjour
Je voudrais faire clignoter un bouton (changement de couleur)
J'ai mis un timer quand je lance l'appli j'ai le message suivant : Timer requiert ScriptManager sur la page
ou dois-je le mettre avant le timer ?
Merci pour vos réponse Emilie
Merci pour vos réponses
c'est génial
Emilie
"Hervé" <mhsilve@orange.fr> a écrit dans le message de news:
97B1B8A9-A8F2-4C08-ABD2-2868F20D90A8@microsoft.com...
Bonjour tout le monde,
Ici, avec l'Api "GetTickCount", change du rouge au bleu toutes les
demi-secondes. La durée du clignotement est fonction de la valeur de I, à
adapter en fonction des besoins :
Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Minuterie(ByVal Milliseconde As Long)
Dim Arret As Long
Arret = GetTickCount() + Milliseconde
Do While GetTickCount() < Arret
My.Application.DoEvents()
Loop
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles
Button1.Click
Dim I As Integer
Do While I < 10
Button1.BackColor = Color.Red
Minuterie(500)
Button1.BackColor = Color.Blue
Minuterie(500)
I = I + 1
Loop
End Sub
Hervé.
"Emilie" <amc-emilie@wanadoo.fr> a écrit dans le message de
news:4aa7cc63$0$17785$ba4acef3@news.orange.fr...
Bonjour
Je voudrais faire clignoter un bouton (changement de couleur)
J'ai mis un timer
quand je lance l'appli j'ai le message suivant : Timer requiert
ScriptManager sur la page
Merci pour vos réponses c'est génial Emilie "Hervé" a écrit dans le message de news:
Bonjour tout le monde,
Ici, avec l'Api "GetTickCount", change du rouge au bleu toutes les demi-secondes. La durée du clignotement est fonction de la valeur de I, à adapter en fonction des besoins :
Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Minuterie(ByVal Milliseconde As Long)
Dim Arret As Long
Arret = GetTickCount() + Milliseconde
Do While GetTickCount() < Arret My.Application.DoEvents() Loop
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer
Do While I < 10 Button1.BackColor = Color.Red Minuterie(500) Button1.BackColor = Color.Blue Minuterie(500) I = I + 1 Loop
End Sub
Hervé.
"Emilie" a écrit dans le message de news:4aa7cc63$0$17785$
Bonjour
Je voudrais faire clignoter un bouton (changement de couleur)
J'ai mis un timer quand je lance l'appli j'ai le message suivant : Timer requiert ScriptManager sur la page
