BitBlt, StretchBlt .....???

Question

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

cs_EBArtSoft · Answer

Cette discussion a été cloturée. Veuillez lancer une nouvelle discussion si votre question est toujours d'actualite.

Merci

BitBlt, StretchBlt .....???

1 réponse

Discussions similaires