Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

2.teil
Autor: Roger
Datum: 17.01.03 10:37
'Generieren einer Monochromen & einer inversen Maske MonoMaskDC = CreateCompatibleDC(DstDC) MonoInvDC = CreateCompatibleDC(DstDC) hMonoMask = CreateBitmap(W, H, 1, 1, ByVal 0&) hMonoInv = CreateBitmap(W, H, 1, 1, ByVal 0&) hPrevMask = SelectObject(MonoMaskDC, hMonoMask) hPrevInv = SelectObject(MonoInvDC, hMonoInv) 'Puffer erstellen ResultDstDC = CreateCompatibleDC(DstDC) ResultSrcDC = CreateCompatibleDC(DstDC) hResultDst = CreateCompatibleBitmap(DstDC, W, H) hResultSrc = CreateCompatibleBitmap(DstDC, W, H) hPrevDst = SelectObject(ResultDstDC, hResultDst) hPrevSrc = SelectObject(ResultSrcDC, hResultSrc) 'Sourcebild in die monochrome Maske kopieren Dim OldBC As Long OldBC = SetBkColor(SrcDC, TransColor) Result = BitBlt(MonoMaskDC, 0, 0, W, H, SrcDC, _ SrcRect.Left, SrcRect.Top, vbSrcCopy) TransColor = SetBkColor(SrcDC, OldBC) 'Inverse Maske erstellen Result = BitBlt(MonoInvDC, 0, 0, W, H, _ MonoMaskDC, 0, 0, vbNotSrcCopy) 'Hintergrund des Zielbildes auslesen Result = BitBlt(ResultDstDC, 0, 0, W, H, _ DstDC, DstX, DstY, vbSrcCopy) 'AND mit der Maske Result = BitBlt(ResultDstDC, 0, 0, W, H, _ MonoMaskDC, 0, 0, vbSrcAnd) 'Überlappung des Sourcebildes mit dem Zielbild auslesen Result = BitBlt(ResultSrcDC, 0, 0, W, H, SrcDC, _ SrcRect.Left, SrcRect.Top, vbSrcCopy) 'AND mit der invertierten, monochromen Maske Result = BitBlt(ResultSrcDC, 0, 0, W, H, _ MonoInvDC, 0, 0, vbSrcAnd) 'XOR mit beiden Result = BitBlt(ResultDstDC, 0, 0, W, H, _ ResultSrcDC, 0, 0, vbSrcInvert) 'Ergebnis in das Zielbild kopieren Result = BitBlt(OutDstDC, DstX, DstY, W, H, _ ResultDstDC, 0, 0, vbSrcCopy) 'Erstellte Objekte & DCs wieder freigeben hMonoMask = SelectObject(MonoMaskDC, hPrevMask) DeleteObject hMonoMask DeleteDC MonoMaskDC hMonoInv = SelectObject(MonoInvDC, hPrevInv) DeleteObject hMonoInv DeleteDC MonoInvDC hResultDst = SelectObject(ResultDstDC, hPrevDst) DeleteObject hResultDst DeleteDC ResultDstDC hResultSrc = SelectObject(ResultSrcDC, hPrevSrc) DeleteObject hResultSrc DeleteDC ResultSrcDC End Sub Private Sub MovePicTo(ByVal x&, ByVal y&) x = x - R.Right / 2 y = y - R.Bottom / 2 Picture1.Picture = Picture3.Picture Call TranspPic(Picture1.hdc, Picture1.hdc, Picture2.hdc, _ R, x, y, vbWhite) Picture1.Refresh End Sub

Bild auf Bild in einer Picturebox	79	Roger	17.01.03 10:20
Re: Bild auf Bild in einer Picturebox	197	Master	17.01.03 10:22
Re: Bild auf Bild in einer Picturebox	41	Roger	17.01.03 10:25
Re: Bild auf Bild in einer Picturebox	182	Master	17.01.03 10:28
Re: Bild auf Bild in einer Picturebox	43	Roger	17.01.03 10:36
2.teil	40	Roger	17.01.03 10:37

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen