home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VBCCE / SAMPLES / AxGrafix / AXGrafix.EXE / RCDATA / CABINET / hDeclare.bas < prev    next >
BASIC Source File  |  1996-10-25  |  4KB  |  78 lines
  1. Attribute VB_Name = "hDeclare"
  2. Option Explicit
  3.  
  4. Public Type POINTAPI
  5.         x As Long
  6.         y As Long
  7. End Type
  8.  
  9. Public Type RECT
  10.         Left As Long
  11.         Top As Long
  12.         Right As Long
  13.         Bottom As Long
  14. End Type
  15.  
  16. Public Type BITMAP '14 bytes
  17.         bmType As Long
  18.         bmWidth As Long
  19.         bmHeight As Long
  20.         bmWidthBytes As Long
  21.         bmPlanes As Integer
  22.         bmBitsPixel As Integer
  23.         bmBits As Long
  24. End Type
  25.  
  26. '  flag values for uFlags parameter of PlaySound
  27. Public Const SND_SYNC = &H0             '  play synchronously (default)
  28. Public Const SND_ASYNC = &H1            '  play asynchronously
  29. Public Const SND_NODEFAULT = &H2        '  silence not default, if sound not found
  30. Public Const SND_MEMORY = &H4           '  lpszSoundName points to a memory file
  31. Public Const SND_ALIAS = &H10000        '  name is a WIN.INI [sounds] entry
  32. Public Const SND_FILENAME = &H20000     '  name is a file name
  33. Public Const SND_RESOURCE = &H40004     '  name is a resource name or atom
  34. Public Const SND_ALIAS_ID = &H110000    '  name is a WIN.INI [sounds] entry identifier
  35. Public Const SND_ALIAS_START = 0        '  must be > 4096 to keep strings in same section of resource file
  36. Public Const SND_LOOP = &H8             '  loop the sound until next sndPlaySound
  37. Public Const SND_NOSTOP = &H10          '  don't stop any currently playing sound
  38. Public Const SND_VALID = &H1F           '  valid flags          / ;Internal /
  39. Public Const SND_NOWAIT = &H2000        '  don't wait if the driver is busy
  40. Public Const SND_VALIDFLAGS = &H17201F  '  Set of valid flag bits.  Anything outside
  41.                                         '  this range will raise an error
  42. Public Const SND_RESERVED = &HFF000000  '  In particular these flags are reserved
  43. Public Const SND_TYPE_MASK = &H170007
  44.  
  45. '  Ternary raster operations
  46. Public Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
  47. Public Const SRCPAINT = &HEE0086        ' (DWORD) dest = source OR dest
  48. Public Const SRCAND = &H8800C6  ' (DWORD) dest = source AND dest
  49. Public Const SRCINVERT = &H660046       ' (DWORD) dest = source XOR dest
  50. Public Const SRCERASE = &H440328        ' (DWORD) dest = source AND (NOT dest )
  51. Public Const NOTSRCCOPY = &H330008      ' (DWORD) dest = (NOT source)
  52. Public Const NOTSRCERASE = &H1100A6     ' (DWORD) dest = (NOT src) AND (NOT dest)
  53. Public Const MERGECOPY = &HC000CA       ' (DWORD) dest = (source AND pattern)
  54. Public Const MERGEPAINT = &HBB0226      ' (DWORD) dest = (NOT source) OR dest
  55. Public Const PATCOPY = &HF00021 ' (DWORD) dest = pattern
  56. Public Const PATPAINT = &HFB0A09        ' (DWORD) dest = DPSnoo
  57. Public Const PATINVERT = &H5A0049       ' (DWORD) dest = pattern XOR dest
  58. Public Const DSTINVERT = &H550009       ' (DWORD) dest = (NOT dest)
  59. Public Const BLACKNESS = &H42 ' (DWORD) dest = BLACK
  60. Public Const WHITENESS = &HFF0062       ' (DWORD) dest = WHITE
  61.  
  62. ' StretchBlt() Modes
  63. Public Const BLACKONWHITE = 1
  64. Public Const WHITEONBLACK = 2
  65. Public Const COLORONCOLOR = 3
  66. Public Const HALFTONE = 4
  67. Public Const MAXSTRETCHBLTMODE = 4
  68.  
  69. Public Declare Function GetTickCount Lib "kernel32" () As Long
  70. Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
  71. Public Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
  72. Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
  73. 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
  74. Public Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
  75. Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
  76.  
  77.  
  78.