VB 2010 : Changement de BackGroundImage toutes les secondes !

Question

Bonjour, 

Je voudrais savoir comment faire pour que mon image de font change en fonction de plusieurs timer qui s'activent toutes les seconde ( 6 timer )
En faite mon but et que quand le premier Timer s'enclanche l'image de font change puis une seconde après le Timer 2 se lance et la une autre image apparait ainsi de suite de sorte a faire une annimation :) 

Merci pour ceux qui prendrons la peine de me répondre...
Bonne journer/soirer
Configuration: Windows Vista / Firefox 18.0

martinbouchard · Answer

Salut, voici une procédure que j'avais produit avec 3 images en alternance à l'aide d'un timer :

 Private Sub tmrSeconde_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrChangerImage.Tick

        'BUT
        '***
        'Calcule le temps et change le backGroungImage du frmBienvenue au 3 secondes.

        Static Dim numImage As Integer = 0

        'SI les 3 images sont passés, on retourne à la première image
        If numImage = 3 Then
            numImage = 0
        End If
        numImage += 1

        'Afficher l'image selon l'ordre
        Select Case numImage
            Case Is = 1
                Me.BackgroundImage = Image.FromFile(Application.StartupPath & "\bookin.jpg")

            Case Is = 2
                Me.BackgroundImage = Image.FromFile(Application.StartupPath & "\dictionnaire.jpg")

            Case Is = 3
                Me.BackgroundImage = Image.FromFile(Application.StartupPath & "\alphabet.GIF")
        End Select
    End Sub

En espèrant t'avoir aidé !

Logiciel-revolution · Answer

Est ce possible a l'aide d'une progressBar ?

Exemple :

ProgressBar1.Value = "33,34,35..."(jusque 65 )
BackGroundImage = "url de l'image sur l'ordinateur"         
ProgressBar1.Value = "66,67,68..." (jusque 99 )                 
BackGroundImage = "url de l'image sur l'ordinateur"
ProgressBar1.Value = "100"
BackGroundImage = "url de l'image sur l'ordinateur"

Si j'ai que erreur pouvez vous trouvais une solution merci

Kotozefa · Answer

salut,essayer ce code:J'utilise une seul Timer
dim t as intger
sur le chargement du form:
t=0
sur le Timer:
t=t+1
if t=1 then
Me.BackgroundImage = Image.FromFile(Application.StartupPath & "\bookin.jpg") 
end if
if t=2 then
Me.BackgroundImage = Image.FromFile(Application.StartupPath & "\dictionnaire.jpg") 
end if
if t=3 then
Me.BackgroundImage = Image.FromFile(Application.StartupPath & "\alphabet.GIF") 
t=0
end if

cs_Le Pivert · Answer

Bonjour,

voici 2 manières de procéder:
Avec une ProgessBar ou avec une TrackBar

Dans le Form mettre un Button, une ProgressBar, une TrackBar et un timer avec ce code:

Option Strict On
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        ProgressBar1.Value = 0
        TrackBar1.Maximum = 100
        Timer1.Interval = 100
        Me.BackgroundImageLayout = ImageLayout.Stretch
    End Sub
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If ProgressBar1.Value < ProgressBar1.Maximum Then
            ProgressBar1.Value += 1
            Select Case ProgressBar1.Value
                Case CInt("10")
                    Me.BackgroundImage = Image.FromFile("C:\chemin image3.jpg")
                Case CInt("33")
                    Me.BackgroundImage = Image.FromFile("C:\chemin image1.jpg")
                Case CInt("66")
                    Me.BackgroundImage = Image.FromFile("C:\chemin image2.jpg")
                Case CInt("99")
                    Me.BackgroundImage = Image.FromFile("C:\chemin image3.jpg")
            End Select

If ProgressBar1.Value = ProgressBar1.Maximum Then
                MsgBox("Fini!")
                Exit Sub
            End If
        End If
    End Sub
    Private Sub TrackBar1_Scroll(sender As System.Object, e As System.EventArgs) Handles TrackBar1.Scroll
        Select Case TrackBar1.Value
            Case CInt("01")
                Me.BackgroundImage = Image.FromFile("C:\chemin image3.jpg")
            Case CInt("33")
                Me.BackgroundImage = Image.FromFile("C:\chemin image1.jpg")
            Case CInt("66")
                Me.BackgroundImage = Image.FromFile("C:\chemin image2.jpg")
            Case CInt("99")
                Me.BackgroundImage = Image.FromFile("C:\chemin image3.jpg")
        End Select
    End Sub
End Class

Logiciel-revolution · Answer

Bonjour,

Merci pour vos réponse mais pourriez vous etre un peu plus précis ? je suis encore un débutant :/
Merci

cs_Le Pivert · Answer

Voir l'exemple à decompresser sur ce site. J'ai mis les images de 2 manières avec l'executable et dans les resources au choix

 https://www.cjoint.com/?3Eon43ovRc6

Logiciel-revolution · Answer

Merci beaucoup 
Je pense reussir :D

VB 2010 : Changement de BackGroundImage toutes les secondes !

7 réponses

Votre réponse

Discussions similaires

Newsletters