Bonjour,
J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété opacity
de 0 à 1.
Cependant lorsque que je cree une boucle for :
Dim i As Byte
For i = 0 To 1
Opacity = i
i = i + 0.1
Sleep(100)
Next
Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait d'un
coup au bout d'un certain tps. J'ai essayé avec des Me.Refresh() ou des
Application.DoEvents() mais rien ni fait.
Si quelqu'un avait la solution ?
Bonjour,
J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété opacity
de 0 à 1.
Cependant lorsque que je cree une boucle for :
Dim i As Byte
For i = 0 To 1
Opacity = i
i = i + 0.1
Sleep(100)
Next
Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait d'un
coup au bout d'un certain tps. J'ai essayé avec des Me.Refresh() ou des
Application.DoEvents() mais rien ni fait.
Si quelqu'un avait la solution ?
Bonjour,
J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété opacity
de 0 à 1.
Cependant lorsque que je cree une boucle for :
Dim i As Byte
For i = 0 To 1
Opacity = i
i = i + 0.1
Sleep(100)
Next
Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait d'un
coup au bout d'un certain tps. J'ai essayé avec des Me.Refresh() ou des
Application.DoEvents() mais rien ni fait.
Si quelqu'un avait la solution ?
Bonjour,
J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
opacity de 0 à 1.
Cependant lorsque que je cree une boucle for :
Dim i As Byte
For i = 0 To 1
Opacity = i
i = i + 0.1
Sleep(100)
Next
Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
d'un coup au bout d'un certain tps. J'ai essayé avec des Me.Refresh()
ou des Application.DoEvents() mais rien ni fait.
Si quelqu'un avait la solution ?
Bonjour,
J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
opacity de 0 à 1.
Cependant lorsque que je cree une boucle for :
Dim i As Byte
For i = 0 To 1
Opacity = i
i = i + 0.1
Sleep(100)
Next
Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
d'un coup au bout d'un certain tps. J'ai essayé avec des Me.Refresh()
ou des Application.DoEvents() mais rien ni fait.
Si quelqu'un avait la solution ?
Bonjour,
J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
opacity de 0 à 1.
Cependant lorsque que je cree une boucle for :
Dim i As Byte
For i = 0 To 1
Opacity = i
i = i + 0.1
Sleep(100)
Next
Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
d'un coup au bout d'un certain tps. J'ai essayé avec des Me.Refresh()
ou des Application.DoEvents() mais rien ni fait.
Si quelqu'un avait la solution ?
Salut,
Il faut que ton appli tourne au moins sous 2000, XP ou 2003, sinon ça ne
marcheras pas...
Essaye de voir le autoredraw
@+
LJ
"bobysmith" a écrit dans le message de
news:
> Bonjour,
> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété opacity
> de 0 à 1.
> Cependant lorsque que je cree une boucle for :
>
> Dim i As Byte
> For i = 0 To 1
> Opacity = i
> i = i + 0.1
> Sleep(100)
> Next
>
> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait d'un
> coup au bout d'un certain tps. J'ai essayé avec des Me.Refresh() ou des
> Application.DoEvents() mais rien ni fait.
>
> Si quelqu'un avait la solution ?
>
Salut,
Il faut que ton appli tourne au moins sous 2000, XP ou 2003, sinon ça ne
marcheras pas...
Essaye de voir le autoredraw
@+
LJ
"bobysmith" <bobysmith@discussions.microsoft.com> a écrit dans le message de
news:E1D5C1F4-1015-4F5D-885E-D10CC3C403F5@microsoft.com...
> Bonjour,
> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété opacity
> de 0 à 1.
> Cependant lorsque que je cree une boucle for :
>
> Dim i As Byte
> For i = 0 To 1
> Opacity = i
> i = i + 0.1
> Sleep(100)
> Next
>
> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait d'un
> coup au bout d'un certain tps. J'ai essayé avec des Me.Refresh() ou des
> Application.DoEvents() mais rien ni fait.
>
> Si quelqu'un avait la solution ?
>
Salut,
Il faut que ton appli tourne au moins sous 2000, XP ou 2003, sinon ça ne
marcheras pas...
Essaye de voir le autoredraw
@+
LJ
"bobysmith" a écrit dans le message de
news:
> Bonjour,
> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété opacity
> de 0 à 1.
> Cependant lorsque que je cree une boucle for :
>
> Dim i As Byte
> For i = 0 To 1
> Opacity = i
> i = i + 0.1
> Sleep(100)
> Next
>
> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait d'un
> coup au bout d'un certain tps. J'ai essayé avec des Me.Refresh() ou des
> Application.DoEvents() mais rien ni fait.
>
> Si quelqu'un avait la solution ?
>
Salut,
Ceci fonctionne très bien chez moi :
Public Class Form1
Private bShowed As Boolean
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
If Not bShowed Then
bShowed = True
Dim i As Int32
For i = 0 To 100
Me.Opacity = (i / 100)
Call System.Threading.Thread.Sleep(10)
Application.DoEvents()
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
End Sub
End Class
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :
> Bonjour,
> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
> opacity de 0 à 1.
> Cependant lorsque que je cree une boucle for :
>
> Dim i As Byte
> For i = 0 To 1
> Opacity = i
> i = i + 0.1
> Sleep(100)
> Next
>
> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
> d'un coup au bout d'un certain tps. J'ai essayé avec des Me.Refresh()
> ou des Application.DoEvents() mais rien ni fait.
>
> Si quelqu'un avait la solution ?
Salut,
Ceci fonctionne très bien chez moi :
Public Class Form1
Private bShowed As Boolean
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
If Not bShowed Then
bShowed = True
Dim i As Int32
For i = 0 To 100
Me.Opacity = (i / 100)
Call System.Threading.Thread.Sleep(10)
Application.DoEvents()
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
End Sub
End Class
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith <bobysmith@discussions.microsoft.com> a écrit :
> Bonjour,
> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
> opacity de 0 à 1.
> Cependant lorsque que je cree une boucle for :
>
> Dim i As Byte
> For i = 0 To 1
> Opacity = i
> i = i + 0.1
> Sleep(100)
> Next
>
> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
> d'un coup au bout d'un certain tps. J'ai essayé avec des Me.Refresh()
> ou des Application.DoEvents() mais rien ni fait.
>
> Si quelqu'un avait la solution ?
Salut,
Ceci fonctionne très bien chez moi :
Public Class Form1
Private bShowed As Boolean
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
If Not bShowed Then
bShowed = True
Dim i As Int32
For i = 0 To 100
Me.Opacity = (i / 100)
Call System.Threading.Thread.Sleep(10)
Application.DoEvents()
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
End Sub
End Class
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :
> Bonjour,
> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
> opacity de 0 à 1.
> Cependant lorsque que je cree une boucle for :
>
> Dim i As Byte
> For i = 0 To 1
> Opacity = i
> i = i + 0.1
> Sleep(100)
> Next
>
> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
> d'un coup au bout d'un certain tps. J'ai essayé avec des Me.Refresh()
> ou des Application.DoEvents() mais rien ni fait.
>
> Si quelqu'un avait la solution ?
Je viens de voir pourquoi ca ne fait pas le FadeIn.
En fait j'ai aussi attribué une TransparencyKey a black. Et si je
supprime cette TransparencyKey eh bien la ca marche !
Alors comment faire pour que Opacity et TransparecyKey marche
ensemble pour faire un FadeIn. A savoir que si je fait plusieurs
bouton avec des Opacity différentes eh bien la ca marche (avec
TransparecyKey actif)
C'est donc un problème de raffraichissement dans la boucle for
Que faire ?
"ng" wrote:Salut,
Ceci fonctionne très bien chez moi :
Public Class Form1
Private bShowed As Boolean
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
If Not bShowed Then
bShowed = True
Dim i As Int32
For i = 0 To 100
Me.Opacity = (i / 100)
Call System.Threading.Thread.Sleep(10)
Application.DoEvents()
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
End Sub
End Class
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :Bonjour,
J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
opacity de 0 à 1.
Cependant lorsque que je cree une boucle for :
Dim i As Byte
For i = 0 To 1
Opacity = i
i = i + 0.1
Sleep(100)
Next
Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
d'un coup au bout d'un certain tps. J'ai essayé avec des
Me.Refresh() ou des Application.DoEvents() mais rien ni fait.
Si quelqu'un avait la solution ?
Je viens de voir pourquoi ca ne fait pas le FadeIn.
En fait j'ai aussi attribué une TransparencyKey a black. Et si je
supprime cette TransparencyKey eh bien la ca marche !
Alors comment faire pour que Opacity et TransparecyKey marche
ensemble pour faire un FadeIn. A savoir que si je fait plusieurs
bouton avec des Opacity différentes eh bien la ca marche (avec
TransparecyKey actif)
C'est donc un problème de raffraichissement dans la boucle for
Que faire ?
"ng" wrote:
Salut,
Ceci fonctionne très bien chez moi :
Public Class Form1
Private bShowed As Boolean
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
If Not bShowed Then
bShowed = True
Dim i As Int32
For i = 0 To 100
Me.Opacity = (i / 100)
Call System.Threading.Thread.Sleep(10)
Application.DoEvents()
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
End Sub
End Class
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith <bobysmith@discussions.microsoft.com> a écrit :
Bonjour,
J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
opacity de 0 à 1.
Cependant lorsque que je cree une boucle for :
Dim i As Byte
For i = 0 To 1
Opacity = i
i = i + 0.1
Sleep(100)
Next
Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
d'un coup au bout d'un certain tps. J'ai essayé avec des
Me.Refresh() ou des Application.DoEvents() mais rien ni fait.
Si quelqu'un avait la solution ?
Je viens de voir pourquoi ca ne fait pas le FadeIn.
En fait j'ai aussi attribué une TransparencyKey a black. Et si je
supprime cette TransparencyKey eh bien la ca marche !
Alors comment faire pour que Opacity et TransparecyKey marche
ensemble pour faire un FadeIn. A savoir que si je fait plusieurs
bouton avec des Opacity différentes eh bien la ca marche (avec
TransparecyKey actif)
C'est donc un problème de raffraichissement dans la boucle for
Que faire ?
"ng" wrote:Salut,
Ceci fonctionne très bien chez moi :
Public Class Form1
Private bShowed As Boolean
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
If Not bShowed Then
bShowed = True
Dim i As Int32
For i = 0 To 100
Me.Opacity = (i / 100)
Call System.Threading.Thread.Sleep(10)
Application.DoEvents()
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
End Sub
End Class
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :Bonjour,
J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
opacity de 0 à 1.
Cependant lorsque que je cree une boucle for :
Dim i As Byte
For i = 0 To 1
Opacity = i
i = i + 0.1
Sleep(100)
Next
Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
d'un coup au bout d'un certain tps. J'ai essayé avec des
Me.Refresh() ou des Application.DoEvents() mais rien ni fait.
Si quelqu'un avait la solution ?
Salut,
Avec un TransparencyKey ca marche tout aussi bien ici (je suis sous VB2005
Beta).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :
> Je viens de voir pourquoi ca ne fait pas le FadeIn.
> En fait j'ai aussi attribué une TransparencyKey a black. Et si je
> supprime cette TransparencyKey eh bien la ca marche !
> Alors comment faire pour que Opacity et TransparecyKey marche
> ensemble pour faire un FadeIn. A savoir que si je fait plusieurs
> bouton avec des Opacity différentes eh bien la ca marche (avec
> TransparecyKey actif)
>
> C'est donc un problème de raffraichissement dans la boucle for
>
> Que faire ?
>
>
> "ng" wrote:
>
>> Salut,
>>
>> Ceci fonctionne très bien chez moi :
>>
>> Public Class Form1
>> Private bShowed As Boolean
>> Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
>> System.EventArgs) Handles Me.Activated
>> If Not bShowed Then
>> bShowed = True
>> Dim i As Int32
>> For i = 0 To 100
>> Me.Opacity = (i / 100)
>> Call System.Threading.Thread.Sleep(10)
>> Application.DoEvents()
>> Next
>> End If
>> End Sub
>>
>> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
>> System.EventArgs) Handles MyBase.Load
>> Me.Opacity = 0
>> End Sub
>> End Class
>>
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>> http://apisvb.europe.webmatrixhosting.net/
>>
>>
>>
>> bobysmith a écrit :
>>
>>> Bonjour,
>>> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
>>> opacity de 0 à 1.
>>> Cependant lorsque que je cree une boucle for :
>>>
>>> Dim i As Byte
>>> For i = 0 To 1
>>> Opacity = i
>>> i = i + 0.1
>>> Sleep(100)
>>> Next
>>>
>>> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
>>> d'un coup au bout d'un certain tps. J'ai essayé avec des
>>> Me.Refresh() ou des Application.DoEvents() mais rien ni fait.
>>>
>>> Si quelqu'un avait la solution ?
Salut,
Avec un TransparencyKey ca marche tout aussi bien ici (je suis sous VB2005
Beta).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith <bobysmith@discussions.microsoft.com> a écrit :
> Je viens de voir pourquoi ca ne fait pas le FadeIn.
> En fait j'ai aussi attribué une TransparencyKey a black. Et si je
> supprime cette TransparencyKey eh bien la ca marche !
> Alors comment faire pour que Opacity et TransparecyKey marche
> ensemble pour faire un FadeIn. A savoir que si je fait plusieurs
> bouton avec des Opacity différentes eh bien la ca marche (avec
> TransparecyKey actif)
>
> C'est donc un problème de raffraichissement dans la boucle for
>
> Que faire ?
>
>
> "ng" wrote:
>
>> Salut,
>>
>> Ceci fonctionne très bien chez moi :
>>
>> Public Class Form1
>> Private bShowed As Boolean
>> Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
>> System.EventArgs) Handles Me.Activated
>> If Not bShowed Then
>> bShowed = True
>> Dim i As Int32
>> For i = 0 To 100
>> Me.Opacity = (i / 100)
>> Call System.Threading.Thread.Sleep(10)
>> Application.DoEvents()
>> Next
>> End If
>> End Sub
>>
>> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
>> System.EventArgs) Handles MyBase.Load
>> Me.Opacity = 0
>> End Sub
>> End Class
>>
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>> http://apisvb.europe.webmatrixhosting.net/
>>
>>
>>
>> bobysmith <bobysmith@discussions.microsoft.com> a écrit :
>>
>>> Bonjour,
>>> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
>>> opacity de 0 à 1.
>>> Cependant lorsque que je cree une boucle for :
>>>
>>> Dim i As Byte
>>> For i = 0 To 1
>>> Opacity = i
>>> i = i + 0.1
>>> Sleep(100)
>>> Next
>>>
>>> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
>>> d'un coup au bout d'un certain tps. J'ai essayé avec des
>>> Me.Refresh() ou des Application.DoEvents() mais rien ni fait.
>>>
>>> Si quelqu'un avait la solution ?
Salut,
Avec un TransparencyKey ca marche tout aussi bien ici (je suis sous VB2005
Beta).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :
> Je viens de voir pourquoi ca ne fait pas le FadeIn.
> En fait j'ai aussi attribué une TransparencyKey a black. Et si je
> supprime cette TransparencyKey eh bien la ca marche !
> Alors comment faire pour que Opacity et TransparecyKey marche
> ensemble pour faire un FadeIn. A savoir que si je fait plusieurs
> bouton avec des Opacity différentes eh bien la ca marche (avec
> TransparecyKey actif)
>
> C'est donc un problème de raffraichissement dans la boucle for
>
> Que faire ?
>
>
> "ng" wrote:
>
>> Salut,
>>
>> Ceci fonctionne très bien chez moi :
>>
>> Public Class Form1
>> Private bShowed As Boolean
>> Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
>> System.EventArgs) Handles Me.Activated
>> If Not bShowed Then
>> bShowed = True
>> Dim i As Int32
>> For i = 0 To 100
>> Me.Opacity = (i / 100)
>> Call System.Threading.Thread.Sleep(10)
>> Application.DoEvents()
>> Next
>> End If
>> End Sub
>>
>> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
>> System.EventArgs) Handles MyBase.Load
>> Me.Opacity = 0
>> End Sub
>> End Class
>>
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>> http://apisvb.europe.webmatrixhosting.net/
>>
>>
>>
>> bobysmith a écrit :
>>
>>> Bonjour,
>>> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
>>> opacity de 0 à 1.
>>> Cependant lorsque que je cree une boucle for :
>>>
>>> Dim i As Byte
>>> For i = 0 To 1
>>> Opacity = i
>>> i = i + 0.1
>>> Sleep(100)
>>> Next
>>>
>>> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
>>> d'un coup au bout d'un certain tps. J'ai essayé avec des
>>> Me.Refresh() ou des Application.DoEvents() mais rien ni fait.
>>>
>>> Si quelqu'un avait la solution ?
Salut,
Avec un TransparencyKey ca marche tout aussi bien ici (je suis sous VB2005
Beta).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :
> Je viens de voir pourquoi ca ne fait pas le FadeIn.
> En fait j'ai aussi attribué une TransparencyKey a black. Et si je
> supprime cette TransparencyKey eh bien la ca marche !
> Alors comment faire pour que Opacity et TransparecyKey marche
> ensemble pour faire un FadeIn. A savoir que si je fait plusieurs
> bouton avec des Opacity différentes eh bien la ca marche (avec
> TransparecyKey actif)
>
> C'est donc un problème de raffraichissement dans la boucle for
>
> Que faire ?
>
>
> "ng" wrote:
>
>> Salut,
>>
>> Ceci fonctionne très bien chez moi :
>>
>> Public Class Form1
>> Private bShowed As Boolean
>> Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
>> System.EventArgs) Handles Me.Activated
>> If Not bShowed Then
>> bShowed = True
>> Dim i As Int32
>> For i = 0 To 100
>> Me.Opacity = (i / 100)
>> Call System.Threading.Thread.Sleep(10)
>> Application.DoEvents()
>> Next
>> End If
>> End Sub
>>
>> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
>> System.EventArgs) Handles MyBase.Load
>> Me.Opacity = 0
>> End Sub
>> End Class
>>
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>> http://apisvb.europe.webmatrixhosting.net/
>>
>>
>>
>> bobysmith a écrit :
>>
>>> Bonjour,
>>> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
>>> opacity de 0 à 1.
>>> Cependant lorsque que je cree une boucle for :
>>>
>>> Dim i As Byte
>>> For i = 0 To 1
>>> Opacity = i
>>> i = i + 0.1
>>> Sleep(100)
>>> Next
>>>
>>> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
>>> d'un coup au bout d'un certain tps. J'ai essayé avec des
>>> Me.Refresh() ou des Application.DoEvents() mais rien ni fait.
>>>
>>> Si quelqu'un avait la solution ?
Salut,
Avec un TransparencyKey ca marche tout aussi bien ici (je suis sous VB2005
Beta).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith <bobysmith@discussions.microsoft.com> a écrit :
> Je viens de voir pourquoi ca ne fait pas le FadeIn.
> En fait j'ai aussi attribué une TransparencyKey a black. Et si je
> supprime cette TransparencyKey eh bien la ca marche !
> Alors comment faire pour que Opacity et TransparecyKey marche
> ensemble pour faire un FadeIn. A savoir que si je fait plusieurs
> bouton avec des Opacity différentes eh bien la ca marche (avec
> TransparecyKey actif)
>
> C'est donc un problème de raffraichissement dans la boucle for
>
> Que faire ?
>
>
> "ng" wrote:
>
>> Salut,
>>
>> Ceci fonctionne très bien chez moi :
>>
>> Public Class Form1
>> Private bShowed As Boolean
>> Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
>> System.EventArgs) Handles Me.Activated
>> If Not bShowed Then
>> bShowed = True
>> Dim i As Int32
>> For i = 0 To 100
>> Me.Opacity = (i / 100)
>> Call System.Threading.Thread.Sleep(10)
>> Application.DoEvents()
>> Next
>> End If
>> End Sub
>>
>> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
>> System.EventArgs) Handles MyBase.Load
>> Me.Opacity = 0
>> End Sub
>> End Class
>>
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>> http://apisvb.europe.webmatrixhosting.net/
>>
>>
>>
>> bobysmith <bobysmith@discussions.microsoft.com> a écrit :
>>
>>> Bonjour,
>>> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
>>> opacity de 0 à 1.
>>> Cependant lorsque que je cree une boucle for :
>>>
>>> Dim i As Byte
>>> For i = 0 To 1
>>> Opacity = i
>>> i = i + 0.1
>>> Sleep(100)
>>> Next
>>>
>>> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
>>> d'un coup au bout d'un certain tps. J'ai essayé avec des
>>> Me.Refresh() ou des Application.DoEvents() mais rien ni fait.
>>>
>>> Si quelqu'un avait la solution ?
Salut,
Avec un TransparencyKey ca marche tout aussi bien ici (je suis sous VB2005
Beta).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :
> Je viens de voir pourquoi ca ne fait pas le FadeIn.
> En fait j'ai aussi attribué une TransparencyKey a black. Et si je
> supprime cette TransparencyKey eh bien la ca marche !
> Alors comment faire pour que Opacity et TransparecyKey marche
> ensemble pour faire un FadeIn. A savoir que si je fait plusieurs
> bouton avec des Opacity différentes eh bien la ca marche (avec
> TransparecyKey actif)
>
> C'est donc un problème de raffraichissement dans la boucle for
>
> Que faire ?
>
>
> "ng" wrote:
>
>> Salut,
>>
>> Ceci fonctionne très bien chez moi :
>>
>> Public Class Form1
>> Private bShowed As Boolean
>> Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
>> System.EventArgs) Handles Me.Activated
>> If Not bShowed Then
>> bShowed = True
>> Dim i As Int32
>> For i = 0 To 100
>> Me.Opacity = (i / 100)
>> Call System.Threading.Thread.Sleep(10)
>> Application.DoEvents()
>> Next
>> End If
>> End Sub
>>
>> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
>> System.EventArgs) Handles MyBase.Load
>> Me.Opacity = 0
>> End Sub
>> End Class
>>
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>> http://apisvb.europe.webmatrixhosting.net/
>>
>>
>>
>> bobysmith a écrit :
>>
>>> Bonjour,
>>> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
>>> opacity de 0 à 1.
>>> Cependant lorsque que je cree une boucle for :
>>>
>>> Dim i As Byte
>>> For i = 0 To 1
>>> Opacity = i
>>> i = i + 0.1
>>> Sleep(100)
>>> Next
>>>
>>> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
>>> d'un coup au bout d'un certain tps. J'ai essayé avec des
>>> Me.Refresh() ou des Application.DoEvents() mais rien ni fait.
>>>
>>> Si quelqu'un avait la solution ?
moi je suis Visual.Net 2003
"ng" wrote:Salut,
Avec un TransparencyKey ca marche tout aussi bien ici (je suis sous
VB2005 Beta).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :Je viens de voir pourquoi ca ne fait pas le FadeIn.
En fait j'ai aussi attribué une TransparencyKey a black. Et si je
supprime cette TransparencyKey eh bien la ca marche !
Alors comment faire pour que Opacity et TransparecyKey marche
ensemble pour faire un FadeIn. A savoir que si je fait plusieurs
bouton avec des Opacity différentes eh bien la ca marche (avec
TransparecyKey actif)
C'est donc un problème de raffraichissement dans la boucle for
Que faire ?
"ng" wrote:Salut,
Ceci fonctionne très bien chez moi :
Public Class Form1
Private bShowed As Boolean
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
If Not bShowed Then
bShowed = True
Dim i As Int32
For i = 0 To 100
Me.Opacity = (i / 100)
Call System.Threading.Thread.Sleep(10)
Application.DoEvents()
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
End Sub
End Class
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :Bonjour,
J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
opacity de 0 à 1.
Cependant lorsque que je cree une boucle for :
Dim i As Byte
For i = 0 To 1
Opacity = i
i = i + 0.1
Sleep(100)
Next
Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui
apparait d'un coup au bout d'un certain tps. J'ai essayé avec des
Me.Refresh() ou des Application.DoEvents() mais rien ni fait.
Si quelqu'un avait la solution ?
moi je suis Visual.Net 2003
"ng" wrote:
Salut,
Avec un TransparencyKey ca marche tout aussi bien ici (je suis sous
VB2005 Beta).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith <bobysmith@discussions.microsoft.com> a écrit :
Je viens de voir pourquoi ca ne fait pas le FadeIn.
En fait j'ai aussi attribué une TransparencyKey a black. Et si je
supprime cette TransparencyKey eh bien la ca marche !
Alors comment faire pour que Opacity et TransparecyKey marche
ensemble pour faire un FadeIn. A savoir que si je fait plusieurs
bouton avec des Opacity différentes eh bien la ca marche (avec
TransparecyKey actif)
C'est donc un problème de raffraichissement dans la boucle for
Que faire ?
"ng" wrote:
Salut,
Ceci fonctionne très bien chez moi :
Public Class Form1
Private bShowed As Boolean
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
If Not bShowed Then
bShowed = True
Dim i As Int32
For i = 0 To 100
Me.Opacity = (i / 100)
Call System.Threading.Thread.Sleep(10)
Application.DoEvents()
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
End Sub
End Class
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith <bobysmith@discussions.microsoft.com> a écrit :
Bonjour,
J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
opacity de 0 à 1.
Cependant lorsque que je cree une boucle for :
Dim i As Byte
For i = 0 To 1
Opacity = i
i = i + 0.1
Sleep(100)
Next
Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui
apparait d'un coup au bout d'un certain tps. J'ai essayé avec des
Me.Refresh() ou des Application.DoEvents() mais rien ni fait.
Si quelqu'un avait la solution ?
moi je suis Visual.Net 2003
"ng" wrote:Salut,
Avec un TransparencyKey ca marche tout aussi bien ici (je suis sous
VB2005 Beta).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :Je viens de voir pourquoi ca ne fait pas le FadeIn.
En fait j'ai aussi attribué une TransparencyKey a black. Et si je
supprime cette TransparencyKey eh bien la ca marche !
Alors comment faire pour que Opacity et TransparecyKey marche
ensemble pour faire un FadeIn. A savoir que si je fait plusieurs
bouton avec des Opacity différentes eh bien la ca marche (avec
TransparecyKey actif)
C'est donc un problème de raffraichissement dans la boucle for
Que faire ?
"ng" wrote:Salut,
Ceci fonctionne très bien chez moi :
Public Class Form1
Private bShowed As Boolean
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
If Not bShowed Then
bShowed = True
Dim i As Int32
For i = 0 To 100
Me.Opacity = (i / 100)
Call System.Threading.Thread.Sleep(10)
Application.DoEvents()
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
End Sub
End Class
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :Bonjour,
J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
opacity de 0 à 1.
Cependant lorsque que je cree une boucle for :
Dim i As Byte
For i = 0 To 1
Opacity = i
i = i + 0.1
Sleep(100)
Next
Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui
apparait d'un coup au bout d'un certain tps. J'ai essayé avec des
Me.Refresh() ou des Application.DoEvents() mais rien ni fait.
Si quelqu'un avait la solution ?
Salut,
Je viens de tester sous VS 2002 avec une TransparencyKey blanche puis noire
et le code suivant :
#Region " Gestion AlphaBlend "
Private bShowed As Boolean
Private Sub SetOpacity(ByVal lPercent As Int32)
Me.Opacity = (lPercent / 100)
Call System.Threading.Thread.Sleep(10)
Application.DoEvents()
End Sub
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Activated
If Not bShowed Then
bShowed = True
Dim i As Int32
For i = 0 To 100
Call SetOpacity(i)
Next
End If
End Sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Dim i As Int32
For i = 100 To 0 Step -1
Call SetOpacity(i)
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
End Sub
#End Region
Aucun problème !
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :
> moi je suis Visual.Net 2003
>
> "ng" wrote:
>
>> Salut,
>>
>> Avec un TransparencyKey ca marche tout aussi bien ici (je suis sous
>> VB2005 Beta).
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>> http://apisvb.europe.webmatrixhosting.net/
>>
>>
>>
>> bobysmith a écrit :
>>
>>> Je viens de voir pourquoi ca ne fait pas le FadeIn.
>>> En fait j'ai aussi attribué une TransparencyKey a black. Et si je
>>> supprime cette TransparencyKey eh bien la ca marche !
>>> Alors comment faire pour que Opacity et TransparecyKey marche
>>> ensemble pour faire un FadeIn. A savoir que si je fait plusieurs
>>> bouton avec des Opacity différentes eh bien la ca marche (avec
>>> TransparecyKey actif)
>>>
>>> C'est donc un problème de raffraichissement dans la boucle for
>>>
>>> Que faire ?
>>>
>>>
>>> "ng" wrote:
>>>
>>>> Salut,
>>>>
>>>> Ceci fonctionne très bien chez moi :
>>>>
>>>> Public Class Form1
>>>> Private bShowed As Boolean
>>>> Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
>>>> System.EventArgs) Handles Me.Activated
>>>> If Not bShowed Then
>>>> bShowed = True
>>>> Dim i As Int32
>>>> For i = 0 To 100
>>>> Me.Opacity = (i / 100)
>>>> Call System.Threading.Thread.Sleep(10)
>>>> Application.DoEvents()
>>>> Next
>>>> End If
>>>> End Sub
>>>>
>>>> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e
>>>> As System.EventArgs) Handles MyBase.Load
>>>> Me.Opacity = 0
>>>> End Sub
>>>> End Class
>>>>
>>>>
>>>> --
>>>> Nicolas G.
>>>> FAQ VB : http://faq.vb.free.fr
>>>> API Guide : http://www.allapi.net
>>>> Google Groups : http://groups.google.fr/
>>>> MZ-Tools : http://www.mztools.com/
>>>> http://apisvb.europe.webmatrixhosting.net/
>>>>
>>>>
>>>>
>>>> bobysmith a écrit :
>>>>
>>>>> Bonjour,
>>>>> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
>>>>> opacity de 0 à 1.
>>>>> Cependant lorsque que je cree une boucle for :
>>>>>
>>>>> Dim i As Byte
>>>>> For i = 0 To 1
>>>>> Opacity = i
>>>>> i = i + 0.1
>>>>> Sleep(100)
>>>>> Next
>>>>>
>>>>> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui
>>>>> apparait d'un coup au bout d'un certain tps. J'ai essayé avec des
>>>>> Me.Refresh() ou des Application.DoEvents() mais rien ni fait.
>>>>>
>>>>> Si quelqu'un avait la solution ?
Salut,
Je viens de tester sous VS 2002 avec une TransparencyKey blanche puis noire
et le code suivant :
#Region " Gestion AlphaBlend "
Private bShowed As Boolean
Private Sub SetOpacity(ByVal lPercent As Int32)
Me.Opacity = (lPercent / 100)
Call System.Threading.Thread.Sleep(10)
Application.DoEvents()
End Sub
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Activated
If Not bShowed Then
bShowed = True
Dim i As Int32
For i = 0 To 100
Call SetOpacity(i)
Next
End If
End Sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Dim i As Int32
For i = 100 To 0 Step -1
Call SetOpacity(i)
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
End Sub
#End Region
Aucun problème !
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith <bobysmith@discussions.microsoft.com> a écrit :
> moi je suis Visual.Net 2003
>
> "ng" wrote:
>
>> Salut,
>>
>> Avec un TransparencyKey ca marche tout aussi bien ici (je suis sous
>> VB2005 Beta).
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>> http://apisvb.europe.webmatrixhosting.net/
>>
>>
>>
>> bobysmith <bobysmith@discussions.microsoft.com> a écrit :
>>
>>> Je viens de voir pourquoi ca ne fait pas le FadeIn.
>>> En fait j'ai aussi attribué une TransparencyKey a black. Et si je
>>> supprime cette TransparencyKey eh bien la ca marche !
>>> Alors comment faire pour que Opacity et TransparecyKey marche
>>> ensemble pour faire un FadeIn. A savoir que si je fait plusieurs
>>> bouton avec des Opacity différentes eh bien la ca marche (avec
>>> TransparecyKey actif)
>>>
>>> C'est donc un problème de raffraichissement dans la boucle for
>>>
>>> Que faire ?
>>>
>>>
>>> "ng" wrote:
>>>
>>>> Salut,
>>>>
>>>> Ceci fonctionne très bien chez moi :
>>>>
>>>> Public Class Form1
>>>> Private bShowed As Boolean
>>>> Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
>>>> System.EventArgs) Handles Me.Activated
>>>> If Not bShowed Then
>>>> bShowed = True
>>>> Dim i As Int32
>>>> For i = 0 To 100
>>>> Me.Opacity = (i / 100)
>>>> Call System.Threading.Thread.Sleep(10)
>>>> Application.DoEvents()
>>>> Next
>>>> End If
>>>> End Sub
>>>>
>>>> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e
>>>> As System.EventArgs) Handles MyBase.Load
>>>> Me.Opacity = 0
>>>> End Sub
>>>> End Class
>>>>
>>>>
>>>> --
>>>> Nicolas G.
>>>> FAQ VB : http://faq.vb.free.fr
>>>> API Guide : http://www.allapi.net
>>>> Google Groups : http://groups.google.fr/
>>>> MZ-Tools : http://www.mztools.com/
>>>> http://apisvb.europe.webmatrixhosting.net/
>>>>
>>>>
>>>>
>>>> bobysmith <bobysmith@discussions.microsoft.com> a écrit :
>>>>
>>>>> Bonjour,
>>>>> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
>>>>> opacity de 0 à 1.
>>>>> Cependant lorsque que je cree une boucle for :
>>>>>
>>>>> Dim i As Byte
>>>>> For i = 0 To 1
>>>>> Opacity = i
>>>>> i = i + 0.1
>>>>> Sleep(100)
>>>>> Next
>>>>>
>>>>> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui
>>>>> apparait d'un coup au bout d'un certain tps. J'ai essayé avec des
>>>>> Me.Refresh() ou des Application.DoEvents() mais rien ni fait.
>>>>>
>>>>> Si quelqu'un avait la solution ?
Salut,
Je viens de tester sous VS 2002 avec une TransparencyKey blanche puis noire
et le code suivant :
#Region " Gestion AlphaBlend "
Private bShowed As Boolean
Private Sub SetOpacity(ByVal lPercent As Int32)
Me.Opacity = (lPercent / 100)
Call System.Threading.Thread.Sleep(10)
Application.DoEvents()
End Sub
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Activated
If Not bShowed Then
bShowed = True
Dim i As Int32
For i = 0 To 100
Call SetOpacity(i)
Next
End If
End Sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Dim i As Int32
For i = 100 To 0 Step -1
Call SetOpacity(i)
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
End Sub
#End Region
Aucun problème !
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :
> moi je suis Visual.Net 2003
>
> "ng" wrote:
>
>> Salut,
>>
>> Avec un TransparencyKey ca marche tout aussi bien ici (je suis sous
>> VB2005 Beta).
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>> http://apisvb.europe.webmatrixhosting.net/
>>
>>
>>
>> bobysmith a écrit :
>>
>>> Je viens de voir pourquoi ca ne fait pas le FadeIn.
>>> En fait j'ai aussi attribué une TransparencyKey a black. Et si je
>>> supprime cette TransparencyKey eh bien la ca marche !
>>> Alors comment faire pour que Opacity et TransparecyKey marche
>>> ensemble pour faire un FadeIn. A savoir que si je fait plusieurs
>>> bouton avec des Opacity différentes eh bien la ca marche (avec
>>> TransparecyKey actif)
>>>
>>> C'est donc un problème de raffraichissement dans la boucle for
>>>
>>> Que faire ?
>>>
>>>
>>> "ng" wrote:
>>>
>>>> Salut,
>>>>
>>>> Ceci fonctionne très bien chez moi :
>>>>
>>>> Public Class Form1
>>>> Private bShowed As Boolean
>>>> Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
>>>> System.EventArgs) Handles Me.Activated
>>>> If Not bShowed Then
>>>> bShowed = True
>>>> Dim i As Int32
>>>> For i = 0 To 100
>>>> Me.Opacity = (i / 100)
>>>> Call System.Threading.Thread.Sleep(10)
>>>> Application.DoEvents()
>>>> Next
>>>> End If
>>>> End Sub
>>>>
>>>> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e
>>>> As System.EventArgs) Handles MyBase.Load
>>>> Me.Opacity = 0
>>>> End Sub
>>>> End Class
>>>>
>>>>
>>>> --
>>>> Nicolas G.
>>>> FAQ VB : http://faq.vb.free.fr
>>>> API Guide : http://www.allapi.net
>>>> Google Groups : http://groups.google.fr/
>>>> MZ-Tools : http://www.mztools.com/
>>>> http://apisvb.europe.webmatrixhosting.net/
>>>>
>>>>
>>>>
>>>> bobysmith a écrit :
>>>>
>>>>> Bonjour,
>>>>> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
>>>>> opacity de 0 à 1.
>>>>> Cependant lorsque que je cree une boucle for :
>>>>>
>>>>> Dim i As Byte
>>>>> For i = 0 To 1
>>>>> Opacity = i
>>>>> i = i + 0.1
>>>>> Sleep(100)
>>>>> Next
>>>>>
>>>>> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui
>>>>> apparait d'un coup au bout d'un certain tps. J'ai essayé avec des
>>>>> Me.Refresh() ou des Application.DoEvents() mais rien ni fait.
>>>>>
>>>>> Si quelqu'un avait la solution ?
Salut,
Ceci fonctionne très bien chez moi :
Public Class Form1
Private bShowed As Boolean
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
If Not bShowed Then
bShowed = True
Dim i As Int32
For i = 0 To 100
Me.Opacity = (i / 100)
Call System.Threading.Thread.Sleep(10)
Application.DoEvents()
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
End Sub
End Class
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :
> Bonjour,
> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
> opacity de 0 à 1.
> Cependant lorsque que je cree une boucle for :
>
> Dim i As Byte
> For i = 0 To 1
> Opacity = i
> i = i + 0.1
> Sleep(100)
> Next
>
> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
> d'un coup au bout d'un certain tps. J'ai essayé avec des Me.Refresh()
> ou des Application.DoEvents() mais rien ni fait.
>
> Si quelqu'un avait la solution ?
Salut,
Ceci fonctionne très bien chez moi :
Public Class Form1
Private bShowed As Boolean
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
If Not bShowed Then
bShowed = True
Dim i As Int32
For i = 0 To 100
Me.Opacity = (i / 100)
Call System.Threading.Thread.Sleep(10)
Application.DoEvents()
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
End Sub
End Class
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith <bobysmith@discussions.microsoft.com> a écrit :
> Bonjour,
> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
> opacity de 0 à 1.
> Cependant lorsque que je cree une boucle for :
>
> Dim i As Byte
> For i = 0 To 1
> Opacity = i
> i = i + 0.1
> Sleep(100)
> Next
>
> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
> d'un coup au bout d'un certain tps. J'ai essayé avec des Me.Refresh()
> ou des Application.DoEvents() mais rien ni fait.
>
> Si quelqu'un avait la solution ?
Salut,
Ceci fonctionne très bien chez moi :
Public Class Form1
Private bShowed As Boolean
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
If Not bShowed Then
bShowed = True
Dim i As Int32
For i = 0 To 100
Me.Opacity = (i / 100)
Call System.Threading.Thread.Sleep(10)
Application.DoEvents()
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
End Sub
End Class
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
bobysmith a écrit :
> Bonjour,
> J'aimerai faire un FadeIn de ma fenetre en utilisant la propriété
> opacity de 0 à 1.
> Cependant lorsque que je cree une boucle for :
>
> Dim i As Byte
> For i = 0 To 1
> Opacity = i
> i = i + 0.1
> Sleep(100)
> Next
>
> Je n'ai pas le degradé voulu. J'ai seulement la fenetre qui apparait
> d'un coup au bout d'un certain tps. J'ai essayé avec des Me.Refresh()
> ou des Application.DoEvents() mais rien ni fait.
>
> Si quelqu'un avait la solution ?
