Codes visual basic

bnjdd7 Messages postés 7 Statut Membre -  
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,

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

6 réponses

  1. ShayFmw Messages postés 121 Statut Membre 43
     
    VB.NET 2010 ... ?
    0
  2. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    Un code dédié n'existe pas, tu dois faire ça avec un timer en changeant les caractéristiques du contrôle.
    A+
    0
  3. bnjdd7 Messages postés 7 Statut Membre
     
    non
    je parle de VB 6
    0
  4. bnjdd7 Messages postés 7 Statut Membre
     
    je comprend
    et comment dois je proceder? disant avoir une idees sur les codes je suis encore debutant
    0
    1. Yoda
       
      Bonjour,

      Une idée, rendre l'image visible / invisible avec une bonne temporisation, ça peut faire son effet.
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. ShayFmw Messages postés 121 Statut Membre 43
     
    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.
    0
  7. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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+
    0