BitBlt, StretchBlt .....???

ED - 27 avril 2001 à 17:23
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 - 8 août 2007 à 16:42
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

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

Merci
Rejoignez-nous