.. 1x1 Demo

Category: Graphics - GDI

Date: 03-28-2012

Return to Index


 
'Compilable Example:
'Demonstrates that a memory DC comes equipped with a 1x1 bitmap
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
#Include "Win32API.inc"
 
Function PBMain() As Long
   Local hDesktopDC, hMemoryDC, hBitmap As DWord, bm As Bitmap
   'create compatible memory DC, with bitmap selected into it
   hMemoryDC = CreateCompatibleDC(hDesktopDC)
   hBitMap = GetCurrentObject(hMemoryDC, %OBJ_BITMAP)
 
   If hBitMap Then
      GetObject hBitMap, SizeOf(bm), bm
      MsgBox Str$(bm.bmWidth) + Str$(bm.bmHeight)
   End If
End Function
 
'gbs_00939
'Date: 03-10-2012


created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm