box.cls

来自「数控自动编程系统」· CLS 代码 · 共 65 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Box"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Private m_minZ As Double
Private m_minX As Double
Private m_maxZ As Double
Private m_maxX As Double

'写maxY属性
Public Property Let maxX(ByVal vData As Double)
    m_maxX = vData
End Property

'读maxY属性
Public Property Get maxX() As Double
    maxX = m_maxX
End Property

'写maxX属性
Public Property Let maxZ(ByVal vData As Double)
    m_maxZ = vData
End Property

'读maxX属性
Public Property Get maxZ() As Double
    maxZ = m_maxZ
End Property

'写minY属性
Public Property Let minX(ByVal vData As Double)
    m_minX = vData
End Property

'读minY属性
Public Property Get minX() As Double
    minX = m_minX
End Property

'写minX属性
Public Property Let minZ(ByVal vData As Double)
    m_minZ = vData
End Property

'读minX属性
Public Property Get minZ() As Double
    minZ = m_minZ
End Property