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.168 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 Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. |
||||||||||||||||||||||||||||||||
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. |