Discussion :

[lodizzz]

Bonjour,

j'aimerais faire en sorte qu'un de mes labels soit affiché pendant 3 secondes et disparaissent après...
Je ne vois pas comment faire :s

Voila pour l'instant ou j'en suis :

Au chargement de la page :

Code :

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

1
2
3
 
lblMessage.Visibility = Windows.Visibility.Visible
Temps()

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
 
Dim atimer As Timer
Dim deb As Integer
Private Sub Temps()
atimer = New System.Timers.Timer(6000)
deb = CInt(Date.Now.ToString("ss"))
AddHandler aTimer.Elapsed, AddressOf OnTimedEvent
atimer.Interval = 3000
aTimer.Enabled = True
End Sub
 
Private Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs)
atimer.Stop()
lblMessage.Visibility = Windows.Visibility.Hidden
End Sub

Et voici l'erreur :

Le thread appelant ne peut pas accéder à cet objet parce qu'un autre thread en est propriétaire

Merci.

[Howard_Hughes]

Bonjour,

je n'ai pas de plateforme Vb.net pour tester, mais essaie avec lblMessage.Visibility = False au lieu de Hidden

[lodizzz]

ca ne marche pas non plus
merci quand meme

[shayw]

Salut

peut etre simplement

Code :

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

 Private WithEvents timer1 As New Timer

dans le event load

Code :

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

1
2
timer1.Interval = 3000
        timer1.Start()

Code :

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

1
2
3
4
     Private Sub timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles timer1.Tick
        DirectCast(sender, Timer).Stop()
       mylabel.Visible = False
    End Sub

[lodizzz]

Le code données ne fonctionne pas
par contre je vais aller me renseigner du coté des delegate...

merci

[asmduty]

Afin de vous éclairer un peu voilà comment ça doit se présenter :

Au niveau des déclarations on déclare une sub delegate :

Code :

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

Private delegate sub delegate_cache_lblmessage

Ensuite une sub sur laquelle va pointer votre delegate sub :

Code :

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

1
2
3
Private sub cache_lblmessage
     lblMessage.Visibility = Windows.Visibility.Hidden
End sub

et enfin une ligne qui lance votre sub en déléguée :

Code :

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

1
2
3
4
5
Private Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs)
     atimer.Stop()
     'lblMessage.Visibility = Windows.Visibility.Hidden
     Invoke(New delegate_cache_lblmessage(AddressOf cache_lblmessage))
End Sub

Je ne suis pas sur à 100% de la syntaxe, mais il me semble que c'est ça.

[asmduty]

Bonjour,

regardez du côté des "DELEGATE".
Le thread principal a créé le controle, il est donc le seul à pouvoir accéder à ses propriétés graphiques.
Afin de modifier une de ces propriétés, vous pouvez appeller à partir de votre thread une sub delegate dans laquelle vous mettez votre

Code :

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

lblMessage.Visibility = Windows.Visibility.Hidden