BitBlt, StretchBlt .....???

Signaler
-
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
-
je voudrais en chargeant une image dans un "memory device context" a partir
de l'handle de l'image charger dans une picturebox en
recuperer qu'une partie dans un autre "memory device context".
Pour ce j'utilise le code suivant qui ne fonctionne pas (une belle image
toute noire s'affiche)
Le but est a partir d'une image charger dans une picturebox de selectionner une partie
de cette image et de pouvoir zoomer plusieur fois celle-ci et ainsi
d'obtenir une partie de l'image sur laquelle je voudrais appliquer une nouvelle palette.

Alors docteur?
Merci d'avance.

le code est reduit a sa plus simple expression:
'(2 picturebox et 1 bouton)
Private Sub Command2_Click()
Dim bmp As BITMAP, cMENDC As Long, cCOMBMP As Long
Dim cMENDC2 As Long, cCOMBMP2 As Long
GetObject Picture1.Picture.Handle, Len(bmp), bmp 'dest
cMENDC = CreateCompatibleDC(0)
cCOMBMP = CreateCompatibleBitmap(cMENDC, bmp.bmWidth, bmp.bmHeight)
SelectObject cMENDC, Picture1.Picture.Handle
cMENDC2 = CreateCompatibleDC(0)
cCOMBMP2 = CreateCompatibleBitmap(cMENDC2, 200, 200)
SelectObject cMENDC2, cCOMBMP2
BitBlt cMENDC2, 0, 0, 200, 200, cMENDC, 0, 0, vbSrcCopy
SetStretchBltMode picturebox2.hdc, 3
StretchBlt picturebox2.hdc, 0,0, picturebox2.ScaleWidth,_ picturebox2.ScaleHeight, cMENDC2, 0, 0, 200, 200, vbSrcCopy
End Sub

1 réponse

Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
Cette discussion a été cloturée. Veuillez lancer une nouvelle discussion si votre question est toujours d'actualite.

Merci