cfield.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CField"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'*************************************************************************
'FUNCTION: Generic field class.
'AUTHOR: edx - [e-mail], Oct 98 - all rights reserved
'HISTORY: -
'NOTES: This class is used to represent unread or unused chunks in the treeview.
'A field node is added to the scene database whenever, for ex., a
'chunk is skipped (in 3ds files). The value may or may not have any meaning.
'*************************************************************************
Public ChunkID% '3ds chunk ID
Public Parent As Object
Public Value$ 'used to preserve the original data
Public TreeNode As Node   'reference to the treeview

Private Sub Class_Initialize()
    '
End Sub

Private Sub Class_Terminate()
'
End Sub

Public Sub FillTree()
Dim ParentNode As Node, i&, s$, v$
    v = Trim$(Value)
    If Len(v) = 0 Then
        Debug.Assert 0
    End If
    If Len(v) > 16 Then
        'v = "[" & Left$(v, 32) & "...]"
        v = "[datalength:" & Len(v) & "]"
    End If
    s = ChunkName(ChunkID) & ": " & v
    Set ParentNode = Parent.TreeNode
    Set TreeNode = frmMain.TV1.Nodes.Add(ParentNode, tvwChild, , s, ChunkImage(ChunkID))
End Sub