rabit/r3/Class_GeoObject.cls

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

' --- public ----------------------------------------------------------------------------------------------

Public lMaterialIndex As Long
Public lVertexBufferIndex As Long

Public strName As String

Public sgPositionX As Single
Public sgPositionY As Single
Public sgPositionZ As Single

Public lVertexCount As Long

' --- private --------------------------------------------------------------------------------------------

Private prvclD3DVertexBuffer As Direct3DVertexBuffer8
'

Property Let D3DVertexBuffer(ByVal clD3DVertexBuffer As Direct3DVertexBuffer8)

    Set prvclD3DVertexBuffer = clD3DVertexBuffer

End Property

Property Get D3DVertexBuffer() As Direct3DVertexBuffer8

    Set D3DVertexBuffer = prvclD3DVertexBuffer

End Property
1	cvsrabit	1.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 = "Class_GeoObject"
10			Attribute VB_GlobalNameSpace = False
11			Attribute VB_Creatable = True
12			Attribute VB_PredeclaredId = False
13			Attribute VB_Exposed = False
14			Option Explicit
15
16			' --- public ----------------------------------------------------------------------------------------------
17
18			Public lMaterialIndex As Long
19			Public lVertexBufferIndex As Long
20
21			Public strName As String
22
23			Public sgPositionX As Single
24			Public sgPositionY As Single
25			Public sgPositionZ As Single
26
27			Public lVertexCount As Long
28
29			' --- private --------------------------------------------------------------------------------------------
30
31			Private prvclD3DVertexBuffer As Direct3DVertexBuffer8
32			'
33
34			Property Let D3DVertexBuffer(ByVal clD3DVertexBuffer As Direct3DVertexBuffer8)
35
36			Set prvclD3DVertexBuffer = clD3DVertexBuffer
37
38			End Property
39
40			Property Get D3DVertexBuffer() As Direct3DVertexBuffer8
41
42			Set D3DVertexBuffer = prvclD3DVertexBuffer
43
44			End Property
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26