home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / RPG_Engine768744282002.psc / Module2.bas < prev    next >
Encoding:
BASIC Source File  |  2002-04-09  |  1.0 KB  |  42 lines
  1. Attribute VB_Name = "Module2"
  2.  
  3.  
  4. Public Function GenerateDC(ByVal FileName As String, BitmapProperties As BITMAP) As Long
  5.     Dim DC As Long
  6.     Dim hBitmap As Long
  7.     DC = CreateCompatibleDC(0)
  8.  
  9.  
  10.  
  11.     hBitmap = LoadImage(0, FileName, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE Or LR_CREATEDIBSECTION)
  12.  
  13.  
  14.     If hBitmap = 0 Then
  15.         DeleteDC DC
  16.         GenerateDC = 0
  17.         MsgBox "Error Loading File!"
  18.         Exit Function
  19.     End If
  20.     GetObjectAPI hBitmap, Len(BitmapProperties), BitmapProperties
  21.  
  22.  
  23.     SelectObject DC, hBitmap
  24.         GenerateDC = DC
  25.         DeleteObject hBitmap
  26. End Function
  27.  
  28. Public Function NewDC(hdcScreen As Long, HorRes As Long, VerRes As Long) As Long
  29.   Dim hdcCompatible As Long
  30.   Dim hbmScreen As Long
  31.   hdcCompatible = CreateCompatibleDC(hdcScreen)
  32.   hbmScreen = CreateCompatibleBitmap(hdcScreen, HorRes, VerRes)
  33.   If SelectObject(hdcCompatible, hbmScreen) = vbNull Then
  34.     NewDC = 1
  35.   Else
  36.     NewDC = hdcCompatible
  37.   End If
  38.   DeleteDC (hdcScreen)
  39. End Function
  40.  
  41.  
  42.