[VB6] COmment Faire Clignoter une image ?

**Lucas42** · 25/04/2006, 09h53

Bonjour , je désire faire clignoter une image , en effet j'aimerai connaitre la commande permmetant de l'appliquer , j'arrive de C++Builder , donc je pense qu'il faut que j'utilise un TIMER , mais son utilisation est differente sous VB6

Merci d'avance
amicalement LUCAS

**Asdorve** · 25/04/2006, 10h08

essaye ce code, chez moi ça marche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim indtemps As Integer
 
Private Sub tmTimer_Timer()
'Gestion du timer
    indtemps = indtemps + 1
 
    Select Case indtemps
        Case 1 
 
            Picture1.Visible = False
 
    Case 2
    Picture1.Visible = True
    indtemps = 0
    End Select
End Sub
 
Private Sub Form_Load()
Call tmTimer_Timer
End Sub

**Asdorve** · 25/04/2006, 10h11

attention: propriété du contrôle Timer: interval à 100 par exemple pour un clignotement toutes les 100ms,

tu modifies en fonction du besoin.

**jacma** · 25/04/2006, 10h21

Bonjour

Tu trouveras un exemple dans mon praticiel "Initiation à l'accès aux données" (accessible par l'adresse en signature) dans lequel un timer est utilisé pour faire clignoter un label.