getpicture.bas

canon 相机SDK,非常难得

Attribute VB_Name = "Module5"
Option Explicit

Public Const GET_DATA_TYPE_PICTURE = 1
Public Const GET_DATA_TYPE_THUMBNAIL = 2
Public Const DEVICE_NOT_CHOICE = &HFFFF
Public Const IMAGE_FIND_ERROR = &HFFFF

Public m_SourceInfo As cdSourceInfo
Public m_EventID    As Long


Public Function EventCallbackFunc(ByVal eventID As Long, ByRef pData As Variant, ByVal DataSize As Long, ByVal Context As Long) As Long
    m_EventID = eventID
    EventCallbackFunc = cdOK
End Function