Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: StretchBLT aufrufen
Autor: Rippler
Datum: 17.02.10 23:23
vielleicht hilft dir das hier weiter command1, picture1 picture2 Private Declare Function StretchBlt Lib "gdi32" ( _ ByVal hdc 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 nSrcWidth As Long, _ ByVal nSrcHeight As Long, _ ByVal dwRop As Long) As Long Const SRCCOPY = &HCC0020 Private Sub Command1_Click() Dim hdc As Long Dim nWidth As Long Dim nHeight As Long Dim hSrcDC As Long Dim nSrcWidth As Long Dim nSrcHeight As Long nSrcWidth = Picture2.Width / Screen.TwipsPerPixelX nSrcHeight = Picture2.Height / Screen.TwipsPerPixelY nWidth = nSrcWidth * 2 nHeight = nSrcHeight * 2 hSrcDC = Picture1.hdc hdc = Picture2.hdc StretchBlt hdc, 0, 0, nWidth, nHeight, hSrcDC, 0, 0, nSrcWidth, nSrcHeight, SRCCOPY End Sub

StretchBLT aufrufen	2.617	NorbertM	17.02.10 19:38
Re: StretchBLT aufrufen	1.419	Rippler	17.02.10 23:23
Re: StretchBLT aufrufen	1.404	Zardoz	18.02.10 15:02

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