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	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