Soyez le premier à donner votre avis sur cette source.
Vue 2 100 fois - Téléchargée 249 fois
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
(StretchBlit...)
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.