...tehdään kaksi kuvakehystä, tuodaan toiseen kuva ja viedään toiseen kuvakehykseen vain osa siitä toisesta. Siis viedään ensin vaikka 200x200 oleva kuva ja siitä "leikataan" siihen toiseen keskeltä kuvaa vaikkapa 50x50 kokoinen pala?
Kuinka
Visual Basicissa
2138
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 2
Vanhimmat
...on käyttää API funktiota
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
Private Sub Command1_Click()
Dim retval As Long
retval = BitBlt(Picture2.hDC, 0, 0, 50, _
50, Picture1.hDC, 100, 100, vbSrcCopy)
End Sub
Tuon pitäisi kopioida 50*50 kokoinen palanen alkaen kohdasta 100,100...
kylliksi muuta kuin sanomalla: Suurkiitokset!!