ctexture.cls

来自「3ds文件浏览程序」· CLS 代码 · 共 48 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CTexture"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'*************************************************************************
'FUNCTION: wrapper class for a glxTexture
'AUTHOR: edx - [e-mail], Oct 98 - all rights reserved
'HISTORY: -
'NOTES: This class mainly exists to preserve the filename
'*************************************************************************

Dim m_Filename$
Public Tex As glxTexture

Private Sub Class_Initialize()
'
End Sub

Private Sub Class_Terminate()
'
End Sub

Public Property Get Filename$()
    Filename = m_Filename
End Property

Public Property Let Filename(ByVal NewValue$)
    m_Filename = NewValue
    Set Tex = gCtl.NewTexture
    With Tex
        If Not .LoadTextureFile(m_Filename) Then
            Debug.Assert 0
            LogError "File not found: " & m_Filename
        End If
    End With
End Property