Effet de transition #1

Télécharger le projet
Commenter

Description

Ce code simple est très utile pour les jeux. C'est un effet de transition (d'ou le nom de la fonction screen_transition) qui dessine par dessus tous les objets de la form, comme les transitions dans RPGMaker 2000. Pour mieux apprécier ce ptit code il est recommandé de ne pas utiliser de barre dans votre fenetre, c'est a dire : borderstyle=0.

Amusez vous bien et surtout laissez moi vos commentaires SVP :-)

Source / Exemple : 


' ...::: Déclarations
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

' HDC de la fenêtre entière
Dim FormhDC As Long

Function Screen_Transition(nForm As Form, ncolor As Long)
    
    ' ...::: On récupère le hDC de la fenêtre
    FormhDC = GetWindowDC(nForm.hwnd)
    
    For nloop = 0 To 7
    
        ' ...::: On dessine ligne par ligne
        For i = nloop To nForm.Height / Screen.TwipsPerPixelY Step 8
            For a = 0 To nForm.Width / Screen.TwipsPerPixelX
                SetPixelV FormhDC, a, i, ncolor
            Next
        Next
    
    ' ...::: Pour l'effet de transition
    Sleep 100
    Next
    
End Function

Conclusion :


Exemple :
Screen_Transition Form1,rgb(255,200,150)

Voila ! @+
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (VBSephiroth)