VB 2010 : Changement de BackGroundImage toutes les secondes !

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é !

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

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

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

Bonjour,

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

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

Merci beaucoup
Je pense reussir :D