IPicInfo_Size [Get]
In Class PicGIF
138 Private Property Get IPicInfo_Size() As TPicSize
139 ' Returns picture width and height in pixels
140
141 If FileOK Then
142 ' We have retrieved the picture size
143
144 ' As the width and height are unsigned integers but VB6 supports no unsigned integer datatype,
145 ' we need to convert the values with UInt() before returning to caller.
146 IPicInfo_Size.Width = UInt(LogicalScreenDescriptor.Width)
147 IPicInfo_Size.Height = UInt(LogicalScreenDescriptor.Height)
148 End If
149
150 End Property
151
152
153
Called by
– Size [Get] in Class IPicInfo
Calls
> UInt