CLIGNOTEMENT EN VISUAL BASIC AVEC LE CONTRÔLE "TIMER"

Commentaire de jrbleboss le 15/06/2005 14:11:53

Moi aussi je croyais que c'etait du flash(le language).
La ya pas un grabd interet mais bon.

Commentaire de dragon le 15/06/2005 15:01:44

ben flash en vb ça fonctionne très bien, pis ça prend le même nombre de ligne lol
désoler mais source sans intéret, le but d,une source est d'apprendre, mais là ....

Commentaire de ScSami le 15/06/2005 16:57:57

Idem, clair qu'on pense directement au Macromedia Flash!!!
Et idem aussi sur l'intéret d'une telle source!!!
Mais comme c'est ta première source... on t'en veux pas :-D
Soit le bienvenu et persévère...

A bientot pour ta prochaine source! ;-)

Commentaire de thebrainwasher le 15/06/2005 22:07:20

oua magnifique, c'est dingue ce qu'on peut faire en vb

Commentaire de dragon le 16/06/2005 13:56:30

oui rendu là, regarde plutot ma source http://www.vbfrance.com/code.aspx?ID=31810

au moins, je l'ai faite sur un bouton mais avec l'héritage en .net avec la possibilité de le faire clignoter ou non et de modifier la vitesse et/ou changer les couleur pendant l'éxécution

c'est déjà pas mal plus complet et ça montre l'héritage sur un code source simple

Commentaire de dragon le 16/06/2005 19:39:18

rajoute un thread par dessus ça et on peut faire n'importe quoi lol
Optitech, c'est une habitude de poster en double lol

Commentaire de Optitech le 23/06/2005 19:53:02

Slt !

Ce que je comprend s'est que tu as un PictureBox avec une image A et une image B et tu vuet que toute les 5 secondes l'image A soit remplaceé par l'image B et inversement. et tu veut que quand c'est l'image B qui est afficher elle clignote toute les 2 sec c'est ca ??

Si c'est cela tu peut utilisé 2 timer à un interval de 5000 ms et un autre de 2000 ms ! Il fuat que le timer qui à 1 interval de 2000 ms est la propriété Enabled à False. Pour les images je te conseil un ImageList (disponible dans le composant Microsoft Windows Common Controls 5.0 ou 6.0) c'est super pratique pour cahrger les images dont tu as besoin et au lieu d'utiliser un PictureBox utilise le controle nommé Image.


Voila le code que j'utiliserait pour faire cela :

#Debut du code#

Option Explicit ' On est obliger de déclarer le variables

Dim x As Integer ' Soit la varibles x un interger (entre -32768 et 32767)
x = 1 ' on initialise x à 1

Private Sub Form_Load() ' Au chargment de la feuille

ImageList1.ListImages.Add 1, "", LoadPicture(App.Path & "\imageA.jpg") ' On charger l'image A
ImageList1.ListImages.Add 2, "", LoadPicture(App.Path & "\imageB.jpg") ' On charger l'image B
Image1.Picture = LoadPicture(ImageList1.ListImages.Item(1)) ' On affihce l'image A

End Sub

Private Sub Timer2000ms_Timer()

If Image1.Visible = True Then
'on cache

Image1.Visible = False

Else
'on affiche

Image1.Visible = True

End If

End Sub

Private Sub Timer5000ms_Timer() 'Timer qui ordonne le changement d'image

Timer2000ms.Enabled = False ' on eteind le clignotement
Image1.Visible = True ' On affiche car pour faire clignoté on l'efface !

Image1.Picture = LoadPicture(ImageList1.ListImages.Item(1))

x = x + 1 'on rajoute 1 à x

If x = 3 Then

x = 1 ' x = 1 car il n'y  pas 3 image

Else
'On déclanche le clignotement toute les 2 secondes !

Timer2000ms.Enabled = True

End If

End Sub

#Fin du code#

J'espère que c'est ce que tu as demandé ! Sinon c'est pas grave ca peut toujours servir ! Et si tu n'a pas comprit ou que cela ne marhce pas n'exite pas à ecrire un post !

@++

Optitech

Commentaire de djmerlone le 23/06/2005 23:57:19

" Ce que je comprend s'est que tu as un PictureBox avec une image A et une image B et tu vuet que toute les 5 secondes l'image A soit remplaceé par l'image B et inversement. et tu veut que quand c'est l'image B qui est afficher elle clignote toute les 2 sec c'est ca ?? "

Ops , pardon javais pas repondu juste avant mon dernier message.

Oui c'est bien ca Optitech.

Commentaire de djmerlone le 24/06/2005 22:03:24

Non non :-) Jinsiste merci a toi de m'aider !

Ici aussi je debute completement le vb.net ...

Sympas, merci encore ..


Ps: " Oui la proprité enabled du timer n'existe pas en VB .Net ! " - Oui, Elle exitste quand elle a linterieur dun timer_tick ...