PicInfo.cls (IPicInfo) (Class IPicInfo)

   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 

    Dead procedure - Implemented but not executed
    Return value not set: Filename [Get]
  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 

    Return value not set: MaxColors [Get]
  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 

    Return value not set: ReadFile
  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 

    Return value not set: Size [Get]
  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