Deklaration: Declare Function GetObject Lib "gdi32" _ Alias "GetObjectA" ( _ ByVal hObject As Long, _ ByVal nCount As Long, _ lpObject As Any) As Long Beschreibung: Parameter:
Rückgabewert: Beispiel: Private Declare Function GetObject Lib "gdi32" _ Alias "GetObjectA" ( _ ByVal hObject As Long, _ ByVal nCount As Long, _ lpObject As Any) As Long Private Declare Function GetObjectType Lib "gdi32" ( _ ByVal hgdiobj As Long) As Long Private Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As Long End Type ' GetObjectType Rückgabe-Konstanten Private Const OBJ_BITMAP = 7 ' Das Objekt ist ein Bitmap Private Const OBJ_BRUSH = 2 ' Das Objekt ist ein Brush Private Const OBJ_COLORSPACE = 14 ' Das Object ist ein Colorspace Private Const OBJ_DC = 3 ' Das Objekt ist ein Devicekontext Private Const OBJ_ENHMETADC = 12 ' Das Objekt ist Enhanced Meta Device Private Const OBJ_ENHMETAFILE = 13 ' Das Objekt ist eine Enhanced Meta Datei Private Const OBJ_EXTPEN = 11 ' Das Objekt ist ein erweiteter Pen Private Const OBJ_FONT = 6 ' Das Objekt ist ein Font Private Const OBJ_MEMDC = 10 ' Das Objekt ist ein Speicher Device Private Const OBJ_METADC = 4 ' Das Objekt ist ein Meta Device Private Const OBJ_METAFILE = 9 ' Das Objekt ist eine Meta Datei Private Const OBJ_PAL = 5 ' Das Objekt ist eine Palette Private Const OBJ_PEN = 1 ' Das Objekt ist ein Pen Private Const OBJ_REGION = 8 ' Das Objekt ist eine Region ' Bitmapinformationen eines Bildfeldes ermitteln Private Sub Form_Load() Dim BM As BITMAP, Retval As Long ' Objekttyp des Handles ermitteln Retval = GetObjectType(Picture1.Picture.Handle) ' Ist das Objekt ein Bitmap ? If Retval = OBJ_BITMAP Then Retval = GetObject(Picture1.Picture.Handle, Len(BM), BM) Debug.Print "Bitmapinfos: " & BM.bmBitsPixel & "-Bit " & _ BM.bmWidth & "x" & BM.bmHeight ElseIf Retval = 0 Then Debug.Print "Das übergebene Handle ist keinem Objekt zugeordnet" End If End Sub Diese Seite wurde bereits 13.353 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 sevZIP40 Pro DLL Zippen und Unzippen wie die Profis! Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. |
||||||||||||||||
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. |