Procedure references - PicInfo sample application
IPicInfo
Filename [Get]
Public Property Get Filename() As String
Dead but exposed
MaxColors [Get]
Public Property Get MaxColors() As Variant
PicForm.DisplayPictureInfo:
MaxColors = IPicInfo.MaxColors
ReadFile
Public Function ReadFile(ByVal Filename As String) As Boolean
PicForm.DisplayPictureInfo:
If IPicInfo.ReadFile(Filename) Then
Size [Get]
Public Property Get Size() As TPicSize
PicForm.DisplayPictureInfo:
PicSize = IPicInfo.Size
PicBMP
IPicInfo_Filename [Get]
Private Property Get IPicInfo_Filename() As String
IPicInfo_MaxColors [Get]
Private Property Get IPicInfo_MaxColors() As Variant
IPicInfo_ReadFile
Private Function IPicInfo_ReadFile(ByVal Filename As String) As Boolean
IPicInfo_Size [Get]
Private Property Get IPicInfo_Size() As TPicSize
ReadBitmapFile
Private Function ReadBitmapFile(ByVal Filename As String) As Boolean
PicBMP.IPicInfo_ReadFile:
IPicInfo_ReadFile = ReadBitmapFile(Filename)
PicForm
DisplayPictureInfo
Private Sub DisplayPictureInfo(ByVal Filename As String)
PicForm.OpenFile_Click:
DisplayPictureInfo Filename
PicForm.Pict_OLEDragDrop:
DisplayPictureInfo Data.Files(1)
Form_KeyPress
Private Sub Form_KeyPress(KeyAscii As Integer)
Dead - KeyPreview = False
Form_Load
Private Sub Form_Load()
OpenFile_Click
Private Sub OpenFile_Click()
PicForm.Form_KeyPress:
OpenFile_Click
Pict_OLEDragDrop
Private Sub Pict_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Pict_OLEDragOver
Private Sub Pict_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
SaveFile_Click
Private Sub SaveFile_Click()
PicGIF
IPicInfo_Filename [Get]
Private Property Get IPicInfo_Filename() As String
IPicInfo_MaxColors [Get]
Private Property Get IPicInfo_MaxColors() As Variant
IPicInfo_ReadFile
Private Function IPicInfo_ReadFile(ByVal Filename As String) As Boolean
IPicInfo_Size [Get]
Private Property Get IPicInfo_Size() As TPicSize
ReadGIF
Private Function ReadGIF(ByVal GIFFilename As String) As Boolean
PicGIF.IPicInfo_ReadFile:
IPicInfo_ReadFile = ReadGIF(Filename)
UInt
Private Function UInt(ByVal i As Integer) As Long
PicGIF.IPicInfo_Size [Get]:
IPicInfo_Size.Width = UInt(LogicalScreenDescriptor.Width)
IPicInfo_Size.Height = UInt(LogicalScreenDescriptor.Height)
Version [Get]
Friend Property Get Version() As String
Dead
PicMain
CommDlgExtendedError
Private Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long
PicMain.FileDialog:
ErrCode = CommDlgExtendedError()
FileDialog
Private Function FileDialog(ByVal hwndOwner As Long, ByVal DefaultExtension As String, ByVal Filter As String, ByRef FilterIndex As Long, ByVal InitialDir As String, ByVal DialogTitle As String, ByRef Flags As EFileDlgFlags) As String
PicMain.ShowFileOpenDialog:
ShowFileOpenDialog = FileDialog(hwndOwner, DefaultExtension, Filter, FilterIndex, InitialDir, DialogTitle, Flags)
GetOpenFileNameA
Private Declare Function GetOpenFileNameA Lib "comdlg32.dll" (pOpenfilename As OpenFilename) As Long
PicMain.FileDialog:
Result = GetOpenFileNameA(OFN)
GetSaveFileNameA
Private Declare Function GetSaveFileNameA Lib "comdlg32.dll" (pOpenfilename As OpenFilename) As Long
Dead
Main
Sub Main()
ShowFileOpenDialog
Public Function ShowFileOpenDialog(ByVal hwndOwner As Long, ByVal DefaultExtension As String, ByVal Filter As String, Optional ByRef FilterIndex As Long, Optional ByVal InitialDir As String, Optional ByVal DialogTitle As String, Optional ByRef Flags As EFileDlgFlags = OFN_OPENDEFAULTS) As String
PicForm.OpenFile_Click:
Filename = ShowFileOpenDialog(Me.hWnd, "", "Picture files (*.gif;*.bmp)|*.gif;*.bmp")