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