home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / VBEMBDMN / MAIN.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-03-01  |  2.4 KB  |  75 lines
  1. DefInt A-Z
  2.  
  3. Type RECT
  4.     Left As Integer
  5.     Top As Integer
  6.     right As Integer
  7.     Bottom As Integer
  8. End Type
  9.  
  10. Declare Function GetSystemMetrics Lib "User" (ByVal nIndex%) As Integer
  11. Declare Function SetParent Lib "User" (ByVal hwndChild%, ByVal hWndNewParent%) As Integer
  12.  
  13. Declare Sub GetWindowRect Lib "User" (ByVal hWnd%, lpRect As RECT)
  14. Declare Sub SetActiveWindow Lib "User" (ByVal hWnd)
  15. Declare Sub SetWindowPos Lib "User" (ByVal hWnd%, ByVal hWndInsertAfter%, ByVal X%, ByVal Y%, ByVal Cx%, ByVal Cy%, ByVal wFlags%)
  16.  
  17. Global Const SM_CXBORDER = 5
  18. Global Const SM_CYBORDER = 6
  19. Global Const SM_CXFRAME = 32
  20. Global Const SM_CYFRAME = 33
  21. Global Const SM_CYCAPTION = 4
  22.  
  23. Global mnuembed As Integer
  24. Global lpRect  As RECT
  25.  
  26. 'These are for managing the 3D look.
  27. Global Const CTLRAISED = -1    ' Frame is raised.
  28. Global Const CTLRECESSED = 0   ' Frame is recessed
  29. Global Const BKGNDGRAY = 192   ' Background Gray.
  30. Global Const DARKGRAY = 64     ' Dark Gray
  31. Global Const LIGHTGRAY = 255   ' Light Gray (white).
  32. Global Const DEFAULTWIDTH = 1  ' Default Frame Width
  33. Global FrameWidth As Integer   ' Width of 3d frame (in pixels).
  34.  
  35. Sub Highlight (C As Control, InOut%)
  36. 'Part of my 3D look.
  37. C.Parent.ScaleMode = 3
  38. TLShade& = RGB(LIGHTGRAY, LIGHTGRAY, LIGHTGRAY)
  39. BRShade& = RGB(DARKGRAY, DARKGRAY, DARKGRAY)
  40. ' Now draw the Frame Around the Control, on the Parent Form.
  41. For i% = 1 To FrameWidth
  42. T% = C.Top - i%
  43. L% = C.Left - i%
  44. H% = C.Height + 2 * i%
  45. W% = C.Width + 2 * i%
  46. C.Parent.Line (L%, T%)-Step(0, H%), TLShade&   ' left side
  47. C.Parent.Line (L%, T%)-Step(W%, 0), TLShade&   ' top
  48. C.Parent.Line (L% + W%, T%)-Step(0, H%), BRShade& ' right side
  49. C.Parent.Line (L%, T% + H%)-Step(W%, 0), BRShade&  ' bottom
  50. Next i%
  51. End Sub
  52.  
  53. Sub HotKey (KeyCode As Integer, Shift As Integer)
  54. End Sub
  55.  
  56. Sub LowLight (D As Control, OutIn%)
  57. 'Part of my 3D look.
  58. D.Parent.ScaleMode = 3
  59. TLShade& = RGB(DARKGRAY, DARKGRAY, DARKGRAY)
  60. BRShade& = RGB(LIGHTGRAY, LIGHTGRAY, LIGHTGRAY)
  61. ' Now draw the Frame Around the Control, on the Parent Form.
  62. For i% = 1 To FrameWidth
  63. T% = D.Top - i%
  64. L% = D.Left - i%
  65. H% = D.Height + 2 * i%
  66. W% = D.Width + 2 * i%
  67. D.Parent.Line (L%, T%)-Step(0, H%), TLShade&   ' left side
  68. D.Parent.Line (L%, T%)-Step(W%, 0), TLShade&   ' top
  69. D.Parent.Line (L% + W%, T%)-Step(0, H%), BRShade& ' right side
  70. D.Parent.Line (L%, T% + H%)-Step(W%, 0), BRShade&  ' bottom
  71. Next i%
  72. End Sub
  73.  
  74.  
  75.