UInt

In Class PicGIF

  37 Private Function UInt(ByVal i As Integer) As Long
  38 ' Convert integer to unsigned integer
  39 ' [i] Signed integer to convert to an unsigned value
  40 ' Return value:
  41 ' Unsigned integer (fits in the Long datatype)
  42 
  43 If i < 0 Then
  44     UInt = 65536 + i
  45 Else
  46     UInt = i
  47 End If
  48 
  49 End Function
  50 
  51 
  52 

Called by

IPicInfo_Size [Get]