vbAccelerator - Contents of code file: cDiscMasterProgressEvents.cls

This file is part of the download VB6 IMAPI Library Source, which is described in the article Image Mastering API (IMAPI) Library for VB.

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "cDiscMasterProgressEvents"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Implements IVBDiscMasterProgressEvents

Public Event Add(ByVal nCompleted As Long, ByVal nTotal As Long)
Attribute Add.VB_Description = "Used internally within the library.  Users of
 the library can receive this event through the cDiscMaster object."
Attribute Add.VB_MemberFlags = "40"
Public Event BlockProgress(ByVal nCurrentBlock As Long, ByVal nTotalBlocks As
 Long)
Attribute BlockProgress.VB_Description = "Used internally within the library. 
 Users of the library can receive this event through the cDiscMaster object."
Attribute BlockProgress.VB_MemberFlags = "40"
Public Event ClosingDisc(ByVal nEstimatedSeconds As Long)
Attribute ClosingDisc.VB_Description = "Used internally within the library. 
 Users of the library can receive this event through the cDiscMaster object."
Attribute ClosingDisc.VB_MemberFlags = "40"
Public Event EraseComplete(ByVal status As Long)
Attribute EraseComplete.VB_Description = "Used internally within the library. 
 Users of the library can receive this event through the cDiscMaster object."
Attribute EraseComplete.VB_MemberFlags = "40"
Public Event BurnComplete(ByVal status As Long)
Attribute BurnComplete.VB_Description = "Used internally within the library. 
 Users of the library can receive this event through the cDiscMaster object."
Attribute BurnComplete.VB_MemberFlags = "40"
Public Event PnPActivity()
Attribute PnPActivity.VB_Description = "Used internally within the library. 
 Users of the library can receive this event through the cDiscMaster object."
Attribute PnPActivity.VB_MemberFlags = "40"
Public Event PreparingBurn(ByVal nEstimatedSeconds As Long)
Attribute PreparingBurn.VB_Description = "Used internally within the library. 
 Users of the library can receive this event through the cDiscMaster object."
Attribute PreparingBurn.VB_MemberFlags = "40"
Public Event TrackProgress(ByVal nCurrentTrack As Long, ByVal nTotalTracks As
 Long)
Attribute TrackProgress.VB_Description = "Used internally within the library. 
 Users of the library can receive this event through the cDiscMaster object."
Attribute TrackProgress.VB_MemberFlags = "40"
Public Event QueryCancel(ByRef bCancel As Boolean)
Attribute QueryCancel.VB_Description = "Used internally within the library. 
 Users of the library can receive this event through the cDiscMaster object."
Attribute QueryCancel.VB_MemberFlags = "40"

Private Sub IVBDiscMasterProgressEvents_NotifyAddProgress(ByVal nCompleted As
 Long, ByVal nTotal As Long)
   RaiseEvent Add(nCompleted, nTotal)
End Sub

Private Sub IVBDiscMasterProgressEvents_NotifyBlockProgress(ByVal nCurrentBlock
 As Long, ByVal nTotalBlocks As Long)
   RaiseEvent BlockProgress(nCurrentBlock, nTotalBlocks)
End Sub

Private Sub IVBDiscMasterProgressEvents_NotifyClosingDisc(ByVal
 nEstimatedSeconds As Long)
   RaiseEvent ClosingDisc(nEstimatedSeconds)
End Sub

Private Sub IVBDiscMasterProgressEvents_NotifyEraseComplete(ByVal status As
 Long)
   RaiseEvent EraseComplete(status)
End Sub

Private Sub IVBDiscMasterProgressEvents_NotifyBurnComplete(ByVal status As Long)
   RaiseEvent BurnComplete(status)
End Sub

Private Sub IVBDiscMasterProgressEvents_NotifyPnPActivity()
   RaiseEvent PnPActivity
End Sub

Private Sub IVBDiscMasterProgressEvents_NotifyPreparingBurn(ByVal
 nEstimatedSeconds As Long)
   RaiseEvent PreparingBurn(nEstimatedSeconds)
End Sub

Private Sub IVBDiscMasterProgressEvents_NotifyTrackProgress(ByVal nCurrentTrack
 As Long, ByVal nTotalTracks As Long)
   RaiseEvent TrackProgress(nCurrentTrack, nTotalTracks)
End Sub

Private Function IVBDiscMasterProgressEvents_QueryCancel() As Long
Dim bCancel As Boolean
   'RaiseEvent QueryCancel(bCancel)
   'If (bCancel) Then
   '   IVBDiscMasterProgressEvents_QueryCancel = 1
   'End If
End Function