rabit/r3/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	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