home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / vbpg32 / samples5 / ch09 / stockbms.bas < prev    next >
Encoding:
BASIC Source File  |  1997-02-16  |  5.3 KB  |  136 lines
  1. Attribute VB_Name = "STOCKBMS1"
  2. ' Copyright ⌐ 1997 by Desaware Inc. All Rights Reserved
  3. Option Explicit
  4.  
  5.  
  6. '--------------------------------------------------
  7. '
  8. '           Public Constants
  9. '
  10. Type BITMAP
  11.         bmType As Long
  12.         bmWidth As Long
  13.         bmHeight As Long
  14.         bmWidthBytes As Long
  15.         bmPlanes As Integer
  16.         bmBitsPixel As Integer
  17.         bmBits As Long
  18. End Type
  19.  
  20. Public Const CBM_INIT = &H4&    '  initialize bitmap
  21. Public Const DIB_RGB_COLORS = 0 '  color table in RGBTriples
  22. Public Const DIB_PAL_COLORS = 1 '  color table in palette indices
  23.  
  24. Public Const OBM_CLOSE = 32754
  25. Public Const OBM_UPARROW = 32753
  26. Public Const OBM_DNARROW = 32752
  27. Public Const OBM_RGARROW = 32751
  28. Public Const OBM_LFARROW = 32750
  29. Public Const OBM_REDUCE = 32749
  30. Public Const OBM_ZOOM = 32748
  31. Public Const OBM_RESTORE = 32747
  32. Public Const OBM_REDUCED = 32746
  33. Public Const OBM_ZOOMD = 32745
  34. Public Const OBM_RESTORED = 32744
  35. Public Const OBM_UPARROWD = 32743
  36. Public Const OBM_DNARROWD = 32742
  37. Public Const OBM_RGARROWD = 32741
  38. Public Const OBM_LFARROWD = 32740
  39. Public Const OBM_MNARROW = 32739
  40. Public Const OBM_COMBO = 32738
  41. Public Const OBM_UPARROWI = 32737
  42. Public Const OBM_DNARROWI = 32736
  43. Public Const OBM_RGARROWI = 32735
  44. Public Const OBM_LFARROWI = 32734
  45. Public Const OBM_OLD_CLOSE = 32767
  46. Public Const OBM_SIZE = 32766
  47. Public Const OBM_OLD_UPARROW = 32765
  48. Public Const OBM_OLD_DNARROW = 32764
  49. Public Const OBM_OLD_RGARROW = 32763
  50. Public Const OBM_OLD_LFARROW = 32762
  51. Public Const OBM_BTSIZE = 32761
  52. Public Const OBM_CHECK = 32760
  53. Public Const OBM_CHECKBOXES = 32759
  54. Public Const OBM_BTNCORNERS = 32758
  55. Public Const OBM_OLD_REDUCE = 32757
  56. Public Const OBM_OLD_ZOOM = 32756
  57. Public Const OBM_OLD_RESTORE = 32755
  58.  
  59. ' See how these are the same as the group below?
  60. ' The lower declarations are newer constants, but
  61. ' the are still the same icons.
  62. Public Const OIC_SAMPLE = 32512
  63. Public Const OIC_HAND = 32513
  64. Public Const OIC_QUES = 32514
  65. Public Const OIC_BANG = 32515
  66. Public Const OIC_NOTE = 32516
  67. Public Const OIC_WINLOGO = 32517
  68.  
  69. Public Const IDI_APPLICATION = 32512&
  70. Public Const IDI_HAND = 32513&
  71. Public Const IDI_QUESTION = 32514&
  72. Public Const IDI_EXCLAMATION = 32515&
  73. Public Const IDI_ASTERISK = 32516&
  74. Public Const IDI_WINLOGO = 32517&
  75.  
  76.  
  77. Public Const SRCCOPY = &HCC0020
  78. Public Const SRCPAINT = &HEE0086
  79. Public Const SRCAND = &H8800C6
  80. Public Const SRCINVERT = &H660046
  81. Public Const SRCERASE = &H440328
  82. Public Const NOTSRCCOPY = &H330008
  83. Public Const NOTSRCERASE = &H1100A6
  84. Public Const MERGECOPY = &HC000CA
  85. Public Const MERGEPAINT = &HBB0226
  86. Public Const PATCOPY = &HF00021
  87. Public Const PATPAINT = &HFB0A09
  88. Public Const PATINVERT = &H5A0049
  89. Public Const DSTINVERT = &H550009
  90. Public Const BLACKNESS = &H42&
  91. Public Const WHITENESS = &HFF0062
  92. Public Const BLACKONWHITE = 1
  93. Public Const WHITEONBLACK = 2
  94. Public Const COLORONCOLOR = 3
  95. Public Const BI_RGB = 0&
  96. Public Const BI_RLE8 = 1&
  97. Public Const BI_RLE4 = 2&
  98. Public Const TRANSPARENT = 1
  99. Public Const OPAQUE = 2
  100. Public Const DI_MASK = 1
  101. Public Const DI_IMAGE = 2
  102. Public Const DI_NORMAL = 3
  103. Public Const DI_COMPAT = 4
  104. Public Const DI_DEFAULTSIZE = 8
  105. Public Const IMAGE_BITMAP = 0
  106. Public Const IMAGE_ICON = 1
  107. Public Const IMAGE_CURSOR = 2
  108. Public Const LR_COLOR = &H2
  109. Public Const LR_COPYDELETEORG = &H8
  110. Public Const LR_COPYFROMRESOURCE = &H4000
  111. Public Const LR_COPYRETURNORG = &H4
  112. Public Const LR_CREATEDIBSECTION = &H2000
  113. Public Const LR_DEFAULTCOLOR = &H0
  114. Public Const LR_DEFAULTSIZE = &H40
  115. Public Const LR_LOADFROMFILE = &H10
  116. Public Const LR_LOADMAP3DCOLORS = &H1000
  117. Public Const LR_LOADTRANSPARENT = &H20
  118. Public Const LR_MONOCHROME = &H1
  119. Public Const LR_SHARED = &H8000&
  120.  
  121.  
  122. Declare Function GetLastError& Lib "kernel32" ()
  123. Declare Function CreateCompatibleDC& Lib "gdi32" (ByVal hdc As Long)
  124. Declare Function LoadBitmapBynum& Lib "user32" Alias "LoadBitmapA" (ByVal hInstance As Long, ByVal lpBitmapName As Long)
  125. Declare Function GetObjectAPI& Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any)
  126. Declare Function SelectObject& Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long)
  127. 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)
  128. Declare Function DeleteDC& Lib "gdi32" (ByVal hdc As Long)
  129. Declare Function DeleteObject& Lib "gdi32" (ByVal hObject As Long)
  130. Declare Function LoadIconBynum& Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As Long)
  131. Declare Function DrawIcon& Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long)
  132. Declare Function DrawIconEx& Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long)
  133. Declare Function LoadImage& Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long)
  134. Declare Function LoadImageBynum& Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As Long, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long)
  135.  
  136.