Codes visual basic

Bonjour,

ya t'il des codes en VB qui permettent de faire clignoter des images?

6 réponses

  1. Contributeur
    Bonjour,
    Un code dédié n'existe pas, tu dois faire ça avec un timer en changeant les caractéristiques du contrôle.
    A+
    1. je comprend
      et comment dois je proceder? disant avoir une idees sur les codes je suis encore debutant
      1. Bonjour,

        Une idée, rendre l'image visible / invisible avec une bonne temporisation, ça peut faire son effet.
    2. Et bien par exemple,
      Il faut deux timers, réglés par exemple sur 1000 ms (soit une seconde d'intervalle) : Timer1 et Timer2. Et une image, PictureBox1

      Dans le formload de ton application, tu start le premier timer et tu mets en visibilité vraie l'image

      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      PictureBox1.Visible = True 'on affiche l'image au début
      Timer1.Start() 'on démarre le premier timer

      End Sub

      Après, le tick du premier timer va passer en False la visibilité de la picturebox, il va stop le timer1, et lancer le timer 2.

      Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      PictureBox1.Visible = False 'on cache l'image
      Timer1.Stop() 'on stop ce timer
      Timer2.Start() 'on active l'autre timer2
      End Sub

      Et le timer 2 va faire la même mais à l'inverse, c'est une boucle entre ces deux timers.

      Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
      PictureBox1.Visible = True 'on affiche l'image
      Timer2.Stop() 'on stop ce timer2
      Timer1.Start() 'on restart l'autre timer1
      End Sub

      Après, il suffit que tu joues sur la configuration du timer au niveau du temps (là c'est réglé à 1000ms = 1s) si tu souhaites changer la fréquence de "clignotement"

      Bonne soirée
      Passionné d'informatique et de jeux vidéos.
      1. Contributeur
        Bonjour,
        @ShayFmw -> pourquoi 2 timers ?
        Tu m'oblige à rectifier... :(
        Ouvrir un nouveau projet WindowsForm
        Ajouter un contrôle Timer.
        Coller dans la classe de la forme...
        Public Class Form1
        
            Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
                Static D As Boolean
                If D Then
                    Me.BackColor = Color.Red
                    D = False
                Else
                    Me.BackColor = Color.Yellow
                    D = True
                End If
            End Sub
        
            Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
                Timer1.Enabled = True
                Timer1.Interval = 1000 'Pour une seconde
            End Sub
        End Class

        En lieu et place de la coloration de la forme tu peu adapter au contrôle que tu veux.
        A+