gdippropertyitem.cls

vb做的看图系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "GDIPPropertyItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/10/12
'描    述：极速数码照片查看播放工具 Ver 2.02
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

'This file originally sourced from http://www.vbaccelerator.com
Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Public Enum PropertyTagType
    PropertyTagTypeByte = 1
    PropertyTagTypeASCII = 2
    PropertyTagTypeShort = 3
    PropertyTagTypeLong = 4
    PropertyTagTypeRational = 5
    PropertyTagTypeUndefined = 7
    PropertyTagTypeSLONG = 9
    PropertyTagTypeSRational = 10
End Enum

Private m_lId As Long                   'the property id
Private m_lLength As Long               'the length of the data
Private m_itemType As PropertyTagType   'the type of the tag eg Ascii
Private m_bData() As Byte               'the data

'for reference
'PropertyTagImageTitle = &H320 = 800
'PropertyTagImageDescription = &H10E = 270
'PropertyTagEquipMake = &H10F = 271
'PropertyTagEquipModel = &H110 = 272
'PropertyTagArtist = &H13B = 315
'PropertyTagCopyright = &H8298 =  33432
'PropertyTagExifUserComment = &H9286 = 37510
'PropertyTagExifDTOrig = &H9003 = 36867
'PropertyTagExifDTDigitized = &H9004 = 36868
'PropertyTagDateTime = &H132 = 306

'-----------------
'PUBLIC PROPERTIES
'-----------------
Public Property Get id() As Long
   id = m_lId
End Property

Public Property Get ItemType() As PropertyTagType
   ItemType = m_itemType
End Property

Public Property Get Length() As Long
   Length = m_lLength
End Property

Public Property Get Name() As String
    Select Case m_lId
    Case PropertyTagExifIFD
        Name = "ExifIFD"
    Case PropertyTagsIFD
        Name = "IFD"
    Case PropertyTagNewSubfileType
        Name = "NewSubfileType"
    Case PropertyTagSubfileType
        Name = "TagSubFileType"
    Case PropertyTagImageWidth
        Name = "ImageWidth"
    Case PropertyTagImageHeight
        Name = "ImageHeight"
    Case PropertyTagBitsPerSample
        Name = "BitsPerSample"
    Case PropertyTagCompression
        Name = "Compression"
    Case PropertyTagPhotometricInterp
        Name = "PhotometricInterp"
    Case PropertyTagThreshHolding
        Name = "ThreshHolding"
    Case PropertyTagCellWidth
        Name = "CellWidth"
    Case PropertyTagCellHeight
        Name = "CellHeight"
    Case PropertyTagFillOrder
        Name = "FillOrder"
    Case PropertyTagDocumentName
        Name = "DocumentName"
    Case PropertyTagImageDescription
        Name = "ImageDescription"
    Case PropertyTagEquipMake
        Name = "EquipMake"
    Case PropertyTagEquipModel
        Name = "EquipModel"
    Case PropertyTagStripOffsets
        Name = "StripOffsets"
    Case PropertyTagOrientation
        Name = "Orientation"
    Case PropertyTagSamplesPerPixel
        Name = "SamplesPerPixel"
    Case PropertyTagRowsPerStrip
        Name = "RowsPerStrip"
    Case PropertyTagStripBytesCount
        Name = "StripBytesCount"
    Case PropertyTagMinSampleValue
        Name = "MinSampleValue"
    Case PropertyTagMaxSampleValue
        Name = "MaxSampleValue"
    Case PropertyTagXResolution
        Name = "XResolution"
    Case PropertyTagYResolution
        Name = "YResolution"
    Case PropertyTagPlanarConfig
        Name = "PlanarConfig"
    Case PropertyTagPageName
        Name = "PageName"
    Case PropertyTagXPosition
        Name = "XPosition"
    Case PropertyTagYPosition
        Name = "YPosition"
    Case PropertyTagFreeOffset
        Name = "FreeOffset"
    Case PropertyTagFreeByteCounts
        Name = "FreeByteCounts"
    Case PropertyTagGrayResponseUnit
        Name = "GrayResponseUnit"
    Case PropertyTagGrayResponseCurve
        Name = "GrayResponseCurve"
    Case PropertyTagT4Option
        Name = "T4Option"
    Case PropertyTagT6Option
        Name = "T6Option"
    Case PropertyTagResolutionUnit
        Name = "ResolutionUnit"
    Case PropertyTagPageNumber
        Name = "PageNumber"
    Case PropertyTagTransferFuncition
        Name = "TransferFuncition"
    Case PropertyTagSoftwareUsed
        Name = "SoftwareUsed"
    Case PropertyTagDateTime
        Name = "DateTime"
    Case PropertyTagArtist
        Name = "Artist"
    Case PropertyTagHostComputer
        Name = "HostComputer"
    Case PropertyTagPredictor
        Name = "Predictor"
    Case PropertyTagWhitePoint
        Name = "WhitePoint"
    Case PropertyTagPrimaryChromaticities
        Name = "PrimaryChromaticities"
    Case PropertyTagColorMap
        Name = "ColorMap"
    Case PropertyTagHalftoneHints
        Name = "HalftoneHints"
    Case PropertyTagTileWidth
        Name = "TileWidth"
    Case PropertyTagTileLength
        Name = "TileLength"
    Case PropertyTagTileOffset
        Name = "TileOffset"
    Case PropertyTagTileByteCounts
        Name = "TileByteCounts"
    Case PropertyTagInkSet
        Name = "InkSet"
    Case PropertyTagInkNames
        Name = "InkNames"
    Case PropertyTagNumberOfInks
        Name = "NumberOfInks"
    Case PropertyTagDotRange
        Name = "DotRange"
    Case PropertyTagTargetPrinter
        Name = "TargetPrinter"
    Case PropertyTagExtraSamples
        Name = "ExtraSamples"
    Case PropertyTagSampleFormat
        Name = "SampleFormat"
    Case PropertyTagSMinSampleValue
        Name = "SMinSampleValue"
    Case PropertyTagSMaxSampleValue
        Name = "SMaxSampleValue"
    Case PropertyTagTransferRange
        Name = "TransferRange"
    Case PropertyTagJPEroc
        Name = "JPEroc"
    Case PropertyTagJPEGInterFormat
        Name = "JPEGInterFormat"
    Case PropertyTagJPEGInterLength
        Name = "JPEGInterLength"
    Case PropertyTagJPEGRestartInterval
        Name = "JPEGRestartInterval"
    Case PropertyTagJPEGLosslessPredictors
        Name = "JPEGLosslessPredictors"
    Case PropertyTagJPEointTransforms
        Name = "JPEointTransforms"
    Case PropertyTagJPEGQTables
        Name = "JPEGQTables"
    Case PropertyTagJPEGDCTables
        Name = "JPEGDCTables"
    Case PropertyTagJPEGACTables
        Name = "JPEGACTables"
    Case PropertyTagYCbCrCoefficients
        Name = "YCbCrCoefficients"
    Case PropertyTagYCbCrSubsampling
        Name = "YCbCrSubsampling"
    Case PropertyTagYCbCrPositioning
        Name = "YCbCrPositioning"
    Case PropertyTagREFBlackWhite
        Name = "REFBlackWhite"
    Case PropertyTagICCProfile
        Name = "ICCProfile"
    Case PropertyTagGamma
        Name = "Gamma"
    Case PropertyTagICCProfileDescriptor
        Name = "ICCProfileDescriptor"
    Case PropertyTagSRGBRenderingIntent
        Name = "SRGBRenderingIntent"
    Case PropertyTagImageTitle
        Name = "ImageTitle"
    Case PropertyTagCopyright
        Name = "Copyright"
    Case PropertyTagResolutionXUnit
        Name = "ResolutionXUnit"
    Case PropertyTagResolutionYUnit
        Name = "ResolutionYUnit"
    Case PropertyTagResolutionXLengthUnit
        Name = "ResolutionXLengthUnit"
    Case PropertyTagResolutionYLengthUnit
        Name = "ResolutionYLengthUnit"
    Case PropertyTagPrintFlags
        Name = "PrintFlags"
    Case PropertyTagPrintFlagsVersion
        Name = "PrintFlagsVersion"
    Case PropertyTagPrintFlagsCrop
        Name = "PrintFlagsCrop"
    Case PropertyTagPrintFlagsBleedWidth
        Name = "PrintFlagsBleedWidth"
    Case PropertyTagPrintFlagsBleedWidthScale
        Name = "PrintFlagsBleedWidthScale"
    Case PropertyTagHalftoneLPI
        Name = "HalftoneLPI"
    Case PropertyTagHalftoneLPIUnit
        Name = "HalftoneLPIUnit"
    Case PropertyTagHalftoneDegree
        Name = "HalftoneDegree"
    Case PropertyTagHalftoneShape
        Name = "HalftoneShape"
    Case PropertyTagHalftoneMisc
        Name = "HalftoneMisc"
    Case PropertyTagHalftoneScreen
        Name = "HalftoneScreen"
    Case PropertyTagJPEGQuality
        Name = "JPEGQuality"
    Case PropertyTagGridSize
        Name = "GridSize"
    Case PropertyTagThumbnailFormat
        Name = "ThumbnailFormat"
    Case PropertyTagThumbnailWidth
        Name = "ThumbnailWidth"
    Case PropertyTagThumbnailHeight
        Name = "ThumbnailHeight"
    Case PropertyTagThumbnailColorDepth
        Name = "ThumbnailColorDepth"
    Case PropertyTagThumbnailPlanes
        Name = "ThumbnailPlanes"
    Case PropertyTagThumbnailRawBytes
        Name = "ThumbnailRawBytes"
    Case PropertyTagThumbnailSize
        Name = "ThumbnailSize"
    Case PropertyTagThumbnailCompressedSize
        Name = "ThumbnailCompressedSize"
    Case PropertyTagColorTransferFunction
        Name = "ColorTransferFunction"
    Case PropertyTagThumbnailData
        Name = "ThumbnailData"
    Case PropertyTagThumbnailImageWidth
        Name = "ThumbnailImageWidth"
    Case PropertyTagThumbnailImageHeight
        Name = "ThumbnailImageHeight"
    Case PropertyTagThumbnailBitsPerSample
        Name = "ThumbnailBitsPerSample"
    Case PropertyTagThumbnailCompression
        Name = "ThumbnailCompression"
    Case PropertyTagThumbnailPhotometricInterp
        Name = "ThumbnailPhotometricInterp"
    Case PropertyTagThumbnailImageDescription
        Name = "ThumbnailImageDescription"
    Case PropertyTagThumbnailEquipMake
        Name = "ThumbnailEquipMake"
    Case PropertyTagThumbnailEquipModel
        Name = "ThumbnailEquipModel"
    Case PropertyTagThumbnailStripOffsets
        Name = "ThumbnailStripOffsets"
    Case PropertyTagThumbnailOrientation
        Name = "ThumbnailOrientation"
    Case PropertyTagThumbnailSamplesPerPixel
        Name = "ThumbnailSamplesPerPixel"
    Case PropertyTagThumbnailRowsPerStrip
        Name = "ThumbnailRowsPerStrip"
    Case PropertyTagThumbnailStripBytesCount
        Name = "ThumbnailStripBytesCount"
    Case PropertyTagThumbnailResolutionX
        Name = "ThumbnailResolutionX"
    Case PropertyTagThumbnailResolutionY
        Name = "ThumbnailResolutionY"
    Case PropertyTagThumbnailPlanarConfig
        Name = "ThumbnailPlanarConfig"
    Case PropertyTagThumbnailResolutionUnit
        Name = "ThumbnailResolutionUnit"
    Case PropertyTagThumbnailTransferFunction
        Name = "ThumbnailTransferFunction"
    Case PropertyTagThumbnailSoftwareUsed
        Name = "ThumbnailSoftwareUsed"
    Case PropertyTagThumbnailDateTime
        Name = "ThumbnailDateTime"
    Case PropertyTagThumbnailArtist
        Name = "ThumbnailArtist"
    Case PropertyTagThumbnailWhitePoint
        Name = "ThumbnailWhitePoint"
    Case PropertyTagThumbnailPrimaryChromaticities
        Name = "ThumbnailPrimaryChromaticities"
    Case PropertyTagThumbnailYCbCrCoefficients
        Name = "ThumbnailYCbCrCoefficients"
    Case PropertyTagThumbnailYCbCrSubsampling
        Name = "ThumbnailYCbCrSubsampling"
    Case PropertyTagThumbnailYCbCrPositioning
        Name = "ThumbnailYCbCrPositioning"
    Case PropertyTagThumbnailRefBlackWhite
        Name = "ThumbnailRefBlackWhite"
    Case PropertyTagThumbnailCopyRight
        Name = "ThumbnailCopyRight"
    Case PropertyTagLuminanceTable
        Name = "LuminanceTable"
    Case PropertyTagChrominanceTable
        Name = "ChrominanceTable"
    Case PropertyTagFrameDelay
        Name = "FrameDelay"
    Case PropertyTagLoopCount
        Name = "LoopCount"
    Case PropertyTagPixelUnit