Effet de transition #1

Soyez le premier à donner votre avis sur cette source.

Vue 4 493 fois - Téléchargée 492 fois

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 ! @+

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
4
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
3 avril 2011

bieeeeeeeennnnnnnn!!!!!!!!!!!
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

Magicking -> tu dois prendre de l'âge, tu radotes.... lol
Clem -> RPG maker 2k fait plus de 7 Mo alors si ta pas l'adsl ou un forfait aol, trouve un pot
Messages postés
282
Date d'inscription
dimanche 1 avril 2001
Statut
Membre
Dernière intervention
12 février 2007

C'est quelle adresse pour RPG maker déjà ?
Messages postés
195
Date d'inscription
vendredi 13 octobre 2000
Statut
Membre
Dernière intervention
8 juillet 2004

Excelent
Messages postés
195
Date d'inscription
vendredi 13 octobre 2000
Statut
Membre
Dernière intervention
8 juillet 2004

Excelent

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.