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

Télécharger le projet
Commenter

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.
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.