VB 2010 : Changement de BackGroundImage toutes les secondes !

Logiciel-revolution Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
Logiciel-revolution Messages postés 20 Date d'inscription Statut Membre Dernière intervention - 14 mai 2014 à 20:22

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

A voir également:

VB 2010 : Changement de BackGroundImage toutes les secondes !
Clé activation office 2010 gratuit - Télécharger - Sécurité
Vb - Télécharger - Langages
Word 2010 - Télécharger - Traitement de texte
Vb cable - Télécharger - Audio & Musique
Waptrick java football 2010 - Télécharger - Jeux vidéo

7 réponses

Réponse 1 / 7

martinbouchard Messages postés 2 Date d'inscription Statut Membre Dernière intervention

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

Réponse 2 / 7

Logiciel-revolution Messages postés 20 Date d'inscription Statut Membre Dernière intervention 1

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

Réponse 3 / 7

Kotozefa Messages postés 2 Date d'inscription Statut Membre Dernière intervention

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

Réponse 4 / 7

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

Logiciel-revolution Messages postés 20 Date d'inscription Statut Membre Dernière intervention 1

Bonjour,

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

Réponse 6 / 7

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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

Réponse 7 / 7

Logiciel-revolution Messages postés 20 Date d'inscription Statut Membre Dernière intervention 1

Merci beaucoup
Je pense reussir :D

Discussions similaires

Mettre autocad 2010 en français

telecharger la version complete de pes 2010

Votre réponse

Discussions similaires