home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Xiao_Stega1904516222005.psc / VB_Steg / ClsFile.cls next >
Text File  |  2005-06-22  |  2KB  |  60 lines
  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 = "ClsFile"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15. Dim mbFileName() As Byte 'The filename
  16. Dim mbFileTitle() As Byte 'The short title for the filename
  17. Dim mbType() As Byte 'what type is: txt, bmp, jpg, gif, png
  18. Dim msKey As String * 3 'the unique key
  19. Dim mlLenFile& 'len in bytes for this file
  20.  
  21. Public Property Get KeyFile() As String
  22.     KeyFile = msKey
  23. End Property
  24.  
  25. Public Property Let KeyFile(ByVal sNewKey As String)
  26.     msKey = sNewKey
  27. End Property
  28.  
  29. Public Property Get TypeFile() As String
  30.     TypeFile = StrConv(mbType(), vbUnicode)
  31. End Property
  32.  
  33. Public Property Let TypeFile(ByVal sNewType As String)
  34.     mbType() = StrConv(sNewType, vbFromUnicode)
  35. End Property
  36.  
  37. Public Property Get LenBytes() As Long
  38.     LenBytes = mlLenFile
  39. End Property
  40.  
  41. Public Property Let LenBytes(ByVal lNewLen As Long)
  42.     mlLenFile = lNewLen
  43. End Property
  44.  
  45. Public Property Get FileName() As String
  46.     FileName = StrConv(mbFileName(), vbUnicode)
  47. End Property
  48.  
  49. Public Property Let FileName(ByVal sNewFile As String)
  50.     mbFileName() = StrConv(sNewFile, vbFromUnicode)
  51. End Property
  52.  
  53. Public Property Get FileTitle() As String
  54.     FileTitle = StrConv(mbFileTitle(), vbUnicode)
  55. End Property
  56.  
  57. Public Property Let FileTitle(ByVal sNewTitle As String)
  58.     mbFileTitle() = StrConv(sNewTitle, vbFromUnicode)
  59. End Property
  60.