Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

hiho.... warum funktioniert das nicht ... mit bitblt
Autor: MasterM
Datum: 23.06.02 15:09
ich hab versucht ein bild als bitblt transperent auf den ein anderes bild zu kriegen ... hier ist der quellcode vieleicht könnt ihr mir ja helfen : Option Explicit Private Declare Sub 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) Const SRCCOPY = &HCC0020 Const SRCINVERT = &H660046 Const SRCAND = &H8800C6 Dim t&, l& Private Sub Form_activate() Dim buffer1&, mask1&, mask2& Dim w&, h& w = Picture1.Width h = Picture2.Height buffer1 = Picture3.hDC mask1 = Picture1.hDC mask2 = Picture2.hDC BitBlt buffer1, 2, 2, w, h, mask1, 0, 0, SRCAND BitBlt buffer1, 2, 2, w, h, mask2, 0, 0, SRCINVERT BitBlt Picture4.hDC, 0, 0, w, h, buffer1, 0, 0, SRCCOPY End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) l = X t = Y End Sub

hiho.... warum funktioniert das nicht ... mit bitblt	50	MasterM	23.06.02 15:09
Re: hiho.... warum funktioniert das nicht ... mit bitblt	289	unbekannt	23.06.02 16:33
Re: hiho.... warum funktioniert das nicht ... mit bitblt	32	MasterM	23.06.02 18:30
Re: hiho.... warum funktioniert das nicht ... mit bitblt	29	manyki	23.06.02 23:03

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