Ajouter en dessous d'une image une partie de sa copie inversée.

Soyez le premier à donner votre avis sur cette source.

Vue 1 993 fois - Téléchargée 236 fois

Description

Dans mes débuts en Visual Basic, j'ai utiliser ce petit utilitaire simple pour rajouter une section d'image à celle existante une fois le projet lancé plutôt que d'utiliser une image plus lourde, question d'optimisation. (Voir .zip pour plus de détails) Certaines parties du code peuvent également être utile à d'autres projets. Soyez créatif! :)

Source / Exemple :


Option Explicit
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Dim i As Long
Dim j As Long
Dim k As Integer

Private Sub cmdCopy_Click()

pic1.Cls
If cmdCopy.Caption = "Copy" Then

    pic1.Height = pic1.Height + 240
    
    For i = 0 To 80
        For j = 0 To 240
            For k = 0 To pic1.ScaleWidth Step 80
            
    BitBlt pic1.hDC, k + i, j + 400, 1, 1, pic1.hDC, k + (-i + 80), j + 80, vbSrcCopy
    
            Next k
        Next j
    Next i
    cmdCopy.Caption = "Close"
Else
    End
End If

pic1.Refresh

End Sub

Conclusion :


Aucun update prévu pour ce projet.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Tilois
Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
4 -
Pas mal, je saurais pour la prochaine fois ... ancore que ton code ne fonctionne que si tu veux réutilisé une section d'image... Mais, bon c'est vrai que c'est plus rapide
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
il existe une API pour faire des blit inversés en une seule ligne, tu sais !

(StretchBlit...)
FrostedDude
Messages postés
6
Date d'inscription
samedi 6 septembre 2003
Statut
Membre
Dernière intervention
7 juin 2005
-
Je l'ai sû Renfield après avoir créer ce code. Mais bon. Je le trouvais interessant et il est le seul de mes projets qui est raisonnablement complété pour le partager avec les autres. Je voulais faire ma part sur ce site en lui donnant un petit quelque chose.

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.