Débutant, TimerRésolu

Question

Je cherche et je teste, mais rien n'y fait
je n'arrive pas à faire clignoter un label

je place un timer et un label sur ma form

puis voici mon code

  Private Sub Timer1_Timer()



        If Label1.Visible = True Then
            Label1.Visible = False
        Else
            Label1.Visible = True
        End If
    End Sub

je démarre le débogage, et mon label ne clignote pas

Je suis sous vb 2005

Les propriétés de mon timer sont 
enabled true
generatemember true
interval 100
modifiers friend

Je suis nouveau en vb, et il doit manquer quelque chose.

gillardg · Accepted Answer

tiens essaie ça  pour clignoter ça clignote  
'nécessite un timer
Public

Class Form1

Dim x 
As
New Random

Private
Sub Form1_Load(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles
MyBase.Load
Me.DoubleBuffered TrueTimer1.Interval 100

Timer1.Enabled = 

True

End
Sub

Private
Sub Timer1_Tick(
ByVal sender 
As
Object, 
ByVal e 
As System.EventArgs) 
Handles Timer1.TickApplication.DoEvents()

Me.BackColor = Color.FromArgb(255, x.Next(0, 255), x.Next(0, 255), x.Next(0, 255))Application.DoEvents()

End
SubEnd

Class
bonjour chez vous!
< body>

mortalino · Answer

salut,

en dotnet, ne serait-ce pas plutôt, Timer1_Tick ou qque chose s'en rapprochant ?
En tout cas, Timer1_Timer c'est en VB6

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

cs_eldim · Answer

interval 100 ça fait très court... pas sur que tu le vois à l'écran...

-- Pourquoi faire simple quand on peut faire compliquer  --

rudyrudyrudyrudy · Answer

J'ai essayer avec Timer1_Tick 
interval à 1000

Même chose, c'est très bizarre!

cs_eldim · Answer

déja tu peux faire ça : Label1.Visible = not Label1.Visible 
ensuite il ne faut pas oublié de démarré le timer (tontimer.start)

-- Pourquoi faire simple quand on peut faire compliquer  --

Débutant, Timer

5 réponses

Votre réponse

Discussions similaires