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

[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

[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.

[lodizzz]

merci de m'aider.

Alors apparement ce serait quelque chose comme cela, mais devant :

Code :

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

 Invoke(New delegate_cache_lblmessage(AddressOf cache_lblmessage))

il faudrait qu'il y ait un objet delegate. Mais je ne comprend pas exactement comment le céer...

[lodizzz]

Trouvé

Je ne comprend toujours pas vraiment mais il faut mettre devant : Me.Dispatcher.Invoke

soit le code suivant :

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
    Me.Dispatcher.Invoke(New delegate_cache_lblmessage(AddressOf cache_lblmessage))
End Sub

Merci beaucoup à toi

[asmduty]

Je sais pas ce qu'est exactement le me.dispatcher, mais si ça marche ...

Il me semble que pour ma part j'avais importé des références pour le BackgroundWorker, et autres.

Invoke devait être dans ces références.