Procedure list – PicInfo sample application

IPicInfo

Public Property Get Filename
Public Property Get MaxColors
Public Function ReadFile
Public Property Get Size

PicBMP

Private Property Get IPicInfo_Filename
Private Property Get IPicInfo_MaxColors
Private Function IPicInfo_ReadFile
Private Property Get IPicInfo_Size
Private Function ReadBitmapFile

PicForm

Private Sub DisplayPictureInfo
Private Sub Form_KeyPress
Private Sub Form_Load
Private Sub OpenFile_Click
Private Sub Pict_OLEDragDrop
Private Sub Pict_OLEDragOver
Private Sub SaveFile_Click

PicGIF

Private Property Get IPicInfo_Filename
Private Property Get IPicInfo_MaxColors
Private Function IPicInfo_ReadFile
Private Property Get IPicInfo_Size
Private Function ReadGIF
Private Function UInt
Friend Property Get Version

PicMain

Private Declare Function CommDlgExtendedError
Private Function FileDialog
Private Declare Function GetOpenFileNameA
Private Declare Function GetSaveFileNameA
Sub Main
Public Function ShowFileOpenDialog