FormHintergrund mit BitBlt in UC blitten

22/12/2010 - 03:03 von Heinz-Mario Frühbeis | Report spam
Hallo!

Gegeben:
Eine Form
Ein UserControl

Die Form erhàlt ein Bild, das im Paint-Ereignis gezeichnet wird.
Also kein Autoredraw =True; das gilt auch für das UC.

Dim Result As Long
With UserControl
'.AutoRedraw = True
.Cls
'Result = BitBlt(.hdc, 0, 0, .ScaleWidth, .ScaleHeight _
, .Parent.hdc, 0, 0, vbSrcCopy)
Result = BitBlt(.hdc, 0, 0, .ScaleWidth, .ScaleHeight _
, .Parent.hDc, .Extender.Left, .Extender.Top, vbSrcCopy)
'.AutoRedraw = False
'.Refresh
End With

Das Problem:
Es wird immer das UC selber mit geblittet. Ich sehe dann also quasi das UC,
wie es auf dem UC gezeichnet wurde.
Ich möchte aber einfach nur den Hintergrund der Form in das UC blitten und
zwar eben optional zur Position des UC.

Kann bitte mal jemand helfen?

Mit Gruß
Heinz-Mario Frühbeis
 

Lesen sie die antworten

#1 W. Wolf
22/12/2010 - 10:21 | Warnen spam
Hallo,
nur am Rande gefragt: Was spricht gegen
einen transparenten UC-Hintergrund?

Schönen Gruß
W. Wolf

Ähnliche fragen