Deklaration: Declare Function StretchBlt Lib "gdi32.dll" ( _ ByVal hdcDest As Long, _ ByVal nXDest As Long, _ ByVal nYDest As Long, _ ByVal nDestWidth As Long, _ ByVal nDestHeight As Long, _ ByVal hdcSrc As Long, _ ByVal XSrc As Long, _ ByVal YSrc As Long, _ ByVal hSrcWidth As Long, _ ByVal nSrcHeight As Long, _ ByVal dwRop As Long) As Long Beschreibung: Parameter:
dwRop Konstanten: ' Kopiert den Inhalt der Quelle in das Ziel Const SRCCOPY = &HCC0020 ' Kombiniert die Farben des Zieles und der Quelle mit Hilfe des AND-Operators Const SRCAND = &H8800C6 ' Kombiniert die invertierten Farben des Zieles mit den Farben der Quelle ' mit Hilfe des AND-Operators Const SRCERASE = &H440328 ' Kombiniert die Farben des Zieles und der Quelle mit Hilfe des XOR-Operators Const SRCINVERT = &H660046 ' Kombiniert die Farben des Zieles und der Quelle mit Hilfe des OR-Operators Const SRCPAINT = &HEE0086 Rückgabewert: Beispiel: Private Declare Function StretchBlt Lib "gdi32.dll" ( _ ByVal hdcDest As Long, _ ByVal nXDest As Long, _ ByVal nYDest As Long, _ ByVal nDestWidth As Long, _ ByVal nDestHeight As Long, _ ByVal hdcSrc As Long, _ ByVal nXSrc As Long, _ ByVal nYSrc As Long, _ ByVal hSrcWidth As Long, _ ByVal nSrcHeight As Long, _ ByVal dwRop As Long) As Long Private Const SRCCOPY = &HCC0020 Private Const SRCAND = &H8800C6 Private Const SRCERASE = &H440328 Private Const SRCINVERT = &H660046 Private Const SRCPAINT = &HEE0086 ' Scalemode auf Pixel setzen Private Sub Form_Load () Me.ScaleMode = vbPixels End Sub ' Kopiert ein Bitmap von einem Bildfeld in ein anderes, wobei das Zielbild ' 10 Pixel in der Höhe und Breite kleiner ist. Desweiteren hat das Bitmap einen ' Randabstand von 5 Pixel, jeweils oben und links. Private Sub Command1_Click () Dim Retval As Long With Picture1 Retval = StretchBlt(Picture2.hDC, 5, 5, .Width - 10, .Height - _ 10, .hDC, 0, 0, .Width, .Height, SRCINVERT) End With If Retval = 0 Then MsgBox "Ein Fehler ist aufgetreten. Waren alle Angaben korrekt?", _ vbCritical, "Fehler End If End Sub Diese Seite wurde bereits 13.180 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 sevGraph (VB/VBA) Grafische Auswertungen Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! |
||||||||||||||||||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |