rabit/RaBit%27s%20Rapid%20Racers/Class_Material.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_Material"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

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

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

Private prvclD3DTextureDiffuse As Direct3DTexture8

Private prvtpD3DMaterial As D3DMATERIAL8
'

Public Property Let D3DTextureDiffuse(ByVal clD3DTextureDiffuse As Direct3DTexture8)

    Set prvclD3DTextureDiffuse = clD3DTextureDiffuse

End Property

Public Property Get D3DTextureDiffuse() As Direct3DTexture8

    Set D3DTextureDiffuse = prvclD3DTextureDiffuse

End Property

Property Let D3DMaterial(ByRef tpD3DMaterial As D3DMATERIAL8)

    prvtpD3DMaterial = tpD3DMaterial

End Property

Property Get D3DMaterial() As D3DMATERIAL8

    D3DMaterial = prvtpD3DMaterial

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_Material"
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			' --- private --------------------------------------------------------------------------------------------
19
20			Private prvclD3DTextureDiffuse As Direct3DTexture8
21
22			Private prvtpD3DMaterial As D3DMATERIAL8
23			'
24
25			Public Property Let D3DTextureDiffuse(ByVal clD3DTextureDiffuse As Direct3DTexture8)
26
27			Set prvclD3DTextureDiffuse = clD3DTextureDiffuse
28
29			End Property
30
31			Public Property Get D3DTextureDiffuse() As Direct3DTexture8
32
33			Set D3DTextureDiffuse = prvclD3DTextureDiffuse
34
35			End Property
36
37			Property Let D3DMaterial(ByRef tpD3DMaterial As D3DMATERIAL8)
38
39			prvtpD3DMaterial = tpD3DMaterial
40
41			End Property
42
43			Property Get D3DMaterial() As D3DMATERIAL8
44
45			D3DMaterial = prvtpD3DMaterial
46
47			End Property
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26