Soyez le premier à donner votre avis sur cette source.
Vue 6 109 fois - Téléchargée 718 fois
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Function FadeOutward(Img1 As PictureBox, Blocks As Integer) Dim TailleLargeur As Integer Dim TailleHauteur As Integer Dim i As Integer Dim j As Integer TailleLargeur = Img1.ScaleWidth / Blocks TailleHauteur = Img1.ScaleHeight / Blocks For i = (Blocks / 2) To 0 Step -1 Sleep (20) Img1.Line (i * TailleLargeur, i * TailleHauteur)-(((Blocks - i) + 1) * TailleLargeur, ((Blocks - i) + 1) * TailleHauteur), , BF DoEvents Next End Function ' Puis mettez ce code dans votre Formulaire : Private Sub Command1_Click() Dim Effet Effet = FadeOutward(Picture1, 100) Picture1.Picture = Picture1.Picture End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.