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