home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / Remote_Des21926411122010.psc / RemoteDesktop / class / clsMonitor.cls < prev    next >
Text File  |  2010-11-12  |  4KB  |  144 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsMonitor"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. '<CSCC>
  15. '--------------------------------------------------------------------------------
  16. '    Component  : clsMonitor
  17. '    Project    : NetRemote
  18. '    Author     : B2qid www.labsoft.web.id
  19. '    Description: {ParamList}
  20. '
  21. '    Modified   : 11/12/2010 2:52:18 PM
  22. '--------------------------------------------------------------------------------
  23. '</CSCC>
  24. Option Explicit
  25.  
  26. ' --------------------------------------------------------------------------
  27. '               Copyright (C) 1998 Microsoft Corporation                   '
  28. ' --------------------------------------------------------------------------
  29. ' You have a royalty-free right to use, modify, reproduce and distribute   '
  30. ' the Sample Application Files (and/or any modified version) in any way    '
  31. ' you find useful, provided that you agree that Microsoft has no warranty, '
  32. ' obligations or liability for any Sample Application Files.               '
  33. ' --------------------------------------------------------------------------
  34. ' Written by Mike Dixon (mikedix@microsoft.com)                            '
  35. ' --------------------------------------------------------------------------
  36.  
  37.  
  38. '===================================================
  39. 'Monitor Class, Contains information about a monitor
  40. 'All values should be stored as pixels
  41. '===================================================
  42.  
  43. Private m_Handle        As Long
  44. Private m_Left          As Long
  45. Private m_Right         As Long
  46. Private m_Top           As Long
  47. Private m_Bottom        As Long
  48. Private m_WorkLeft      As Long
  49. Private m_Workright     As Long
  50. Private m_Worktop       As Long
  51. Private m_Workbottom    As Long
  52. Private m_Width         As Long
  53. Private m_Height        As Long
  54.  
  55. Public Property Get Handle() As Long
  56.     Handle = m_Handle
  57. End Property
  58.  
  59. Public Property Let Handle(lHandle As Long)
  60.     m_Handle = lHandle
  61. End Property
  62.  
  63. Public Property Get Height() As Long
  64.     Height = m_Height
  65. End Property
  66.  
  67. Public Property Let Height(h As Long)
  68.     m_Height = h
  69. End Property
  70.  
  71. Public Property Get Width() As Long
  72.     Width = m_Width
  73. End Property
  74.  
  75. Public Property Let Width(w As Long)
  76.     m_Width = w
  77. End Property
  78.  
  79. Public Property Get Left() As Long
  80.     Left = m_Left
  81. End Property
  82.  
  83. Public Property Let Left(l As Long)
  84.     m_Left = l
  85. End Property
  86.  
  87. Public Property Get Right() As Long
  88.     Right = m_Right
  89. End Property
  90.  
  91. Public Property Let Right(r As Long)
  92.     m_Right = r
  93. End Property
  94.  
  95. Public Property Get Top() As Long
  96.     Top = m_Top
  97. End Property
  98.  
  99. Public Property Let Top(t As Long)
  100.     m_Top = t
  101. End Property
  102.  
  103. Public Property Get Bottom() As Long
  104.     Bottom = m_Bottom
  105. End Property
  106.  
  107. Public Property Let Bottom(b As Long)
  108.     m_Bottom = b
  109. End Property
  110.  
  111. Public Property Get WorkLeft() As Long
  112.     WorkLeft = m_WorkLeft
  113. End Property
  114.  
  115. Public Property Let WorkLeft(l As Long)
  116.     m_WorkLeft = l
  117. End Property
  118.  
  119. Public Property Get WorkRight() As Long
  120.     WorkRight = m_Workright
  121. End Property
  122.  
  123. Public Property Let WorkRight(r As Long)
  124.     m_Workright = r
  125. End Property
  126.  
  127. Public Property Get WorkTop() As Long
  128.     WorkTop = m_Worktop
  129. End Property
  130.  
  131. Public Property Let WorkTop(t As Long)
  132.     m_Worktop = t
  133. End Property
  134.  
  135. Public Property Get WorkBottom() As Long
  136.     WorkBottom = m_Workbottom
  137. End Property
  138.  
  139. Public Property Let WorkBottom(b As Long)
  140.     m_Workbottom = b
  141. End Property
  142.  
  143.  
  144.