Bouton clignotant

Le
Emilie
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilbert Tordeur
Le #20104501
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" 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
Le #20108111
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



<td align="right" style="padding-right: 10px">

<input "button" name="clignoter"

style="border-width: medium; border-style: outset; width:100px;

font-family: Arial; font-size: 13px; background-color: #2F287E;

color: #A7C4E0;" value="Recrutement >"; BorderStyle="Outset";

onClick="http://www.MonSite.fr/Recrute.aspx" />

</td>


Est-il possible de remplacer button par linkbutton

Emilie

"Gilbert Tordeur" 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" 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







Gilbert Tordeur
Le #20112641
Bonsoir Émilie.

Tu as écrit une fonction pour le clignotement. Mais sauf erreur de ma part
tu ne l'appelles pas !

Je te suggère d'insérer un script en bas de page (en tout cas après la
définition de ton bouton) pour l'activer :

<script language="JavaScript">
GoClignoter();
</script>
Le #20119941
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

Me.Visible = Not Me.Visible

End Sub

End Class
Hervé
Le #20185971
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" 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
Le #20193571
Merci pour vos réponses
c'est génial
Emilie
"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" 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






Publicité
Poster une réponse
Anonyme