Bouton clignotant (couleur) en .net

Commenter

Contenu du snippet

Voici une petite extension qui permet de faire clignoter un bouton en .Net
Je met pas de source, puisque c'est un bouton qui hérite du bouton normal de.Net, donc sont utilisation est identique.

il est tres facile a utiliser.

on doit lui envoyer une vitesse de clignottement et un tableau de couleur. La première couleur étant celle par défaut

ensuite faut appeller la méthode Cligoner
true démarre le clignottement
false arrête de clignotter et remet la couleur par défaut

le bouton gère les tableau de n'importe quel dimension (je crois pas que quelques va dépasser 35000 couleurs pour faire un overflo sur un intéger.)

Source / Exemple : 


Public Class BoutonClignotant
    Inherits System.Windows.Forms.Button
    Private couleur() As Color
    Private position As Integer = 0

    Private WithEvents timer As New timer

    Public Sub New()
        MyBase.New()
    End Sub

    'Si on veut le créé avec les paramètres déjà configuré
    'a déconseiller si vous le faite avec l'éditeur de .Net, 
    'puisqu'il efface souvent ce qu'il comprend pas
    Public Sub New(ByVal intervale As Integer, ByVal couleur() As Color)
        MyBase.New()
        setInfo(intervale, couleur)
    End Sub

    'Configurer le bouton ici
    Public Sub setInfo(ByVal intervale As Integer, ByVal couleur() As Color)
        timer.Interval = intervale
        Me.BackColor = couleur(0)
        Me.couleur = couleur
    End Sub

    'true pour démarrer et false pour arrêter
    Public Sub Cligoner(ByVal demarrer As Boolean)
        If demarrer Then
            timer.Start()
        Else
            timer.Stop()
            Me.BackColor = couleur(0)
            position = 0
        End If
    End Sub

    'Le timer qui fait le clignottement
    Private Sub timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles timer.Tick
        position += 1
        If position > UBound(couleur) Then
            position = 0
        End If
        Me.BackColor = couleur(position)
    End Sub
End Class

Conclusion :


pour ceux qui savent pas comment l'utiliser
faite vous une nouvelle classe dans votre projet en VB.net (je le répète avant de voir du monde en vb6.0 dire que ça fonctionne pas)

la classe dois s'appeller BoutonClignotant et copier tout mon code dans
c'est tout

le bouton devrait se retrouver dans "my user control"

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_dragon)