Nicola Pievani
55 lines
2.4 KiB
VB.net
55 lines
2.4 KiB
VB.net
'/******************************************************************************
|
|
'* *
|
|
'* PROJECT : EOS Digital Software Development Kit EDSDK *
|
|
'* NAME : Command.vb *
|
|
'* *
|
|
'* Description: This is the Sample code to show the usage of EDSDK. *
|
|
'* *
|
|
'* *
|
|
'*******************************************************************************
|
|
'* *
|
|
'* Written and developed by Camera Design Dept.53 *
|
|
'* Copyright Canon Inc. 2006 All Rights Reserved *
|
|
'* *
|
|
'*******************************************************************************
|
|
'* File Update Information: *
|
|
'* DATE Identify Comment *
|
|
'* ----------------------------------------------------------------------- *
|
|
'* 06-03-22 F-001 create first version. *
|
|
'* *
|
|
'******************************************************************************/
|
|
|
|
Option Explicit On
|
|
Imports System.Runtime.InteropServices
|
|
|
|
Public Module commandName
|
|
' Command IDs
|
|
Public Const errr As Integer = 1 'errr
|
|
Public Const prog As Integer = 2 'prog
|
|
Public Const strt As Integer = 3 'strt
|
|
Public Const cplt As Integer = 4 'cplt
|
|
Public Const warn As Integer = 5 'warn
|
|
Public Const updt As Integer = 6 'updt
|
|
Public Const upls As Integer = 7 'upls
|
|
Public Const clse As Integer = 1 'close
|
|
End Module
|
|
|
|
|
|
|
|
' Abstract command class.
|
|
' All command classes extends this one.
|
|
Public Class Command
|
|
|
|
Protected model As CameraModel
|
|
|
|
Public Sub New(ByVal model As CameraModel)
|
|
Me.model = model
|
|
End Sub
|
|
|
|
'// Execute a command.
|
|
Public Overridable Function execute() As Boolean
|
|
Return True
|
|
End Function
|
|
|
|
End Class
|