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.219 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 Juni 2024 Microsys Kramer Mausrad im Formular abschalten (Access) Deaktiviert das Mausrad in Access-Formularen. Neu! sevEingabe 3.0 Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. |
||||||||||||||||||||||||||||||||
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. |