A voir également:
- Codes visual basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Les codes ascii - Guide
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
6 réponses
Bonjour,
Un code dédié n'existe pas, tu dois faire ça avec un timer en changeant les caractéristiques du contrôle.
A+
Un code dédié n'existe pas, tu dois faire ça avec un timer en changeant les caractéristiques du contrôle.
A+
je comprend
et comment dois je proceder? disant avoir une idees sur les codes je suis encore debutant
et comment dois je proceder? disant avoir une idees sur les codes je suis encore debutant
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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.
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...
En lieu et place de la coloration de la forme tu peu adapter au contrôle que tu veux.
A+
@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+
