home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD124641282000.psc / Common.bas next >
Encoding:
BASIC Source File  |  2000-09-17  |  2.2 KB  |  60 lines
  1. Attribute VB_Name = "Common"
  2. Option Explicit
  3.  
  4. Public Declare Function DrawEdge Lib "user32" (ByVal hdc As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Long
  5. Public Const BDR_RAISEDINNER = &H4
  6. Public Const BDR_SUNKENINNER = &H8
  7. Public Const BDR_RAISEDOUTER = &H1
  8. Public Const BDR_SUNKENOUTER = &H2
  9. Public Const BF_BOTTOM = &H8
  10. Public Const BF_FLAT = &H4000      ' For flat rather than 3D borders
  11. Public Const BF_LEFT = &H1
  12. Public Const BF_MONO = &H8000      ' For monochrome borders.
  13. Public Const BF_RIGHT = &H4
  14. Public Const BF_TOP = &H2
  15. Public Const EDGE_RAISED = BDR_RAISEDOUTER Or BDR_RAISEDINNER
  16. Public Const EDGE_SUNKEN = BDR_SUNKENOUTER Or BDR_SUNKENINNER
  17. Public Const BF_RECT = BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM
  18.  
  19. Public Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  20. Public Type RECT
  21.     Left As Long
  22.     Top As Long
  23.     Right As Long
  24.     Bottom As Long
  25. End Type
  26.  
  27. Public Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
  28. Public Const DT_CENTER = &H1
  29. Public Const DT_VCENTER = &H4
  30. Public Const DT_SINGLELINE = &H20
  31.  
  32. Public Declare Function GetBkColor Lib "gdi32" (ByVal hdc As Long) As Long
  33. Public Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
  34.  
  35. Public Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
  36. Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  37.  
  38. Private mvarEditBox As TextBox
  39. Private mvarButTxtCol As OLE_COLOR
  40. Private mvarButTxtTrackCol As OLE_COLOR
  41. Private mvarCalcButTracking As Boolean
  42.  
  43. 'Holds a reference to edit box in user control
  44. Public Property Get EditBox() As TextBox
  45.     Set EditBox = mvarEditBox
  46. End Property
  47.  
  48. Public Property Set EditBox(ByVal vNewValue As TextBox)
  49.     Set mvarEditBox = vNewValue
  50. End Property
  51.  
  52. 'Holds the value of color of text in the calculator button
  53. Public Property Get ButTxtCol() As OLE_COLOR
  54.     ButTxtCol = mvarButTxtCol
  55. End Property
  56.  
  57. Public Property Let ButTxtCol(ByVal vNewValue As OLE_COLOR)
  58.     mvarButTxtCol = vNewValue
  59. End Property
  60.