Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 01:21:33

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par jack

RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par liehuos001

RE : LORSQUE JE VEUX FAIRE LES ENREGISTREMENT DANS MA TABLE EN VB.NET UN MESSAGE S'AFFICHE EN ME DISANT QUE LE CHAMPS EST PETIT. QUE FAIE? par PCPT

RE : BUFFERING par pingouin84k

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par Renfield

+ de logiciels à télécharger

1 464 950 membres
5 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 044 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

PETITE ANIMATION AVEC DEUX IMAGES

Information sur la source

Catégorie :Graphique Classé sous : animation, timer, images Niveau : Débutant Date de création : 19/07/2003 Date de mise à jour : 06/02/2009 09:39:15 Vu / téléchargé: 3 441 / 223

Auteur : linkinpar236737

Site perso

Ecrire un message privé

Note :

3,75 / 10

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

Tout est dans le titre, on peut faire bouger une image, mais seulement avec deu images, si vous savez comment pour faire avec plus, et si il y a un moyen d'enregistrer, dites le moi...

Source

A PLACER DANS LA FORM1
Private Sub Command1_Click()
Text1.Text = "" + Dir1 + "\" + File1 + ""
End Sub
Private Sub Command2_Click()
Text2.Text = "" + Dir2 + "\" + File2 + ""
End Sub
Private Sub Command3_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "Valeures incorrectes", vbOKOnly + vbCritical, "Valeures incorrectes"
Else
Timer1.Enabled = True
Command5.Enabled = True
Command3.Enabled = False
End If
End Sub
Private Sub Command4_Click()
a = InputBox("Dites le nombre de millisecondes qu'il y aura entre les deux images :")
If IsNumeric(a) Then
Timer1.Interval = a
Timer2.Interval = a
Else
MsgBox "Ceci n'est pas une valeure numérique", vbOKOnly + vbCritical, "Valeure incorrecte"
End If
End Sub
Private Sub Command5_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Command5.Enabled = False
Command3.Enabled = True
End Sub
Private Sub Command6_Click()
If Text1.Text = "" Then
MsgBox "Aucune image sélectionnée", vbOKOnly + vbCritical, "Aucune image"
Else
Form2.Show
End If
End Sub
Private Sub Command7_Click()
If Text1.Text = "" Then
MsgBox "Aucune image sélectionnée", vbOKOnly + vbCritical, "Aucune image"
Else
Form3.Show
End If
End Sub
Private Sub Dir1_Change()
File1 = Dir1
End Sub
Private Sub Dir2_Change()
File2 = Dir2
End Sub
Private Sub File1_DblClick()
Text1.Text = "" + Dir1 + "\" + File1 + ""
End Sub
Private Sub File2_DblClick()
Text2.Text = "" + Dir2 + "\" + File2 + ""
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
selectedfile = File1.Path & "\" & File1.FileName
Form1.Image1.Picture = LoadPicture(selectedfile)
Timer2.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
selectedfile = File2.Path & "\" & File2.FileName
Form1.Image1.Picture = LoadPicture(selectedfile)
Timer2.Enabled = False
Timer1.Enabled = True
End Sub
A PLACER DANS LE FORM2
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
selectedfile = Form1.File1.Path & "\" & Form1.File1.FileName
Form2.Image1.Picture = LoadPicture(selectedfile)
End Sub
A PLACER DANS LA FORM3
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
selectedfile = Form1.File2.Path & "\" & Form1.File2.FileName
Form3.Image1.Picture = LoadPicture(selectedfile)
End Sub

A PLACER DANS LA FORM1

Private Sub Command1_Click()
Text1.Text = "" + Dir1 + "\" + File1 + ""
End Sub

Private Sub Command2_Click()
Text2.Text = "" + Dir2 + "\" + File2 + ""
End Sub

Private Sub Command3_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "Valeures incorrectes", vbOKOnly + vbCritical, "Valeures incorrectes"
Else
Timer1.Enabled = True
Command5.Enabled = True
Command3.Enabled = False
End If
End Sub

Private Sub Command4_Click()
a = InputBox("Dites le nombre de millisecondes qu'il y aura entre les deux images :")
If IsNumeric(a) Then
Timer1.Interval = a
Timer2.Interval = a
Else
MsgBox "Ceci n'est pas une valeure numérique", vbOKOnly + vbCritical, "Valeure incorrecte"
End If
End Sub

Private Sub Command5_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Command5.Enabled = False
Command3.Enabled = True
End Sub

Private Sub Command6_Click()
If Text1.Text = "" Then
MsgBox "Aucune image sélectionnée", vbOKOnly + vbCritical, "Aucune image"
Else
Form2.Show
End If
End Sub

Private Sub Command7_Click()
If Text1.Text = "" Then
MsgBox "Aucune image sélectionnée", vbOKOnly + vbCritical, "Aucune image"
Else
Form3.Show
End If
End Sub

Private Sub Dir1_Change()
File1 = Dir1
End Sub

Private Sub Dir2_Change()
File2 = Dir2
End Sub

Private Sub File1_DblClick()
Text1.Text = "" + Dir1 + "\" + File1 + ""
End Sub

Private Sub File2_DblClick()
Text2.Text = "" + Dir2 + "\" + File2 + ""
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
selectedfile = File1.Path & "\" & File1.FileName
Form1.Image1.Picture = LoadPicture(selectedfile)
Timer2.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
selectedfile = File2.Path & "\" & File2.FileName
Form1.Image1.Picture = LoadPicture(selectedfile)
Timer2.Enabled = False
Timer1.Enabled = True
End Sub



A PLACER DANS LE FORM2

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
selectedfile = Form1.File1.Path & "\" & Form1.File1.FileName
Form2.Image1.Picture = LoadPicture(selectedfile)
End Sub



A PLACER DANS LA FORM3

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
selectedfile = Form1.File2.Path & "\" & Form1.File2.FileName
Form3.Image1.Picture = LoadPicture(selectedfile)
End Sub

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Form1.frm 6 011 octets
Form2.frm 1 192 octets
Form3.frm 1 192 octets
gifs.exe32 768 octets
Project1.vbp 660 octets
Project1.vbw 154 octets

Télécharger le zip

Sources du même auteur

RÉVEIL

VISUALISATEUR D'IMAGES + OPTIONS

UN GENRE DE FLOODER PAS TOUT A FAIT PAREIL

CHANGER L'IMAGE DU POINTEUR

CHANGER LA VITESSE DE DÉFILEMENT DES SOUS MENU SOUS WINDOWS ...

Toutes les sources de linkinpar236737

Sources de la même categorie

AFFICHEUR 7 SEGMENTS par elguevel

SCREENCOLORINVERTER par slayer418

CHART COURBE STATISTIQUE DAO par amita

GABSCREENSHOT : FAITES SIMPLEMENT ET RAPIDEMENT VOS CAPTURES... par GabSoftware

BITBLT ENTRE 2 PICTUREBOX EN VB NET par Galain

Toutes les sources de la catégorie Graphique

Sources en rapport avec celle ci

RENOMMER SÉRIE D'IMAGE DIRECTEMENT AVEC VBA EXCEL (CLASSEMEN... par davidparison

JEU DE PUZZLE AVEC CHOIX IMAGES par tmcode

GESTION VIDÉO par mich95

VISUALISATION DU CONTENU D'UNE IMAGE / ANIMATION GIF par Orohena

ANIMATION D'IMAGES par Le Pivert

Commentaires et avis

Commentaire de max12 le 20/07/2003 16:32:10 administrateur CS

C'Est pas du tout des GIF sa

Commentaire de linkinpar236737 le 20/07/2003 16:58:44

EHHH ben je savais pas comment appeler deux images qui bougent dsl

Commentaire de antho2005 le 12/11/2008 15:15:49

Bon ça date mais ...
Oula ... Hum ... J'aurais pas fais comme ça ...
Je dirais plutôt comme ça:

Dim ListeFiles() As String 'Tu le rempli de la façon dont tu veux
Dim IndexActu as Integer

Private Sub Form1_Load()
IndexActu = 0
End Sub

Private Sub BoutonMarcheArret_Click()
TonTimer.Enabled = Not TonTimer.Enabled
End Sub

Private Sub TonTimer_Timer()
IndexActu = IndexActu + 1
If IndexActu > UBound(ListeFiles) Then IndexActu = 0
Dim Actu As String
Actu = File1.Path & "\" & ListeFiles(IndexActu)
Form1.TaPictureBox.Picture = LoadPicture(Actu)
End Sub

Sur ce ...
À la revoyure

Antho2005

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Animation [ par Gabriel ] Avant tout, comprenez que je n'ai pas le controle PictureClip.Si j'ai une image "Anim.bmp" et que j'ai 20 petites images dans ce BMP.Ces petites image Comment créer une animation GIF [ par bratislaprog ] Je voudrais savoir s'il est possible de créer un gif animé à partir d'images dont ont donne le nom et le chemin, on peut régler le temps d'apparition touche enter avec des images ?? [ par quitues ] Bonjour,j'ai 1 prob avec une form ou on met le mot de passe :dans une form avec des boutons normaux, quand on appuye sur enter sa valide le tout, mais Chargement d'images externes à l'animation dans le cache du navigateur [ par oppo ] Bonjour, Je réalise un site entièrement en flash avec une gallerie dont les images sont stockées séparément dans un dossier animation, timer [ par wahidov2000 ] bonjour ,je veux juste savoir comment faire pour qu'un timer soit toujours en execution (pas d'interuption)car j'utilise des bases de donnée de grande A/s animation jpg a l'aide du timer [ par med64 ] Bonjour, je suis débutant en vb6, j'aimerais avoir le code sources, pour que je puisse aminer un jpg avec du timer, merci d'avance timer et image [ par tomeca ] salut a tous,jai 16 meme picture box où sont affectés 16 images d'une image list. Cependant, quand je clique sur un bouton je voudrais que mes images capturer et afficher des images [ par zeb340 ] Bonjour. Je voudrais a partir d'un dossier d'ou arrive des images capturées par une webcame les afficher sur une page les une aprés les