home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / easyblt / bitsyste.bas next >
Encoding:
BASIC Source File  |  1999-04-24  |  2.2 KB  |  38 lines
  1. Attribute VB_Name = "SystemSupport"
  2. Public Const SRCAND = &H8800C6
  3. Public Const SRCCOPY = &HCC0020
  4. Public Const SRCERASE = &H440328
  5. Public Const SRCINVERT = &H660046
  6. Public Const SRCPAINT = &HEE0086
  7. Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  8. Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
  9. Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
  10. Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  11. Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
  12. Public Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
  13. Public Declare Function GetDC Lib "user32" (ByVal Hwnd As Long) As Long
  14. Public Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal y As Long, ByVal crColor As Long) As Long
  15. Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal y As Long) As Long
  16. Public Declare Function GetDesktopWindow Lib "user32" () As Long
  17. Public Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
  18. Private OldBMP As Long
  19. Public Sub DirectLoad(filename As String, DC As Long, BMP As Long, W As Integer, H As Integer)
  20. Dim frm As Form
  21. Dim olderBMP As Long
  22. Dim pic As StdPicture
  23. Set pic = LoadPicture(filename)
  24. Dim TDC As Long
  25. Set frm = Screen.ActiveForm
  26. TDC = CreateCompatibleDC(frm.hdc)
  27. OldBMP = SelectObject(TDC, pic.Handle)
  28. olderBMP = SelectObject(DC, BMP)
  29. W = frm.ScaleX(pic.Width, vbHimetric, vbPixels)
  30. H = frm.ScaleX(pic.Height, vbHimetric, vbPixels)
  31. BitBlt DC, 0, 0, W, H, TDC, 0, 0, SRCCOPY
  32. olderBMP = SelectObject(DC, olderBMP)
  33. OldBMP = SelectObject(TDC, OldBMP)
  34. ret% = DeleteDC(TDC)
  35. Set pic = Nothing
  36. Set frm = Nothing
  37. End Sub
  38.