rawdevelop.bas

来自「canon 相机SDK,非常难得」· BAS 代码 · 共 51 行

Attribute VB_Name = "Module5"
Option Explicit

'----------------------------------------------
' To execute this sample application
'----------------------------------------------
'1.Copy this folder and all contents to HD of PC.
'2.Open the Progress.vbp with Visual Basic.
'3.Click the menu [File]-[Make Progress.exe...] to make the progress.exe.
'4.Open the RawDevelop.vbp with Visual Basic.
'5.Click the menu [Project]-[References...], and the [References] dialog
'  box is opened.
'6.Check the "Progress" to set the reference to the progress.exe.
'7.Click [Make Project1.exe...] in the [File] menu to compile the project.
'  Then, the Progress.exe will be made.
'6.Copy all files included in the \CDSDK\Redist folder to the project folder.
'----------------------------------------------

Public Const DEVICE_NOT_CHOICE = &HFFFF
Public Const IMAGE_FIND_ERROR = &HFFFF

Public Const cdTRUE = 1
Public Const cdFALSE = 0

Public m_SourceInfo As cdSourceInfo
Public m_EventID    As Long
Public m_Progress   As CProgress

Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_STYLE = (-16)
Public Const ES_NUMBER = &H2000

Public Function GETERRORID(ID As Long)
    GETERRORID = ID And cdERROR_ERRORID_MASK
End Function

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

Public Function DevelopProgressFunc(ByVal progress As Long, ByVal status As Long, ByVal Context As Long) As Long
    
    Call m_Progress.SetProgress(progress, status)
    
    DevelopProgressFunc = m_Progress.GetRetProgress()
    
 End Function