Directdraw: le module extrenement utile (new) (bugs corriges)

Description

DU NOUVEAU !
J'ai créer un nouveau module DirectDraw, plus pratique et surtout encore plus simple et plus rapide. EXEMPLE: Je veux définir à une image sa couleur de fond, je n'ai qu'à mettre Img(MonImage).TransparentColor = 16711935 (mauve clair) et aussi : les instruction sont changées comme ImgWidth(MonImage) deviendra Img(MonImage).Width.

Ce module que vous n'avez qu'a ajouter dans votre programme vous permet d'utiliser DirectDraw très facilement et très éfficacement, comme n'importe quel programme, il n'est pas parfait, il y certaines choses que vous devez faire vous même mais voici quand même ce qu'il gère automatiquement:

Source / Exemple :


'--- LE NOUVEAU ---

InitAff 800, 600, 16, hwnd
'donc affichage 800x600 en 16 bits de couleurs sur la page courante

Dim MonImage As Integer
MonImage = LoadImage("Chiffres.bmp", 0, "0123456789:", 31)
'L'image présente dans le fichier contient des chiffres

Clr 16777215
'Efface le buffer en blanc
DrawImage 0, 0, MonImage, , , , , , Time$
'Dessine l'image dans le buffer
'Cepandant j'ai insèré un texte: Time$ donc 14:32:45
'Tous les caractères de ce texte ce trouve dans l'image donc
'Il va afficher le texte sans problèmes
ShowBB
'Affiche le buffer

NotInitAff
'Décharge tout

End
'Devinez

Conclusion :


La module ne gère pas tous dans DirectDraw mais c'est moi qui l'ai créé, donc dés que j'aurais compris quelque chose de nouveau, il sera automatiquement mis.

Autre chose:
J'y ai mis un exemple en VB5, il prouve fort bien la puissance et la rapidité du module.

Codes Sources

A voir également

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.