Discussion :

[didyfatima]

Bonjour,
je veux savoir comment faire un bouton qui clignote dés que la date d'echeance du virement du chéque est arrivé sous visual basic et merci d'avance

[Pol63]

avec un timer

[MABROUKI]

bonjour didyfatima
Comme l' a suggere Pol63, un timer peut simulier un "flashing ou blinking button" ou bien si tu un fichier image gif anime (comme le globe anime d'internet explorer).....
1er exemple code avec le timer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
 
'Boite à outils ->Ajouter :
'-un control timer 
'-un bouton
Public Class Form1
    Public Sub New()
 
        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        'un bon interval de clignotement
        Me.Timer1.Interval = 500
        Me.Timer1.Enabled = False
    End Sub
    'Demarrer par exemple le flashing au Load du Form
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If (Me.Button1.BackColor = Color.Gray) Then
            Button1.BackColor = Color.Red
        Else
            Button1.BackColor = Color.Gray
        End If
 
    End Sub
 
 
End Class

2eme exemple code avec un fichier nomme "atom.gif" à inclure dans les resources du projet (proprietes du projet->resources ->ajouter une image: il suffit de choisir le fichier voulu) .
Ensuite affecter le fichier image à la prop image du button.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Public Class Form2
    Public Sub New()
 
        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        ' "atom" designe un fichier .gif anime inclus dans les resources du projet WinForm
        Me.Button1.Image = My.Resources.atom
    End Sub
End Class

bon code...........

[didyfatima]

merci beaucoup beaucoup MABROUKI le code marche bien