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