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

Soyez le premier à donner votre avis sur cette source.

Vue 1 969 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

Commenter la réponse de Tilois

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.