PicInfo.cls

   1 ' PicInfo IPicInfo interface
   2 ' ©2006 Aivosto Oy (www.aivosto.com)
   3 '
   4 ' This file is part of a sample project for Project Analyzer.
   5 ' Distribution of this file is only allowed along with Project Analyzer
   6 ' according to the Project Analyzer license terms.
   7 
   8 Option Explicit
   9 
  10 
  11 ' Type for picture size
  12 Public Type TPicSize
  13     Width As Long   ' Picture width in pixels
  14     Height As Long  ' Picture height in pixels
  15 End Type
  16 
  17 Public Property Get Filename() As String
  18 Attribute Filename.VB_Description = "Returns the filename used in the previous call to ReadFile"
  19 ' Returns the filename used in the previous call to ReadFile
  20 
  21 End Property
  22 
  23 
  24 Public Property Get MaxColors() As Variant
  25 Attribute MaxColors.VB_Description = "Returns the maximum number of colors possible to represent in picture"
  26 ' Returns the maximum number of colors possible to represent in picture.
  27 ' Return value:
  28 ' The return value is always numeric. The maximum value may exceed
  29 ' the size of the Long data type, therefore we use the Variant data type.
  30 
  31 End Property
  32 
  33 Public Function ReadFile(ByVal Filename As String) As Boolean
  34 Attribute ReadFile.VB_Description = "Read a picture file to retrieve picture information"
  35 ' Read a picture file to retrieve picture information
  36 ' [Filename] File to read
  37 ' Return value:
  38 ' True - Picture information retrieved
  39 ' False - Error, information not retrieved
  40 
  41 End Function
  42 
  43 Public Property Get Size() As TPicSize
  44 Attribute Size.VB_Description = "Returns picture width and height in pixels"
  45 ' Returns picture width and height in pixels
  46 
  47 End Property
  48 
  49 
  50