Parametre opacité sur picturebox en wpf

Signaler
Messages postés
51
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
13 février 2012
-
Messages postés
51
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
13 février 2012
-
salut
je sais pas tres bien ou il fallais mettre ce sujet
libre au admin de le deplacé

je souhaiterais avoir une petite info sur le parametre opacity d'une picture box (c plus un controle image en wpf,il me semble )

donc pour vous decrire un peu la config du prog :
c'est une form wpf
g une un controle image (dim image1 as image)
je veu jouer sur le parametre opacity pour changer la source de l'image image1.opacity
(faire un enchainement d'image en fondu )
mon probleme est que en wpf je fais varié la value de image1 il fige quelque second sur 0.98 avant d'arrivé a 1
pourkoi
sa vient de mon timer ou d'autre chose
je vous laisse le code que j'ai fé


dim statusimage as object = false
Public Sub timer()

Me.InitializeComponent()

Dim myTimer As New DispatcherTimer()
myTimer.Interval = New TimeSpan(0, 0, 0, 0, 100)
AddHandler myTimer.Tick, AddressOf myTimer_Tick

myTimer.Start()

End Sub
Private Sub myTimer_Tick(ByVal sender As Object, ByVal e As EventArgs)

If statusimage = True Then
Image1.Opacity = Image1.Opacity + 0.1
If Image1.Opacity >= 1 Then
statusimage = False
end if
elseif statusimage = false Then
Image1.Opacity = Image1.Opacity - 0.1
If Image1.Opacity <=1 Then
'je change l'image a ce moment la
statusimage = False
End If
End Sub

j'espere d'etre sufisament claire dans mes explication


merci d'avance de vos reponse

1 réponse

Messages postés
51
Date d'inscription
lundi 7 juillet 2008
Statut
Membre
Dernière intervention
13 février 2012

desolé c'est juste une petite mise en forme
pour facilité la lecture

dim statusimage as object = false 
Public Sub timer() 

Me.InitializeComponent() 

Dim myTimer As New DispatcherTimer() 
myTimer.Interval = New TimeSpan(0, 0, 0, 0, 100) 
AddHandler myTimer.Tick, AddressOf myTimer_Tick 

myTimer.Start() 

End Sub 
Private Sub myTimer_Tick(ByVal sender As Object, ByVal e As EventArgs) 

If statusimage = True Then 
Image1.Opacity = Image1.Opacity + 0.1 
If Image1.Opacity >= 1 Then 
statusimage = False 
end if 
elseif statusimage = false Then 
Image1.Opacity = Image1.Opacity - 0.1 
If Image1.Opacity <=1 Then 
'je change l'image a ce moment la 
statusimage = False 
End If 
End Sub