home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Virtual_Li2023561062006.psc / ListView / clsRect.cls < prev    next >
Text File  |  2006-08-05  |  2KB  |  76 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 = "clsRect"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Option Explicit
  15.  
  16. ' Copyright (C) 2006 Kristian S. Stangeland
  17.  
  18. ' This program is free software; you can redistribute it and/or
  19. ' modify it under the terms of the GNU General Public License
  20. ' as published by the Free Software Foundation; either version 2
  21. ' of the License, or (at your option) any later version.
  22.  
  23. ' This program is distributed in the hope that it will be useful,
  24. ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  25. ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  26. ' GNU General Public License for more details.
  27.  
  28. ' You should have received a copy of the GNU General Public License
  29. ' along with this program; if not, write to the Free Software
  30. ' Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  31.  
  32. ' Contains the dimensions of a rectangle in a coordinate system
  33. Public Left As Long     ' X1
  34. Public Top As Long      ' Y1
  35. Public Right As Long    ' X2
  36. Public Bottom As Long   ' Y2
  37.  
  38. Friend Property Get UDT() As RECT
  39.  
  40.     ' Return the data within this class as a UDT
  41.     With UDT
  42.         .Left = Left
  43.         .Top = Top
  44.         .Right = Right
  45.         .Bottom = Bottom
  46.     End With
  47.  
  48. End Property
  49.  
  50. Friend Property Let UDT(vNewValue As RECT)
  51.  
  52.     ' Sets the content of this class to correspond to the given UDF
  53.     With vNewValue
  54.         Left = .Left
  55.         Top = .Top
  56.         Right = .Right
  57.         Bottom = .Bottom
  58.     End With
  59.  
  60. End Property
  61.  
  62. Friend Function Clone() As clsRect
  63.  
  64.     ' Create a new class
  65.     Set Clone = New clsRect
  66.     
  67.     ' Then, copy the content
  68.     With Clone
  69.         .Left = Left
  70.         .Top = Top
  71.         .Right = Right
  72.         .Bottom = Bottom
  73.     End With
  74.  
  75. End Function
  76.