Files
Samuele Locatelli 6c13590778 Refresh OSAI e S7
2021-12-01 16:48:05 +01:00

20798 lines
943 KiB
VB.net

'------------------------------------------------------------------------------
' <auto-generated>
' Il codice è stato generato da uno strumento.
' Versione runtime:4.0.30319.42000
'
' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se
' il codice viene rigenerato.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization
'
'Il codice sorgente è stato generato automaticamente da Microsoft.VSDesigner, versione 4.0.30319.42000.
'
Namespace WebReference
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Web.Services.WebServiceBindingAttribute(Name:="OPENcontrol", [Namespace]:="OPENcontrol.wsdl")> _
Partial Public Class OPENcontrol
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
Private BootPhaseEnquiryOperationCompleted As System.Threading.SendOrPostCallback
Private BootRebootOperationCompleted As System.Threading.SendOrPostCallback
Private BootShutDownOperationCompleted As System.Threading.SendOrPostCallback
Private BootModeOperationCompleted As System.Threading.SendOrPostCallback
Private GetHWKeyOperationCompleted As System.Threading.SendOrPostCallback
Private ReadVarWordOperationCompleted As System.Threading.SendOrPostCallback
Private ReadVarDoubleOperationCompleted As System.Threading.SendOrPostCallback
Private WriteVarWordOperationCompleted As System.Threading.SendOrPostCallback
Private WriteVarWordBitOperationCompleted As System.Threading.SendOrPostCallback
Private WriteVarDoubleOperationCompleted As System.Threading.SendOrPostCallback
Private ReadVarTextOperationCompleted As System.Threading.SendOrPostCallback
Private WriteVarTextOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarBoolOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarByteOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarShortOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarWordOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarLongOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarDwordOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarDoubleOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarStringOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarBoolOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarByteOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarShortOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarWordOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarLongOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarDwordOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarDoubleOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarStringOperationCompleted As System.Threading.SendOrPostCallback
Private ReadWarningMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ResetSingleTableIIOperationCompleted As System.Threading.SendOrPostCallback
Private LockTableIIOperationCompleted As System.Threading.SendOrPostCallback
Private UnLockTableIIOperationCompleted As System.Threading.SendOrPostCallback
Private GetOriginTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private SetOriginTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private GetToolTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private SetToolTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private GetOffsetTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private SetOffsetTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private GetUserTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private SetUserTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private GetMagazineTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private SetMagazineTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private GetPocketTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private SetPocketTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private SaveTablesOperationCompleted As System.Threading.SendOrPostCallback
Private RestoreSingleTableOperationCompleted As System.Threading.SendOrPostCallback
Private SaveSingleTableOperationCompleted As System.Threading.SendOrPostCallback
Private SaveBackupMemoryOperationCompleted As System.Threading.SendOrPostCallback
Private RestoreBackupMemoryOperationCompleted As System.Threading.SendOrPostCallback
Private ToolSearchOperationCompleted As System.Threading.SendOrPostCallback
Private ToolSearchLifeOperationCompleted As System.Threading.SendOrPostCallback
Private ToolSearchDirOperationCompleted As System.Threading.SendOrPostCallback
Private ToolSearchLifeDirOperationCompleted As System.Threading.SendOrPostCallback
Private ToolSameFamilyOperationCompleted As System.Threading.SendOrPostCallback
Private ToolLoadOperationCompleted As System.Threading.SendOrPostCallback
Private ToolUnloadOperationCompleted As System.Threading.SendOrPostCallback
Private PocketSearchOperationCompleted As System.Threading.SendOrPostCallback
Private PocketClosestOperationCompleted As System.Threading.SendOrPostCallback
Private PocketNearestOperationCompleted As System.Threading.SendOrPostCallback
Private ToolLifeOperationCompleted As System.Threading.SendOrPostCallback
Private LoadTableFromFileOperationCompleted As System.Threading.SendOrPostCallback
Private MagConfigurePocketsOperationCompleted As System.Threading.SendOrPostCallback
Private CycleOperationCompleted As System.Threading.SendOrPostCallback
Private SyncroCycleOperationCompleted As System.Threading.SendOrPostCallback
Private ResetOperationCompleted As System.Threading.SendOrPostCallback
Private HoldOperationCompleted As System.Threading.SendOrPostCallback
Private SetFeedManOverOperationCompleted As System.Threading.SendOrPostCallback
Private SetFeedRateOverOperationCompleted As System.Threading.SendOrPostCallback
Private SetFeedRapidOverOperationCompleted As System.Threading.SendOrPostCallback
Private SetSpeedRateOverOperationCompleted As System.Threading.SendOrPostCallback
Private SetManMovDirectionOperationCompleted As System.Threading.SendOrPostCallback
Private GetVarJOGOperationCompleted As System.Threading.SendOrPostCallback
Private SetVarJOGOperationCompleted As System.Threading.SendOrPostCallback
Private SetVarUASOperationCompleted As System.Threading.SendOrPostCallback
Private GetVarRCMOperationCompleted As System.Threading.SendOrPostCallback
Private SetVarRCMOperationCompleted As System.Threading.SendOrPostCallback
Private GetVarCYCTIMEOperationCompleted As System.Threading.SendOrPostCallback
Private SetVarCYCTIMEOperationCompleted As System.Threading.SendOrPostCallback
Private GetProcVarWordOperationCompleted As System.Threading.SendOrPostCallback
Private SetProcVarWordOperationCompleted As System.Threading.SendOrPostCallback
Private GetProcVarDoubleOperationCompleted As System.Threading.SendOrPostCallback
Private SetProcVarDoubleOperationCompleted As System.Threading.SendOrPostCallback
Private SetMdiStringOperationCompleted As System.Threading.SendOrPostCallback
Private SetProcessModeOperationCompleted As System.Threading.SendOrPostCallback
Private SelectProcessOperationCompleted As System.Threading.SendOrPostCallback
Private GetSelectedProcessOperationCompleted As System.Threading.SendOrPostCallback
Private SelectProcAxisOperationCompleted As System.Threading.SendOrPostCallback
Private SelectPartProgramOperationCompleted As System.Threading.SendOrPostCallback
Private SelectPartProgramFromDriveOperationCompleted As System.Threading.SendOrPostCallback
Private GetActivePartProgramOperationCompleted As System.Threading.SendOrPostCallback
Private GetActivePartProgramFullPathOperationCompleted As System.Threading.SendOrPostCallback
Private GetPartProgramLinesOperationCompleted As System.Threading.SendOrPostCallback
Private GetAxOriginNumOperationCompleted As System.Threading.SendOrPostCallback
Private GetAxesPositionOperationCompleted As System.Threading.SendOrPostCallback
Private GetNcInfo1OperationCompleted As System.Threading.SendOrPostCallback
Private GetNcInfo2OperationCompleted As System.Threading.SendOrPostCallback
Private GetToolNamesOperationCompleted As System.Threading.SendOrPostCallback
Private GetProcessStatusOperationCompleted As System.Threading.SendOrPostCallback
Private GetBlkNumOperationCompleted As System.Threading.SendOrPostCallback
Private ReadErrMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ReadPartProgramMsgOperationCompleted As System.Threading.SendOrPostCallback
Private GetGCodeOperationCompleted As System.Threading.SendOrPostCallback
Private GetMCodeOperationCompleted As System.Threading.SendOrPostCallback
Private SkipPProgBlockOperationCompleted As System.Threading.SendOrPostCallback
Private EseOperationCompleted As System.Threading.SendOrPostCallback
Private EseExOperationCompleted As System.Threading.SendOrPostCallback
Private ExeOperationCompleted As System.Threading.SendOrPostCallback
Private AxesRefOperationCompleted As System.Threading.SendOrPostCallback
Private DncInitOperationCompleted As System.Threading.SendOrPostCallback
Private DncDataOperationCompleted As System.Threading.SendOrPostCallback
Private DncEofOperationCompleted As System.Threading.SendOrPostCallback
Private DncStopOperationCompleted As System.Threading.SendOrPostCallback
Private GetAxesInfo3OperationCompleted As System.Threading.SendOrPostCallback
Private GetCodeNumberOperationCompleted As System.Threading.SendOrPostCallback
Private GetOptionsOperationCompleted As System.Threading.SendOrPostCallback
Private GetDateTimeOperationCompleted As System.Threading.SendOrPostCallback
Private SetDateTimeOperationCompleted As System.Threading.SendOrPostCallback
Private GetSerialNumberOperationCompleted As System.Threading.SendOrPostCallback
Private PutFileOperationCompleted As System.Threading.SendOrPostCallback
Private GetFileOperationCompleted As System.Threading.SendOrPostCallback
Private PutBinaryFileOperationCompleted As System.Threading.SendOrPostCallback
Private GetBinaryFileOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSSetSecurityLevelOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetSecurityLevelOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSLongFileNamesOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetNumDriveOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetDriveListOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetHiddenDriveListOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetDrivePathOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSAddDriveOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSRemoveDriveOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSReloadDriveListOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSCreateDirOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSCreateFileOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetFileSizeOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetFileAttribOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSSetFileAttribOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSChangeFileAttribOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSFindFirstOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSFindNextOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSFindCloseOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSRemoveFileOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSRemoveDirOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSRenameOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSCopyFileOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetInfoOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSOpenFileOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSCloseFileOperationCompleted As System.Threading.SendOrPostCallback
Private GetSysTickOperationCompleted As System.Threading.SendOrPostCallback
Private GetProcessConfNumOperationCompleted As System.Threading.SendOrPostCallback
Private CheckHistoryOperationCompleted As System.Threading.SendOrPostCallback
Private ReadHistoryEmergMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ReadHistoryErrorMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ReadHistoryLogMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ReadHistoryAnomalyMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ReadCurrentErrorMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ReadCurrentEmergMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ReadCurrentAnomalyMsgOperationCompleted As System.Threading.SendOrPostCallback
Private GetPTechSizesOperationCompleted As System.Threading.SendOrPostCallback
Private LoadPTechOperationCompleted As System.Threading.SendOrPostCallback
Private GetMarkerInfoOperationCompleted As System.Threading.SendOrPostCallback
Private ManagePartProgramOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSWriteRecordOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSReadRecordOperationCompleted As System.Threading.SendOrPostCallback
Private ReadRemapDefinitionsOperationCompleted As System.Threading.SendOrPostCallback
Private WriteRemapDefinitionsOperationCompleted As System.Threading.SendOrPostCallback
Private GetServoParOperationCompleted As System.Threading.SendOrPostCallback
Private SetServoParOperationCompleted As System.Threading.SendOrPostCallback
Private GetCNCRegKeyOperationCompleted As System.Threading.SendOrPostCallback
Private GetSecurityDataOperationCompleted As System.Threading.SendOrPostCallback
Private SetSecurityDataOperationCompleted As System.Threading.SendOrPostCallback
Private SetIpAddressOperationCompleted As System.Threading.SendOrPostCallback
Private GetProcInInputOperationCompleted As System.Threading.SendOrPostCallback
Private SndProcInpDataOperationCompleted As System.Threading.SendOrPostCallback
Private GetPartProgramLinesExOperationCompleted As System.Threading.SendOrPostCallback
Private SetMdiStringExOperationCompleted As System.Threading.SendOrPostCallback
Private GetExpireDataOperationCompleted As System.Threading.SendOrPostCallback
Private GetRemainingTimeOperationCompleted As System.Threading.SendOrPostCallback
Private GenerateUserKeyOperationCompleted As System.Threading.SendOrPostCallback
Private WriteActivationKeyOperationCompleted As System.Threading.SendOrPostCallback
Private GetAvailableCustomEventsOperationCompleted As System.Threading.SendOrPostCallback
Private MonOpenChannelOperationCompleted As System.Threading.SendOrPostCallback
Private MonCloseChannelOperationCompleted As System.Threading.SendOrPostCallback
Private MonAddVariableOperationCompleted As System.Threading.SendOrPostCallback
Private MonDeleteVariableOperationCompleted As System.Threading.SendOrPostCallback
Private MonStartSamplingOperationCompleted As System.Threading.SendOrPostCallback
Private MonStopSamplingOperationCompleted As System.Threading.SendOrPostCallback
Private MonGetVariableOperationCompleted As System.Threading.SendOrPostCallback
Private MonGetVariableSOperationCompleted As System.Threading.SendOrPostCallback
Private MonGetDryRunOperationCompleted As System.Threading.SendOrPostCallback
Private MonGetMovOperationCompleted As System.Threading.SendOrPostCallback
Private GetDriveBasicInfoOperationCompleted As System.Threading.SendOrPostCallback
Private ReadStatisticsOperationCompleted As System.Threading.SendOrPostCallback
Private ReadStatisticsBaseFrequencyOperationCompleted As System.Threading.SendOrPostCallback
Private GetActiveAmpOperationCompleted As System.Threading.SendOrPostCallback
Private SetActiveAmpOperationCompleted As System.Threading.SendOrPostCallback
Private useDefaultCredentialsSetExplicitly As Boolean
'''<remarks/>
Public Sub New()
MyBase.New
Me.Url = Global.testSam.My.MySettings.Default.d_prod_WebReference_OPENcontrol
If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then
Me.UseDefaultCredentials = true
Me.useDefaultCredentialsSetExplicitly = false
Else
Me.useDefaultCredentialsSetExplicitly = true
End If
End Sub
Public Shadows Property Url() As String
Get
Return MyBase.Url
End Get
Set
If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _
AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _
AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then
MyBase.UseDefaultCredentials = false
End If
MyBase.Url = value
End Set
End Property
Public Shadows Property UseDefaultCredentials() As Boolean
Get
Return MyBase.UseDefaultCredentials
End Get
Set
MyBase.UseDefaultCredentials = value
Me.useDefaultCredentialsSetExplicitly = true
End Set
End Property
'''<remarks/>
Public Event BootPhaseEnquiryCompleted As BootPhaseEnquiryCompletedEventHandler
'''<remarks/>
Public Event BootRebootCompleted As BootRebootCompletedEventHandler
'''<remarks/>
Public Event BootShutDownCompleted As BootShutDownCompletedEventHandler
'''<remarks/>
Public Event BootModeCompleted As BootModeCompletedEventHandler
'''<remarks/>
Public Event GetHWKeyCompleted As GetHWKeyCompletedEventHandler
'''<remarks/>
Public Event ReadVarWordCompleted As ReadVarWordCompletedEventHandler
'''<remarks/>
Public Event ReadVarDoubleCompleted As ReadVarDoubleCompletedEventHandler
'''<remarks/>
Public Event WriteVarWordCompleted As WriteVarWordCompletedEventHandler
'''<remarks/>
Public Event WriteVarWordBitCompleted As WriteVarWordBitCompletedEventHandler
'''<remarks/>
Public Event WriteVarDoubleCompleted As WriteVarDoubleCompletedEventHandler
'''<remarks/>
Public Event ReadVarTextCompleted As ReadVarTextCompletedEventHandler
'''<remarks/>
Public Event WriteVarTextCompleted As WriteVarTextCompletedEventHandler
'''<remarks/>
Public Event ReadNamedVarBoolCompleted As ReadNamedVarBoolCompletedEventHandler
'''<remarks/>
Public Event ReadNamedVarByteCompleted As ReadNamedVarByteCompletedEventHandler
'''<remarks/>
Public Event ReadNamedVarShortCompleted As ReadNamedVarShortCompletedEventHandler
'''<remarks/>
Public Event ReadNamedVarWordCompleted As ReadNamedVarWordCompletedEventHandler
'''<remarks/>
Public Event ReadNamedVarLongCompleted As ReadNamedVarLongCompletedEventHandler
'''<remarks/>
Public Event ReadNamedVarDwordCompleted As ReadNamedVarDwordCompletedEventHandler
'''<remarks/>
Public Event ReadNamedVarDoubleCompleted As ReadNamedVarDoubleCompletedEventHandler
'''<remarks/>
Public Event ReadNamedVarStringCompleted As ReadNamedVarStringCompletedEventHandler
'''<remarks/>
Public Event WriteNamedVarBoolCompleted As WriteNamedVarBoolCompletedEventHandler
'''<remarks/>
Public Event WriteNamedVarByteCompleted As WriteNamedVarByteCompletedEventHandler
'''<remarks/>
Public Event WriteNamedVarShortCompleted As WriteNamedVarShortCompletedEventHandler
'''<remarks/>
Public Event WriteNamedVarWordCompleted As WriteNamedVarWordCompletedEventHandler
'''<remarks/>
Public Event WriteNamedVarLongCompleted As WriteNamedVarLongCompletedEventHandler
'''<remarks/>
Public Event WriteNamedVarDwordCompleted As WriteNamedVarDwordCompletedEventHandler
'''<remarks/>
Public Event WriteNamedVarDoubleCompleted As WriteNamedVarDoubleCompletedEventHandler
'''<remarks/>
Public Event WriteNamedVarStringCompleted As WriteNamedVarStringCompletedEventHandler
'''<remarks/>
Public Event ReadWarningMsgCompleted As ReadWarningMsgCompletedEventHandler
'''<remarks/>
Public Event ResetSingleTableIICompleted As ResetSingleTableIICompletedEventHandler
'''<remarks/>
Public Event LockTableIICompleted As LockTableIICompletedEventHandler
'''<remarks/>
Public Event UnLockTableIICompleted As UnLockTableIICompletedEventHandler
'''<remarks/>
Public Event GetOriginTabRecordIICompleted As GetOriginTabRecordIICompletedEventHandler
'''<remarks/>
Public Event SetOriginTabRecordIICompleted As SetOriginTabRecordIICompletedEventHandler
'''<remarks/>
Public Event GetToolTabRecordIICompleted As GetToolTabRecordIICompletedEventHandler
'''<remarks/>
Public Event SetToolTabRecordIICompleted As SetToolTabRecordIICompletedEventHandler
'''<remarks/>
Public Event GetOffsetTabRecordIICompleted As GetOffsetTabRecordIICompletedEventHandler
'''<remarks/>
Public Event SetOffsetTabRecordIICompleted As SetOffsetTabRecordIICompletedEventHandler
'''<remarks/>
Public Event GetUserTabRecordIICompleted As GetUserTabRecordIICompletedEventHandler
'''<remarks/>
Public Event SetUserTabRecordIICompleted As SetUserTabRecordIICompletedEventHandler
'''<remarks/>
Public Event GetMagazineTabRecordIICompleted As GetMagazineTabRecordIICompletedEventHandler
'''<remarks/>
Public Event SetMagazineTabRecordIICompleted As SetMagazineTabRecordIICompletedEventHandler
'''<remarks/>
Public Event GetPocketTabRecordIICompleted As GetPocketTabRecordIICompletedEventHandler
'''<remarks/>
Public Event SetPocketTabRecordIICompleted As SetPocketTabRecordIICompletedEventHandler
'''<remarks/>
Public Event SaveTablesCompleted As SaveTablesCompletedEventHandler
'''<remarks/>
Public Event RestoreSingleTableCompleted As RestoreSingleTableCompletedEventHandler
'''<remarks/>
Public Event SaveSingleTableCompleted As SaveSingleTableCompletedEventHandler
'''<remarks/>
Public Event SaveBackupMemoryCompleted As SaveBackupMemoryCompletedEventHandler
'''<remarks/>
Public Event RestoreBackupMemoryCompleted As RestoreBackupMemoryCompletedEventHandler
'''<remarks/>
Public Event ToolSearchCompleted As ToolSearchCompletedEventHandler
'''<remarks/>
Public Event ToolSearchLifeCompleted As ToolSearchLifeCompletedEventHandler
'''<remarks/>
Public Event ToolSearchDirCompleted As ToolSearchDirCompletedEventHandler
'''<remarks/>
Public Event ToolSearchLifeDirCompleted As ToolSearchLifeDirCompletedEventHandler
'''<remarks/>
Public Event ToolSameFamilyCompleted As ToolSameFamilyCompletedEventHandler
'''<remarks/>
Public Event ToolLoadCompleted As ToolLoadCompletedEventHandler
'''<remarks/>
Public Event ToolUnloadCompleted As ToolUnloadCompletedEventHandler
'''<remarks/>
Public Event PocketSearchCompleted As PocketSearchCompletedEventHandler
'''<remarks/>
Public Event PocketClosestCompleted As PocketClosestCompletedEventHandler
'''<remarks/>
Public Event PocketNearestCompleted As PocketNearestCompletedEventHandler
'''<remarks/>
Public Event ToolLifeCompleted As ToolLifeCompletedEventHandler
'''<remarks/>
Public Event LoadTableFromFileCompleted As LoadTableFromFileCompletedEventHandler
'''<remarks/>
Public Event MagConfigurePocketsCompleted As MagConfigurePocketsCompletedEventHandler
'''<remarks/>
Public Event CycleCompleted As CycleCompletedEventHandler
'''<remarks/>
Public Event SyncroCycleCompleted As SyncroCycleCompletedEventHandler
'''<remarks/>
Public Event ResetCompleted As ResetCompletedEventHandler
'''<remarks/>
Public Event HoldCompleted As HoldCompletedEventHandler
'''<remarks/>
Public Event SetFeedManOverCompleted As SetFeedManOverCompletedEventHandler
'''<remarks/>
Public Event SetFeedRateOverCompleted As SetFeedRateOverCompletedEventHandler
'''<remarks/>
Public Event SetFeedRapidOverCompleted As SetFeedRapidOverCompletedEventHandler
'''<remarks/>
Public Event SetSpeedRateOverCompleted As SetSpeedRateOverCompletedEventHandler
'''<remarks/>
Public Event SetManMovDirectionCompleted As SetManMovDirectionCompletedEventHandler
'''<remarks/>
Public Event GetVarJOGCompleted As GetVarJOGCompletedEventHandler
'''<remarks/>
Public Event SetVarJOGCompleted As SetVarJOGCompletedEventHandler
'''<remarks/>
Public Event SetVarUASCompleted As SetVarUASCompletedEventHandler
'''<remarks/>
Public Event GetVarRCMCompleted As GetVarRCMCompletedEventHandler
'''<remarks/>
Public Event SetVarRCMCompleted As SetVarRCMCompletedEventHandler
'''<remarks/>
Public Event GetVarCYCTIMECompleted As GetVarCYCTIMECompletedEventHandler
'''<remarks/>
Public Event SetVarCYCTIMECompleted As SetVarCYCTIMECompletedEventHandler
'''<remarks/>
Public Event GetProcVarWordCompleted As GetProcVarWordCompletedEventHandler
'''<remarks/>
Public Event SetProcVarWordCompleted As SetProcVarWordCompletedEventHandler
'''<remarks/>
Public Event GetProcVarDoubleCompleted As GetProcVarDoubleCompletedEventHandler
'''<remarks/>
Public Event SetProcVarDoubleCompleted As SetProcVarDoubleCompletedEventHandler
'''<remarks/>
Public Event SetMdiStringCompleted As SetMdiStringCompletedEventHandler
'''<remarks/>
Public Event SetProcessModeCompleted As SetProcessModeCompletedEventHandler
'''<remarks/>
Public Event SelectProcessCompleted As SelectProcessCompletedEventHandler
'''<remarks/>
Public Event GetSelectedProcessCompleted As GetSelectedProcessCompletedEventHandler
'''<remarks/>
Public Event SelectProcAxisCompleted As SelectProcAxisCompletedEventHandler
'''<remarks/>
Public Event SelectPartProgramCompleted As SelectPartProgramCompletedEventHandler
'''<remarks/>
Public Event SelectPartProgramFromDriveCompleted As SelectPartProgramFromDriveCompletedEventHandler
'''<remarks/>
Public Event GetActivePartProgramCompleted As GetActivePartProgramCompletedEventHandler
'''<remarks/>
Public Event GetActivePartProgramFullPathCompleted As GetActivePartProgramFullPathCompletedEventHandler
'''<remarks/>
Public Event GetPartProgramLinesCompleted As GetPartProgramLinesCompletedEventHandler
'''<remarks/>
Public Event GetAxOriginNumCompleted As GetAxOriginNumCompletedEventHandler
'''<remarks/>
Public Event GetAxesPositionCompleted As GetAxesPositionCompletedEventHandler
'''<remarks/>
Public Event GetNcInfo1Completed As GetNcInfo1CompletedEventHandler
'''<remarks/>
Public Event GetNcInfo2Completed As GetNcInfo2CompletedEventHandler
'''<remarks/>
Public Event GetToolNamesCompleted As GetToolNamesCompletedEventHandler
'''<remarks/>
Public Event GetProcessStatusCompleted As GetProcessStatusCompletedEventHandler
'''<remarks/>
Public Event GetBlkNumCompleted As GetBlkNumCompletedEventHandler
'''<remarks/>
Public Event ReadErrMsgCompleted As ReadErrMsgCompletedEventHandler
'''<remarks/>
Public Event ReadPartProgramMsgCompleted As ReadPartProgramMsgCompletedEventHandler
'''<remarks/>
Public Event GetGCodeCompleted As GetGCodeCompletedEventHandler
'''<remarks/>
Public Event GetMCodeCompleted As GetMCodeCompletedEventHandler
'''<remarks/>
Public Event SkipPProgBlockCompleted As SkipPProgBlockCompletedEventHandler
'''<remarks/>
Public Event EseCompleted As EseCompletedEventHandler
'''<remarks/>
Public Event EseExCompleted As EseExCompletedEventHandler
'''<remarks/>
Public Event ExeCompleted As ExeCompletedEventHandler
'''<remarks/>
Public Event AxesRefCompleted As AxesRefCompletedEventHandler
'''<remarks/>
Public Event DncInitCompleted As DncInitCompletedEventHandler
'''<remarks/>
Public Event DncDataCompleted As DncDataCompletedEventHandler
'''<remarks/>
Public Event DncEofCompleted As DncEofCompletedEventHandler
'''<remarks/>
Public Event DncStopCompleted As DncStopCompletedEventHandler
'''<remarks/>
Public Event GetAxesInfo3Completed As GetAxesInfo3CompletedEventHandler
'''<remarks/>
Public Event GetCodeNumberCompleted As GetCodeNumberCompletedEventHandler
'''<remarks/>
Public Event GetOptionsCompleted As GetOptionsCompletedEventHandler
'''<remarks/>
Public Event GetDateTimeCompleted As GetDateTimeCompletedEventHandler
'''<remarks/>
Public Event SetDateTimeCompleted As SetDateTimeCompletedEventHandler
'''<remarks/>
Public Event GetSerialNumberCompleted As GetSerialNumberCompletedEventHandler
'''<remarks/>
Public Event PutFileCompleted As PutFileCompletedEventHandler
'''<remarks/>
Public Event GetFileCompleted As GetFileCompletedEventHandler
'''<remarks/>
Public Event PutBinaryFileCompleted As PutBinaryFileCompletedEventHandler
'''<remarks/>
Public Event GetBinaryFileCompleted As GetBinaryFileCompletedEventHandler
'''<remarks/>
Public Event LogFSSetSecurityLevelCompleted As LogFSSetSecurityLevelCompletedEventHandler
'''<remarks/>
Public Event LogFSGetSecurityLevelCompleted As LogFSGetSecurityLevelCompletedEventHandler
'''<remarks/>
Public Event LogFSLongFileNamesCompleted As LogFSLongFileNamesCompletedEventHandler
'''<remarks/>
Public Event LogFSGetNumDriveCompleted As LogFSGetNumDriveCompletedEventHandler
'''<remarks/>
Public Event LogFSGetDriveListCompleted As LogFSGetDriveListCompletedEventHandler
'''<remarks/>
Public Event LogFSGetHiddenDriveListCompleted As LogFSGetHiddenDriveListCompletedEventHandler
'''<remarks/>
Public Event LogFSGetDrivePathCompleted As LogFSGetDrivePathCompletedEventHandler
'''<remarks/>
Public Event LogFSAddDriveCompleted As LogFSAddDriveCompletedEventHandler
'''<remarks/>
Public Event LogFSRemoveDriveCompleted As LogFSRemoveDriveCompletedEventHandler
'''<remarks/>
Public Event LogFSReloadDriveListCompleted As LogFSReloadDriveListCompletedEventHandler
'''<remarks/>
Public Event LogFSCreateDirCompleted As LogFSCreateDirCompletedEventHandler
'''<remarks/>
Public Event LogFSCreateFileCompleted As LogFSCreateFileCompletedEventHandler
'''<remarks/>
Public Event LogFSGetFileSizeCompleted As LogFSGetFileSizeCompletedEventHandler
'''<remarks/>
Public Event LogFSGetFileAttribCompleted As LogFSGetFileAttribCompletedEventHandler
'''<remarks/>
Public Event LogFSSetFileAttribCompleted As LogFSSetFileAttribCompletedEventHandler
'''<remarks/>
Public Event LogFSChangeFileAttribCompleted As LogFSChangeFileAttribCompletedEventHandler
'''<remarks/>
Public Event LogFSFindFirstCompleted As LogFSFindFirstCompletedEventHandler
'''<remarks/>
Public Event LogFSFindNextCompleted As LogFSFindNextCompletedEventHandler
'''<remarks/>
Public Event LogFSFindCloseCompleted As LogFSFindCloseCompletedEventHandler
'''<remarks/>
Public Event LogFSRemoveFileCompleted As LogFSRemoveFileCompletedEventHandler
'''<remarks/>
Public Event LogFSRemoveDirCompleted As LogFSRemoveDirCompletedEventHandler
'''<remarks/>
Public Event LogFSRenameCompleted As LogFSRenameCompletedEventHandler
'''<remarks/>
Public Event LogFSCopyFileCompleted As LogFSCopyFileCompletedEventHandler
'''<remarks/>
Public Event LogFSGetInfoCompleted As LogFSGetInfoCompletedEventHandler
'''<remarks/>
Public Event LogFSOpenFileCompleted As LogFSOpenFileCompletedEventHandler
'''<remarks/>
Public Event LogFSCloseFileCompleted As LogFSCloseFileCompletedEventHandler
'''<remarks/>
Public Event GetSysTickCompleted As GetSysTickCompletedEventHandler
'''<remarks/>
Public Event GetProcessConfNumCompleted As GetProcessConfNumCompletedEventHandler
'''<remarks/>
Public Event CheckHistoryCompleted As CheckHistoryCompletedEventHandler
'''<remarks/>
Public Event ReadHistoryEmergMsgCompleted As ReadHistoryEmergMsgCompletedEventHandler
'''<remarks/>
Public Event ReadHistoryErrorMsgCompleted As ReadHistoryErrorMsgCompletedEventHandler
'''<remarks/>
Public Event ReadHistoryLogMsgCompleted As ReadHistoryLogMsgCompletedEventHandler
'''<remarks/>
Public Event ReadHistoryAnomalyMsgCompleted As ReadHistoryAnomalyMsgCompletedEventHandler
'''<remarks/>
Public Event ReadCurrentErrorMsgCompleted As ReadCurrentErrorMsgCompletedEventHandler
'''<remarks/>
Public Event ReadCurrentEmergMsgCompleted As ReadCurrentEmergMsgCompletedEventHandler
'''<remarks/>
Public Event ReadCurrentAnomalyMsgCompleted As ReadCurrentAnomalyMsgCompletedEventHandler
'''<remarks/>
Public Event GetPTechSizesCompleted As GetPTechSizesCompletedEventHandler
'''<remarks/>
Public Event LoadPTechCompleted As LoadPTechCompletedEventHandler
'''<remarks/>
Public Event GetMarkerInfoCompleted As GetMarkerInfoCompletedEventHandler
'''<remarks/>
Public Event ManagePartProgramCompleted As ManagePartProgramCompletedEventHandler
'''<remarks/>
Public Event LogFSWriteRecordCompleted As LogFSWriteRecordCompletedEventHandler
'''<remarks/>
Public Event LogFSReadRecordCompleted As LogFSReadRecordCompletedEventHandler
'''<remarks/>
Public Event ReadRemapDefinitionsCompleted As ReadRemapDefinitionsCompletedEventHandler
'''<remarks/>
Public Event WriteRemapDefinitionsCompleted As WriteRemapDefinitionsCompletedEventHandler
'''<remarks/>
Public Event GetServoParCompleted As GetServoParCompletedEventHandler
'''<remarks/>
Public Event SetServoParCompleted As SetServoParCompletedEventHandler
'''<remarks/>
Public Event GetCNCRegKeyCompleted As GetCNCRegKeyCompletedEventHandler
'''<remarks/>
Public Event GetSecurityDataCompleted As GetSecurityDataCompletedEventHandler
'''<remarks/>
Public Event SetSecurityDataCompleted As SetSecurityDataCompletedEventHandler
'''<remarks/>
Public Event SetIpAddressCompleted As SetIpAddressCompletedEventHandler
'''<remarks/>
Public Event GetProcInInputCompleted As GetProcInInputCompletedEventHandler
'''<remarks/>
Public Event SndProcInpDataCompleted As SndProcInpDataCompletedEventHandler
'''<remarks/>
Public Event GetPartProgramLinesExCompleted As GetPartProgramLinesExCompletedEventHandler
'''<remarks/>
Public Event SetMdiStringExCompleted As SetMdiStringExCompletedEventHandler
'''<remarks/>
Public Event GetExpireDataCompleted As GetExpireDataCompletedEventHandler
'''<remarks/>
Public Event GetRemainingTimeCompleted As GetRemainingTimeCompletedEventHandler
'''<remarks/>
Public Event GenerateUserKeyCompleted As GenerateUserKeyCompletedEventHandler
'''<remarks/>
Public Event WriteActivationKeyCompleted As WriteActivationKeyCompletedEventHandler
'''<remarks/>
Public Event GetAvailableCustomEventsCompleted As GetAvailableCustomEventsCompletedEventHandler
'''<remarks/>
Public Event MonOpenChannelCompleted As MonOpenChannelCompletedEventHandler
'''<remarks/>
Public Event MonCloseChannelCompleted As MonCloseChannelCompletedEventHandler
'''<remarks/>
Public Event MonAddVariableCompleted As MonAddVariableCompletedEventHandler
'''<remarks/>
Public Event MonDeleteVariableCompleted As MonDeleteVariableCompletedEventHandler
'''<remarks/>
Public Event MonStartSamplingCompleted As MonStartSamplingCompletedEventHandler
'''<remarks/>
Public Event MonStopSamplingCompleted As MonStopSamplingCompletedEventHandler
'''<remarks/>
Public Event MonGetVariableCompleted As MonGetVariableCompletedEventHandler
'''<remarks/>
Public Event MonGetVariableSCompleted As MonGetVariableSCompletedEventHandler
'''<remarks/>
Public Event MonGetDryRunCompleted As MonGetDryRunCompletedEventHandler
'''<remarks/>
Public Event MonGetMovCompleted As MonGetMovCompletedEventHandler
'''<remarks/>
Public Event GetDriveBasicInfoCompleted As GetDriveBasicInfoCompletedEventHandler
'''<remarks/>
Public Event ReadStatisticsCompleted As ReadStatisticsCompletedEventHandler
'''<remarks/>
Public Event ReadStatisticsBaseFrequencyCompleted As ReadStatisticsBaseFrequencyCompletedEventHandler
'''<remarks/>
Public Event GetActiveAmpCompleted As GetActiveAmpCompletedEventHandler
'''<remarks/>
Public Event SetActiveAmpCompleted As SetActiveAmpCompletedEventHandler
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="BootPhaseEnquiry-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function BootPhaseEnquiry(ByRef Phase As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("BootPhaseEnquiry", New Object(-1) {})
Phase = CType(results(1),UShort)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub BootPhaseEnquiryAsync()
Me.BootPhaseEnquiryAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub BootPhaseEnquiryAsync(ByVal userState As Object)
If (Me.BootPhaseEnquiryOperationCompleted Is Nothing) Then
Me.BootPhaseEnquiryOperationCompleted = AddressOf Me.OnBootPhaseEnquiryOperationCompleted
End If
Me.InvokeAsync("BootPhaseEnquiry", New Object(-1) {}, Me.BootPhaseEnquiryOperationCompleted, userState)
End Sub
Private Sub OnBootPhaseEnquiryOperationCompleted(ByVal arg As Object)
If (Not (Me.BootPhaseEnquiryCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent BootPhaseEnquiryCompleted(Me, New BootPhaseEnquiryCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="BootReboot-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function BootReboot(ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("BootReboot", New Object(-1) {})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub BootRebootAsync()
Me.BootRebootAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub BootRebootAsync(ByVal userState As Object)
If (Me.BootRebootOperationCompleted Is Nothing) Then
Me.BootRebootOperationCompleted = AddressOf Me.OnBootRebootOperationCompleted
End If
Me.InvokeAsync("BootReboot", New Object(-1) {}, Me.BootRebootOperationCompleted, userState)
End Sub
Private Sub OnBootRebootOperationCompleted(ByVal arg As Object)
If (Not (Me.BootRebootCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent BootRebootCompleted(Me, New BootRebootCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="BootShutDown-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function BootShutDown(ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("BootShutDown", New Object(-1) {})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub BootShutDownAsync()
Me.BootShutDownAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub BootShutDownAsync(ByVal userState As Object)
If (Me.BootShutDownOperationCompleted Is Nothing) Then
Me.BootShutDownOperationCompleted = AddressOf Me.OnBootShutDownOperationCompleted
End If
Me.InvokeAsync("BootShutDown", New Object(-1) {}, Me.BootShutDownOperationCompleted, userState)
End Sub
Private Sub OnBootShutDownOperationCompleted(ByVal arg As Object)
If (Not (Me.BootShutDownCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent BootShutDownCompleted(Me, New BootShutDownCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="BootMode-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function BootMode(ByVal Mode As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("BootMode", New Object() {Mode})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub BootModeAsync(ByVal Mode As UShort)
Me.BootModeAsync(Mode, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub BootModeAsync(ByVal Mode As UShort, ByVal userState As Object)
If (Me.BootModeOperationCompleted Is Nothing) Then
Me.BootModeOperationCompleted = AddressOf Me.OnBootModeOperationCompleted
End If
Me.InvokeAsync("BootMode", New Object() {Mode}, Me.BootModeOperationCompleted, userState)
End Sub
Private Sub OnBootModeOperationCompleted(ByVal arg As Object)
If (Not (Me.BootModeCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent BootModeCompleted(Me, New BootModeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetHWKey-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetHWKey(<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef HwKey() As Byte, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef SecurLevel() As Byte, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef Release As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetHWKey", New Object(-1) {})
HwKey = CType(results(1),Byte())
SecurLevel = CType(results(2),Byte())
Release = CType(results(3),String)
ErrClass = CType(results(4),UInteger)
ErrNum = CType(results(5),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetHWKeyAsync()
Me.GetHWKeyAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetHWKeyAsync(ByVal userState As Object)
If (Me.GetHWKeyOperationCompleted Is Nothing) Then
Me.GetHWKeyOperationCompleted = AddressOf Me.OnGetHWKeyOperationCompleted
End If
Me.InvokeAsync("GetHWKey", New Object(-1) {}, Me.GetHWKeyOperationCompleted, userState)
End Sub
Private Sub OnGetHWKeyOperationCompleted(ByVal arg As Object)
If (Not (Me.GetHWKeyCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetHWKeyCompleted(Me, New GetHWKeyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadVarWord-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadVarWord(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef Value() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadVarWord", New Object() {Code, Process, Index, NumVar})
Value = CType(results(1),UShort())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadVarWordAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort)
Me.ReadVarWordAsync(Code, Process, Index, NumVar, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadVarWordAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal userState As Object)
If (Me.ReadVarWordOperationCompleted Is Nothing) Then
Me.ReadVarWordOperationCompleted = AddressOf Me.OnReadVarWordOperationCompleted
End If
Me.InvokeAsync("ReadVarWord", New Object() {Code, Process, Index, NumVar}, Me.ReadVarWordOperationCompleted, userState)
End Sub
Private Sub OnReadVarWordOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadVarWordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadVarWordCompleted(Me, New ReadVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadVarDouble-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadVarDouble(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef Value() As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadVarDouble", New Object() {Code, Process, Index, NumVar})
Value = CType(results(1),Double())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadVarDoubleAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort)
Me.ReadVarDoubleAsync(Code, Process, Index, NumVar, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadVarDoubleAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal userState As Object)
If (Me.ReadVarDoubleOperationCompleted Is Nothing) Then
Me.ReadVarDoubleOperationCompleted = AddressOf Me.OnReadVarDoubleOperationCompleted
End If
Me.InvokeAsync("ReadVarDouble", New Object() {Code, Process, Index, NumVar}, Me.ReadVarDoubleOperationCompleted, userState)
End Sub
Private Sub OnReadVarDoubleOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadVarDoubleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadVarDoubleCompleted(Me, New ReadVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="WriteVarWord-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function WriteVarWord(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByVal Value() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("WriteVarWord", New Object() {Code, Process, Index, NumVar, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub WriteVarWordAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As UShort)
Me.WriteVarWordAsync(Code, Process, Index, NumVar, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub WriteVarWordAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As UShort, ByVal userState As Object)
If (Me.WriteVarWordOperationCompleted Is Nothing) Then
Me.WriteVarWordOperationCompleted = AddressOf Me.OnWriteVarWordOperationCompleted
End If
Me.InvokeAsync("WriteVarWord", New Object() {Code, Process, Index, NumVar, Value}, Me.WriteVarWordOperationCompleted, userState)
End Sub
Private Sub OnWriteVarWordOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteVarWordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteVarWordCompleted(Me, New WriteVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="WriteVarWordBit-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function WriteVarWordBit(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal BitIndex As UShort, ByVal BitValue As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("WriteVarWordBit", New Object() {Code, Process, Index, BitIndex, BitValue})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub WriteVarWordBitAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal BitIndex As UShort, ByVal BitValue As UShort)
Me.WriteVarWordBitAsync(Code, Process, Index, BitIndex, BitValue, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub WriteVarWordBitAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal BitIndex As UShort, ByVal BitValue As UShort, ByVal userState As Object)
If (Me.WriteVarWordBitOperationCompleted Is Nothing) Then
Me.WriteVarWordBitOperationCompleted = AddressOf Me.OnWriteVarWordBitOperationCompleted
End If
Me.InvokeAsync("WriteVarWordBit", New Object() {Code, Process, Index, BitIndex, BitValue}, Me.WriteVarWordBitOperationCompleted, userState)
End Sub
Private Sub OnWriteVarWordBitOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteVarWordBitCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteVarWordBitCompleted(Me, New WriteVarWordBitCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="WriteVarDouble-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function WriteVarDouble(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByVal Value() As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("WriteVarDouble", New Object() {Code, Process, Index, NumVar, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub WriteVarDoubleAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As Double)
Me.WriteVarDoubleAsync(Code, Process, Index, NumVar, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub WriteVarDoubleAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As Double, ByVal userState As Object)
If (Me.WriteVarDoubleOperationCompleted Is Nothing) Then
Me.WriteVarDoubleOperationCompleted = AddressOf Me.OnWriteVarDoubleOperationCompleted
End If
Me.InvokeAsync("WriteVarDouble", New Object() {Code, Process, Index, NumVar, Value}, Me.WriteVarDoubleOperationCompleted, userState)
End Sub
Private Sub OnWriteVarDoubleOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteVarDoubleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteVarDoubleCompleted(Me, New WriteVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadVarText-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadVarText(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Size As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef Text As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadVarText", New Object() {Code, Process, Index, Size})
Text = CType(results(1),String)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadVarTextAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Size As UShort)
Me.ReadVarTextAsync(Code, Process, Index, Size, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadVarTextAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Size As UShort, ByVal userState As Object)
If (Me.ReadVarTextOperationCompleted Is Nothing) Then
Me.ReadVarTextOperationCompleted = AddressOf Me.OnReadVarTextOperationCompleted
End If
Me.InvokeAsync("ReadVarText", New Object() {Code, Process, Index, Size}, Me.ReadVarTextOperationCompleted, userState)
End Sub
Private Sub OnReadVarTextOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadVarTextCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadVarTextCompleted(Me, New ReadVarTextCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="WriteVarText-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function WriteVarText(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Len As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal Text As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("WriteVarText", New Object() {Code, Process, Index, Len, Text})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub WriteVarTextAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Len As UShort, ByVal Text As String)
Me.WriteVarTextAsync(Code, Process, Index, Len, Text, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub WriteVarTextAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Len As UShort, ByVal Text As String, ByVal userState As Object)
If (Me.WriteVarTextOperationCompleted Is Nothing) Then
Me.WriteVarTextOperationCompleted = AddressOf Me.OnWriteVarTextOperationCompleted
End If
Me.InvokeAsync("WriteVarText", New Object() {Code, Process, Index, Len, Text}, Me.WriteVarTextOperationCompleted, userState)
End Sub
Private Sub OnWriteVarTextOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteVarTextCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteVarTextCompleted(Me, New WriteVarTextCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadNamedVarBool-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadNamedVarBool(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef Value() As Integer, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadNamedVarBool", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3})
Value = CType(results(1),Integer())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadNamedVarBoolAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short)
Me.ReadNamedVarBoolAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadNamedVarBoolAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object)
If (Me.ReadNamedVarBoolOperationCompleted Is Nothing) Then
Me.ReadNamedVarBoolOperationCompleted = AddressOf Me.OnReadNamedVarBoolOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarBool", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarBoolOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarBoolOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarBoolCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarBoolCompleted(Me, New ReadNamedVarBoolCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadNamedVarByte-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadNamedVarByte(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef Value() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadNamedVarByte", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3})
Value = CType(results(1),Byte())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadNamedVarByteAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short)
Me.ReadNamedVarByteAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadNamedVarByteAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object)
If (Me.ReadNamedVarByteOperationCompleted Is Nothing) Then
Me.ReadNamedVarByteOperationCompleted = AddressOf Me.OnReadNamedVarByteOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarByte", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarByteOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarByteOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarByteCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarByteCompleted(Me, New ReadNamedVarByteCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadNamedVarShort-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadNamedVarShort(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef Value() As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadNamedVarShort", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3})
Value = CType(results(1),Short())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadNamedVarShortAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short)
Me.ReadNamedVarShortAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadNamedVarShortAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object)
If (Me.ReadNamedVarShortOperationCompleted Is Nothing) Then
Me.ReadNamedVarShortOperationCompleted = AddressOf Me.OnReadNamedVarShortOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarShort", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarShortOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarShortOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarShortCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarShortCompleted(Me, New ReadNamedVarShortCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadNamedVarWord-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadNamedVarWord(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef Value() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadNamedVarWord", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3})
Value = CType(results(1),UShort())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadNamedVarWordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short)
Me.ReadNamedVarWordAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadNamedVarWordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object)
If (Me.ReadNamedVarWordOperationCompleted Is Nothing) Then
Me.ReadNamedVarWordOperationCompleted = AddressOf Me.OnReadNamedVarWordOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarWord", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarWordOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarWordOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarWordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarWordCompleted(Me, New ReadNamedVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadNamedVarLong-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadNamedVarLong(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef Value() As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadNamedVarLong", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3})
Value = CType(results(1),Long())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadNamedVarLongAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short)
Me.ReadNamedVarLongAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadNamedVarLongAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object)
If (Me.ReadNamedVarLongOperationCompleted Is Nothing) Then
Me.ReadNamedVarLongOperationCompleted = AddressOf Me.OnReadNamedVarLongOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarLong", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarLongOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarLongOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarLongCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarLongCompleted(Me, New ReadNamedVarLongCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadNamedVarDword-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadNamedVarDword(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef Value() As ULong, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadNamedVarDword", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3})
Value = CType(results(1),ULong())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadNamedVarDwordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short)
Me.ReadNamedVarDwordAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadNamedVarDwordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object)
If (Me.ReadNamedVarDwordOperationCompleted Is Nothing) Then
Me.ReadNamedVarDwordOperationCompleted = AddressOf Me.OnReadNamedVarDwordOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarDword", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarDwordOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarDwordOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarDwordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarDwordCompleted(Me, New ReadNamedVarDwordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadNamedVarDouble-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadNamedVarDouble(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef Value() As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadNamedVarDouble", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3})
Value = CType(results(1),Double())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadNamedVarDoubleAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short)
Me.ReadNamedVarDoubleAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadNamedVarDoubleAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object)
If (Me.ReadNamedVarDoubleOperationCompleted Is Nothing) Then
Me.ReadNamedVarDoubleOperationCompleted = AddressOf Me.OnReadNamedVarDoubleOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarDouble", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarDoubleOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarDoubleOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarDoubleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarDoubleCompleted(Me, New ReadNamedVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadNamedVarString-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadNamedVarString(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef Value As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadNamedVarString", New Object() {Process, pVarName, Index1, Index2, Index3, Length})
Value = CType(results(1),String)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadNamedVarStringAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort)
Me.ReadNamedVarStringAsync(Process, pVarName, Index1, Index2, Index3, Length, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadNamedVarStringAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort, ByVal userState As Object)
If (Me.ReadNamedVarStringOperationCompleted Is Nothing) Then
Me.ReadNamedVarStringOperationCompleted = AddressOf Me.OnReadNamedVarStringOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarString", New Object() {Process, pVarName, Index1, Index2, Index3, Length}, Me.ReadNamedVarStringOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarStringOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarStringCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarStringCompleted(Me, New ReadNamedVarStringCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="WriteNamedVarBool-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function WriteNamedVarBool(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByVal Value() As Integer, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("WriteNamedVarBool", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub WriteNamedVarBoolAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Integer)
Me.WriteNamedVarBoolAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub WriteNamedVarBoolAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Integer, ByVal userState As Object)
If (Me.WriteNamedVarBoolOperationCompleted Is Nothing) Then
Me.WriteNamedVarBoolOperationCompleted = AddressOf Me.OnWriteNamedVarBoolOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarBool", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarBoolOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarBoolOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarBoolCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarBoolCompleted(Me, New WriteNamedVarBoolCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="WriteNamedVarByte-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function WriteNamedVarByte(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByVal Value() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("WriteNamedVarByte", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub WriteNamedVarByteAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Byte)
Me.WriteNamedVarByteAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub WriteNamedVarByteAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Byte, ByVal userState As Object)
If (Me.WriteNamedVarByteOperationCompleted Is Nothing) Then
Me.WriteNamedVarByteOperationCompleted = AddressOf Me.OnWriteNamedVarByteOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarByte", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarByteOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarByteOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarByteCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarByteCompleted(Me, New WriteNamedVarByteCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="WriteNamedVarShort-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function WriteNamedVarShort(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByVal Value() As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("WriteNamedVarShort", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub WriteNamedVarShortAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Short)
Me.WriteNamedVarShortAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub WriteNamedVarShortAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Short, ByVal userState As Object)
If (Me.WriteNamedVarShortOperationCompleted Is Nothing) Then
Me.WriteNamedVarShortOperationCompleted = AddressOf Me.OnWriteNamedVarShortOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarShort", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarShortOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarShortOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarShortCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarShortCompleted(Me, New WriteNamedVarShortCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="WriteNamedVarWord-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function WriteNamedVarWord(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByVal Value() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("WriteNamedVarWord", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub WriteNamedVarWordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As UShort)
Me.WriteNamedVarWordAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub WriteNamedVarWordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As UShort, ByVal userState As Object)
If (Me.WriteNamedVarWordOperationCompleted Is Nothing) Then
Me.WriteNamedVarWordOperationCompleted = AddressOf Me.OnWriteNamedVarWordOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarWord", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarWordOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarWordOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarWordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarWordCompleted(Me, New WriteNamedVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="WriteNamedVarLong-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function WriteNamedVarLong(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByVal Value() As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("WriteNamedVarLong", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub WriteNamedVarLongAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Long)
Me.WriteNamedVarLongAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub WriteNamedVarLongAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Long, ByVal userState As Object)
If (Me.WriteNamedVarLongOperationCompleted Is Nothing) Then
Me.WriteNamedVarLongOperationCompleted = AddressOf Me.OnWriteNamedVarLongOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarLong", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarLongOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarLongOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarLongCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarLongCompleted(Me, New WriteNamedVarLongCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="WriteNamedVarDword-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function WriteNamedVarDword(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByVal Value() As ULong, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("WriteNamedVarDword", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub WriteNamedVarDwordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As ULong)
Me.WriteNamedVarDwordAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub WriteNamedVarDwordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As ULong, ByVal userState As Object)
If (Me.WriteNamedVarDwordOperationCompleted Is Nothing) Then
Me.WriteNamedVarDwordOperationCompleted = AddressOf Me.OnWriteNamedVarDwordOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarDword", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarDwordOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarDwordOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarDwordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarDwordCompleted(Me, New WriteNamedVarDwordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="WriteNamedVarDouble-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function WriteNamedVarDouble(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByVal Value() As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("WriteNamedVarDouble", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub WriteNamedVarDoubleAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Double)
Me.WriteNamedVarDoubleAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub WriteNamedVarDoubleAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Double, ByVal userState As Object)
If (Me.WriteNamedVarDoubleOperationCompleted Is Nothing) Then
Me.WriteNamedVarDoubleOperationCompleted = AddressOf Me.OnWriteNamedVarDoubleOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarDouble", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarDoubleOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarDoubleOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarDoubleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarDoubleCompleted(Me, New WriteNamedVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="WriteNamedVarString-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function WriteNamedVarString(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal Value As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("WriteNamedVarString", New Object() {Process, pVarName, Index1, Index2, Index3, Length, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub WriteNamedVarStringAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort, ByVal Value As String)
Me.WriteNamedVarStringAsync(Process, pVarName, Index1, Index2, Index3, Length, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub WriteNamedVarStringAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort, ByVal Value As String, ByVal userState As Object)
If (Me.WriteNamedVarStringOperationCompleted Is Nothing) Then
Me.WriteNamedVarStringOperationCompleted = AddressOf Me.OnWriteNamedVarStringOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarString", New Object() {Process, pVarName, Index1, Index2, Index3, Length, Value}, Me.WriteNamedVarStringOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarStringOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarStringCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarStringCompleted(Me, New WriteNamedVarStringCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadWarningMsg-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadWarningMsg(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef WarningMsg As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadWarningMsg", New Object(-1) {})
WarningMsg = CType(results(1),String)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadWarningMsgAsync()
Me.ReadWarningMsgAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadWarningMsgAsync(ByVal userState As Object)
If (Me.ReadWarningMsgOperationCompleted Is Nothing) Then
Me.ReadWarningMsgOperationCompleted = AddressOf Me.OnReadWarningMsgOperationCompleted
End If
Me.InvokeAsync("ReadWarningMsg", New Object(-1) {}, Me.ReadWarningMsgOperationCompleted, userState)
End Sub
Private Sub OnReadWarningMsgOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadWarningMsgCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadWarningMsgCompleted(Me, New ReadWarningMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ResetSingleTableII-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ResetSingleTableII(ByVal TableNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ResetSingleTableII", New Object() {TableNum})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ResetSingleTableIIAsync(ByVal TableNum As UShort)
Me.ResetSingleTableIIAsync(TableNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ResetSingleTableIIAsync(ByVal TableNum As UShort, ByVal userState As Object)
If (Me.ResetSingleTableIIOperationCompleted Is Nothing) Then
Me.ResetSingleTableIIOperationCompleted = AddressOf Me.OnResetSingleTableIIOperationCompleted
End If
Me.InvokeAsync("ResetSingleTableII", New Object() {TableNum}, Me.ResetSingleTableIIOperationCompleted, userState)
End Sub
Private Sub OnResetSingleTableIIOperationCompleted(ByVal arg As Object)
If (Not (Me.ResetSingleTableIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ResetSingleTableIICompleted(Me, New ResetSingleTableIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LockTableII-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LockTableII(ByVal TableNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LockTableII", New Object() {TableNum})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LockTableIIAsync(ByVal TableNum As UShort)
Me.LockTableIIAsync(TableNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LockTableIIAsync(ByVal TableNum As UShort, ByVal userState As Object)
If (Me.LockTableIIOperationCompleted Is Nothing) Then
Me.LockTableIIOperationCompleted = AddressOf Me.OnLockTableIIOperationCompleted
End If
Me.InvokeAsync("LockTableII", New Object() {TableNum}, Me.LockTableIIOperationCompleted, userState)
End Sub
Private Sub OnLockTableIIOperationCompleted(ByVal arg As Object)
If (Not (Me.LockTableIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LockTableIICompleted(Me, New LockTableIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="UnLockTableII-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function UnLockTableII(ByVal TableNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("UnLockTableII", New Object() {TableNum})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub UnLockTableIIAsync(ByVal TableNum As UShort)
Me.UnLockTableIIAsync(TableNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub UnLockTableIIAsync(ByVal TableNum As UShort, ByVal userState As Object)
If (Me.UnLockTableIIOperationCompleted Is Nothing) Then
Me.UnLockTableIIOperationCompleted = AddressOf Me.OnUnLockTableIIOperationCompleted
End If
Me.InvokeAsync("UnLockTableII", New Object() {TableNum}, Me.UnLockTableIIOperationCompleted, userState)
End Sub
Private Sub OnUnLockTableIIOperationCompleted(ByVal arg As Object)
If (Not (Me.UnLockTableIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent UnLockTableIICompleted(Me, New UnLockTableIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetOriginTabRecordII-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetOriginTabRecordII(ByVal RecordNum As UInteger, ByRef RecordBuff As ORIGINTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetOriginTabRecordII", New Object() {RecordNum})
RecordBuff = CType(results(1),ORIGINTABLEII)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetOriginTabRecordIIAsync(ByVal RecordNum As UInteger)
Me.GetOriginTabRecordIIAsync(RecordNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetOriginTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal userState As Object)
If (Me.GetOriginTabRecordIIOperationCompleted Is Nothing) Then
Me.GetOriginTabRecordIIOperationCompleted = AddressOf Me.OnGetOriginTabRecordIIOperationCompleted
End If
Me.InvokeAsync("GetOriginTabRecordII", New Object() {RecordNum}, Me.GetOriginTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnGetOriginTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.GetOriginTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetOriginTabRecordIICompleted(Me, New GetOriginTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetOriginTabRecordII-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetOriginTabRecordII(ByVal RecordNum As UInteger, ByVal RecordBuff As ORIGINTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetOriginTabRecordII", New Object() {RecordNum, RecordBuff})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetOriginTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As ORIGINTABLEII)
Me.SetOriginTabRecordIIAsync(RecordNum, RecordBuff, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetOriginTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As ORIGINTABLEII, ByVal userState As Object)
If (Me.SetOriginTabRecordIIOperationCompleted Is Nothing) Then
Me.SetOriginTabRecordIIOperationCompleted = AddressOf Me.OnSetOriginTabRecordIIOperationCompleted
End If
Me.InvokeAsync("SetOriginTabRecordII", New Object() {RecordNum, RecordBuff}, Me.SetOriginTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnSetOriginTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.SetOriginTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetOriginTabRecordIICompleted(Me, New SetOriginTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetToolTabRecordII-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetToolTabRecordII(ByVal RecordNum As UInteger, ByRef RecordBuff As TOOLTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetToolTabRecordII", New Object() {RecordNum})
RecordBuff = CType(results(1),TOOLTABLEII)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetToolTabRecordIIAsync(ByVal RecordNum As UInteger)
Me.GetToolTabRecordIIAsync(RecordNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetToolTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal userState As Object)
If (Me.GetToolTabRecordIIOperationCompleted Is Nothing) Then
Me.GetToolTabRecordIIOperationCompleted = AddressOf Me.OnGetToolTabRecordIIOperationCompleted
End If
Me.InvokeAsync("GetToolTabRecordII", New Object() {RecordNum}, Me.GetToolTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnGetToolTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.GetToolTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetToolTabRecordIICompleted(Me, New GetToolTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetToolTabRecordII-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetToolTabRecordII(ByVal RecordNum As UInteger, ByVal RecordBuff As TOOLTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetToolTabRecordII", New Object() {RecordNum, RecordBuff})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetToolTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As TOOLTABLEII)
Me.SetToolTabRecordIIAsync(RecordNum, RecordBuff, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetToolTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As TOOLTABLEII, ByVal userState As Object)
If (Me.SetToolTabRecordIIOperationCompleted Is Nothing) Then
Me.SetToolTabRecordIIOperationCompleted = AddressOf Me.OnSetToolTabRecordIIOperationCompleted
End If
Me.InvokeAsync("SetToolTabRecordII", New Object() {RecordNum, RecordBuff}, Me.SetToolTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnSetToolTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.SetToolTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetToolTabRecordIICompleted(Me, New SetToolTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetOffsetTabRecordII-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetOffsetTabRecordII(ByVal RecordNum As UInteger, ByRef RecordBuff As OFFSETTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetOffsetTabRecordII", New Object() {RecordNum})
RecordBuff = CType(results(1),OFFSETTABLEII)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetOffsetTabRecordIIAsync(ByVal RecordNum As UInteger)
Me.GetOffsetTabRecordIIAsync(RecordNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetOffsetTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal userState As Object)
If (Me.GetOffsetTabRecordIIOperationCompleted Is Nothing) Then
Me.GetOffsetTabRecordIIOperationCompleted = AddressOf Me.OnGetOffsetTabRecordIIOperationCompleted
End If
Me.InvokeAsync("GetOffsetTabRecordII", New Object() {RecordNum}, Me.GetOffsetTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnGetOffsetTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.GetOffsetTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetOffsetTabRecordIICompleted(Me, New GetOffsetTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetOffsetTabRecordII-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetOffsetTabRecordII(ByVal RecordNum As UInteger, ByVal RecordBuff As OFFSETTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetOffsetTabRecordII", New Object() {RecordNum, RecordBuff})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetOffsetTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As OFFSETTABLEII)
Me.SetOffsetTabRecordIIAsync(RecordNum, RecordBuff, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetOffsetTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As OFFSETTABLEII, ByVal userState As Object)
If (Me.SetOffsetTabRecordIIOperationCompleted Is Nothing) Then
Me.SetOffsetTabRecordIIOperationCompleted = AddressOf Me.OnSetOffsetTabRecordIIOperationCompleted
End If
Me.InvokeAsync("SetOffsetTabRecordII", New Object() {RecordNum, RecordBuff}, Me.SetOffsetTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnSetOffsetTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.SetOffsetTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetOffsetTabRecordIICompleted(Me, New SetOffsetTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetUserTabRecordII-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetUserTabRecordII(ByVal RecordNum As UInteger, ByRef RecordBuff As USERTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetUserTabRecordII", New Object() {RecordNum})
RecordBuff = CType(results(1),USERTABLEII)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetUserTabRecordIIAsync(ByVal RecordNum As UInteger)
Me.GetUserTabRecordIIAsync(RecordNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetUserTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal userState As Object)
If (Me.GetUserTabRecordIIOperationCompleted Is Nothing) Then
Me.GetUserTabRecordIIOperationCompleted = AddressOf Me.OnGetUserTabRecordIIOperationCompleted
End If
Me.InvokeAsync("GetUserTabRecordII", New Object() {RecordNum}, Me.GetUserTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnGetUserTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.GetUserTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetUserTabRecordIICompleted(Me, New GetUserTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetUserTabRecordII-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetUserTabRecordII(ByVal RecordNum As UInteger, ByVal RecordBuff As USERTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetUserTabRecordII", New Object() {RecordNum, RecordBuff})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetUserTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As USERTABLEII)
Me.SetUserTabRecordIIAsync(RecordNum, RecordBuff, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetUserTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As USERTABLEII, ByVal userState As Object)
If (Me.SetUserTabRecordIIOperationCompleted Is Nothing) Then
Me.SetUserTabRecordIIOperationCompleted = AddressOf Me.OnSetUserTabRecordIIOperationCompleted
End If
Me.InvokeAsync("SetUserTabRecordII", New Object() {RecordNum, RecordBuff}, Me.SetUserTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnSetUserTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.SetUserTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetUserTabRecordIICompleted(Me, New SetUserTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetMagazineTabRecordII-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetMagazineTabRecordII(ByVal RecordNum As UInteger, ByRef RecordBuff As MAGAZINETABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetMagazineTabRecordII", New Object() {RecordNum})
RecordBuff = CType(results(1),MAGAZINETABLEII)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetMagazineTabRecordIIAsync(ByVal RecordNum As UInteger)
Me.GetMagazineTabRecordIIAsync(RecordNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetMagazineTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal userState As Object)
If (Me.GetMagazineTabRecordIIOperationCompleted Is Nothing) Then
Me.GetMagazineTabRecordIIOperationCompleted = AddressOf Me.OnGetMagazineTabRecordIIOperationCompleted
End If
Me.InvokeAsync("GetMagazineTabRecordII", New Object() {RecordNum}, Me.GetMagazineTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnGetMagazineTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.GetMagazineTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetMagazineTabRecordIICompleted(Me, New GetMagazineTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetMagazineTabRecordII-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetMagazineTabRecordII(ByVal RecordNum As UInteger, ByVal RecordBuff As MAGAZINETABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetMagazineTabRecordII", New Object() {RecordNum, RecordBuff})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetMagazineTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As MAGAZINETABLEII)
Me.SetMagazineTabRecordIIAsync(RecordNum, RecordBuff, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetMagazineTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As MAGAZINETABLEII, ByVal userState As Object)
If (Me.SetMagazineTabRecordIIOperationCompleted Is Nothing) Then
Me.SetMagazineTabRecordIIOperationCompleted = AddressOf Me.OnSetMagazineTabRecordIIOperationCompleted
End If
Me.InvokeAsync("SetMagazineTabRecordII", New Object() {RecordNum, RecordBuff}, Me.SetMagazineTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnSetMagazineTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.SetMagazineTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetMagazineTabRecordIICompleted(Me, New SetMagazineTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetPocketTabRecordII-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetPocketTabRecordII(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger, ByRef RecordBuff As POCKETTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetPocketTabRecordII", New Object() {MagazineNum, RecordNum})
RecordBuff = CType(results(1),POCKETTABLEII)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetPocketTabRecordIIAsync(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger)
Me.GetPocketTabRecordIIAsync(MagazineNum, RecordNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetPocketTabRecordIIAsync(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger, ByVal userState As Object)
If (Me.GetPocketTabRecordIIOperationCompleted Is Nothing) Then
Me.GetPocketTabRecordIIOperationCompleted = AddressOf Me.OnGetPocketTabRecordIIOperationCompleted
End If
Me.InvokeAsync("GetPocketTabRecordII", New Object() {MagazineNum, RecordNum}, Me.GetPocketTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnGetPocketTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.GetPocketTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetPocketTabRecordIICompleted(Me, New GetPocketTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetPocketTabRecordII-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetPocketTabRecordII(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger, ByVal RecordBuff As POCKETTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetPocketTabRecordII", New Object() {MagazineNum, RecordNum, RecordBuff})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetPocketTabRecordIIAsync(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger, ByVal RecordBuff As POCKETTABLEII)
Me.SetPocketTabRecordIIAsync(MagazineNum, RecordNum, RecordBuff, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetPocketTabRecordIIAsync(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger, ByVal RecordBuff As POCKETTABLEII, ByVal userState As Object)
If (Me.SetPocketTabRecordIIOperationCompleted Is Nothing) Then
Me.SetPocketTabRecordIIOperationCompleted = AddressOf Me.OnSetPocketTabRecordIIOperationCompleted
End If
Me.InvokeAsync("SetPocketTabRecordII", New Object() {MagazineNum, RecordNum, RecordBuff}, Me.SetPocketTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnSetPocketTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.SetPocketTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetPocketTabRecordIICompleted(Me, New SetPocketTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SaveTables-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SaveTables(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal LocalDir As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SaveTables", New Object() {LocalDir})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SaveTablesAsync(ByVal LocalDir As String)
Me.SaveTablesAsync(LocalDir, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SaveTablesAsync(ByVal LocalDir As String, ByVal userState As Object)
If (Me.SaveTablesOperationCompleted Is Nothing) Then
Me.SaveTablesOperationCompleted = AddressOf Me.OnSaveTablesOperationCompleted
End If
Me.InvokeAsync("SaveTables", New Object() {LocalDir}, Me.SaveTablesOperationCompleted, userState)
End Sub
Private Sub OnSaveTablesOperationCompleted(ByVal arg As Object)
If (Not (Me.SaveTablesCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SaveTablesCompleted(Me, New SaveTablesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="RestoreSingleTable-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function RestoreSingleTable(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal LocalDir As String, ByVal TableType As TABLETYPEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("RestoreSingleTable", New Object() {LocalDir, TableType})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub RestoreSingleTableAsync(ByVal LocalDir As String, ByVal TableType As TABLETYPEII)
Me.RestoreSingleTableAsync(LocalDir, TableType, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub RestoreSingleTableAsync(ByVal LocalDir As String, ByVal TableType As TABLETYPEII, ByVal userState As Object)
If (Me.RestoreSingleTableOperationCompleted Is Nothing) Then
Me.RestoreSingleTableOperationCompleted = AddressOf Me.OnRestoreSingleTableOperationCompleted
End If
Me.InvokeAsync("RestoreSingleTable", New Object() {LocalDir, TableType}, Me.RestoreSingleTableOperationCompleted, userState)
End Sub
Private Sub OnRestoreSingleTableOperationCompleted(ByVal arg As Object)
If (Not (Me.RestoreSingleTableCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent RestoreSingleTableCompleted(Me, New RestoreSingleTableCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SaveSingleTable-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SaveSingleTable(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal LocalDir As String, ByVal TableType As TABLETYPEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SaveSingleTable", New Object() {LocalDir, TableType})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SaveSingleTableAsync(ByVal LocalDir As String, ByVal TableType As TABLETYPEII)
Me.SaveSingleTableAsync(LocalDir, TableType, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SaveSingleTableAsync(ByVal LocalDir As String, ByVal TableType As TABLETYPEII, ByVal userState As Object)
If (Me.SaveSingleTableOperationCompleted Is Nothing) Then
Me.SaveSingleTableOperationCompleted = AddressOf Me.OnSaveSingleTableOperationCompleted
End If
Me.InvokeAsync("SaveSingleTable", New Object() {LocalDir, TableType}, Me.SaveSingleTableOperationCompleted, userState)
End Sub
Private Sub OnSaveSingleTableOperationCompleted(ByVal arg As Object)
If (Not (Me.SaveSingleTableCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SaveSingleTableCompleted(Me, New SaveSingleTableCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SaveBackupMemory-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SaveBackupMemory(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal FileName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SaveBackupMemory", New Object() {FileName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SaveBackupMemoryAsync(ByVal FileName As String)
Me.SaveBackupMemoryAsync(FileName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SaveBackupMemoryAsync(ByVal FileName As String, ByVal userState As Object)
If (Me.SaveBackupMemoryOperationCompleted Is Nothing) Then
Me.SaveBackupMemoryOperationCompleted = AddressOf Me.OnSaveBackupMemoryOperationCompleted
End If
Me.InvokeAsync("SaveBackupMemory", New Object() {FileName}, Me.SaveBackupMemoryOperationCompleted, userState)
End Sub
Private Sub OnSaveBackupMemoryOperationCompleted(ByVal arg As Object)
If (Not (Me.SaveBackupMemoryCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SaveBackupMemoryCompleted(Me, New SaveBackupMemoryCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="RestoreBackupMemory-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function RestoreBackupMemory(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal FileName As String, ByVal RestoreMask As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("RestoreBackupMemory", New Object() {FileName, RestoreMask})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub RestoreBackupMemoryAsync(ByVal FileName As String, ByVal RestoreMask As UInteger)
Me.RestoreBackupMemoryAsync(FileName, RestoreMask, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub RestoreBackupMemoryAsync(ByVal FileName As String, ByVal RestoreMask As UInteger, ByVal userState As Object)
If (Me.RestoreBackupMemoryOperationCompleted Is Nothing) Then
Me.RestoreBackupMemoryOperationCompleted = AddressOf Me.OnRestoreBackupMemoryOperationCompleted
End If
Me.InvokeAsync("RestoreBackupMemory", New Object() {FileName, RestoreMask}, Me.RestoreBackupMemoryOperationCompleted, userState)
End Sub
Private Sub OnRestoreBackupMemoryOperationCompleted(ByVal arg As Object)
If (Not (Me.RestoreBackupMemoryCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent RestoreBackupMemoryCompleted(Me, New RestoreBackupMemoryCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ToolSearch-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ToolSearch(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal ToolCode As String, ByVal Magazine As Short, ByRef ToolIndex As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ToolSearch", New Object() {ToolCode, Magazine})
ToolIndex = CType(results(1),Short)
Pocket = CType(results(2),Short)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ToolSearchAsync(ByVal ToolCode As String, ByVal Magazine As Short)
Me.ToolSearchAsync(ToolCode, Magazine, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ToolSearchAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal userState As Object)
If (Me.ToolSearchOperationCompleted Is Nothing) Then
Me.ToolSearchOperationCompleted = AddressOf Me.OnToolSearchOperationCompleted
End If
Me.InvokeAsync("ToolSearch", New Object() {ToolCode, Magazine}, Me.ToolSearchOperationCompleted, userState)
End Sub
Private Sub OnToolSearchOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolSearchCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolSearchCompleted(Me, New ToolSearchCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ToolSearchLife-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ToolSearchLife(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double, ByRef ToolIndex As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ToolSearchLife", New Object() {ToolCode, Magazine, LifeVal})
ToolIndex = CType(results(1),Short)
Pocket = CType(results(2),Short)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ToolSearchLifeAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double)
Me.ToolSearchLifeAsync(ToolCode, Magazine, LifeVal, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ToolSearchLifeAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double, ByVal userState As Object)
If (Me.ToolSearchLifeOperationCompleted Is Nothing) Then
Me.ToolSearchLifeOperationCompleted = AddressOf Me.OnToolSearchLifeOperationCompleted
End If
Me.InvokeAsync("ToolSearchLife", New Object() {ToolCode, Magazine, LifeVal}, Me.ToolSearchLifeOperationCompleted, userState)
End Sub
Private Sub OnToolSearchLifeOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolSearchLifeCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolSearchLifeCompleted(Me, New ToolSearchLifeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ToolSearchDir-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ToolSearchDir(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal ToolCode As String, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short, ByRef ToolIndex As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ToolSearchDir", New Object() {ToolCode, Magazine, StartPocket, Direction})
ToolIndex = CType(results(1),Short)
Pocket = CType(results(2),Short)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ToolSearchDirAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short)
Me.ToolSearchDirAsync(ToolCode, Magazine, StartPocket, Direction, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ToolSearchDirAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short, ByVal userState As Object)
If (Me.ToolSearchDirOperationCompleted Is Nothing) Then
Me.ToolSearchDirOperationCompleted = AddressOf Me.OnToolSearchDirOperationCompleted
End If
Me.InvokeAsync("ToolSearchDir", New Object() {ToolCode, Magazine, StartPocket, Direction}, Me.ToolSearchDirOperationCompleted, userState)
End Sub
Private Sub OnToolSearchDirOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolSearchDirCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolSearchDirCompleted(Me, New ToolSearchDirCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ToolSearchLifeDir-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ToolSearchLifeDir(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double, ByVal StartPocket As Short, ByRef ToolIndex As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ToolSearchLifeDir", New Object() {ToolCode, Magazine, LifeVal, StartPocket})
ToolIndex = CType(results(1),Short)
Pocket = CType(results(2),Short)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ToolSearchLifeDirAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double, ByVal StartPocket As Short)
Me.ToolSearchLifeDirAsync(ToolCode, Magazine, LifeVal, StartPocket, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ToolSearchLifeDirAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double, ByVal StartPocket As Short, ByVal userState As Object)
If (Me.ToolSearchLifeDirOperationCompleted Is Nothing) Then
Me.ToolSearchLifeDirOperationCompleted = AddressOf Me.OnToolSearchLifeDirOperationCompleted
End If
Me.InvokeAsync("ToolSearchLifeDir", New Object() {ToolCode, Magazine, LifeVal, StartPocket}, Me.ToolSearchLifeDirOperationCompleted, userState)
End Sub
Private Sub OnToolSearchLifeDirOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolSearchLifeDirCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolSearchLifeDirCompleted(Me, New ToolSearchLifeDirCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ToolSameFamily-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ToolSameFamily(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal ToolCode As String, ByVal Magazine As Short, ByRef ToolInMaga As Short, ByRef ToolsOutMaga As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ToolSameFamily", New Object() {ToolCode, Magazine})
ToolInMaga = CType(results(1),Short)
ToolsOutMaga = CType(results(2),Short)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ToolSameFamilyAsync(ByVal ToolCode As String, ByVal Magazine As Short)
Me.ToolSameFamilyAsync(ToolCode, Magazine, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ToolSameFamilyAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal userState As Object)
If (Me.ToolSameFamilyOperationCompleted Is Nothing) Then
Me.ToolSameFamilyOperationCompleted = AddressOf Me.OnToolSameFamilyOperationCompleted
End If
Me.InvokeAsync("ToolSameFamily", New Object() {ToolCode, Magazine}, Me.ToolSameFamilyOperationCompleted, userState)
End Sub
Private Sub OnToolSameFamilyOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolSameFamilyCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolSameFamilyCompleted(Me, New ToolSameFamilyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ToolLoad-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ToolLoad(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ToolLoad", New Object() {ToolIndex, Magazine, Pocket})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ToolLoadAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short)
Me.ToolLoadAsync(ToolIndex, Magazine, Pocket, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ToolLoadAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short, ByVal userState As Object)
If (Me.ToolLoadOperationCompleted Is Nothing) Then
Me.ToolLoadOperationCompleted = AddressOf Me.OnToolLoadOperationCompleted
End If
Me.InvokeAsync("ToolLoad", New Object() {ToolIndex, Magazine, Pocket}, Me.ToolLoadOperationCompleted, userState)
End Sub
Private Sub OnToolLoadOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolLoadCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolLoadCompleted(Me, New ToolLoadCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ToolUnload-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ToolUnload(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short, ByVal Position As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ToolUnload", New Object() {ToolIndex, Magazine, Pocket, Position})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ToolUnloadAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short, ByVal Position As Short)
Me.ToolUnloadAsync(ToolIndex, Magazine, Pocket, Position, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ToolUnloadAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short, ByVal Position As Short, ByVal userState As Object)
If (Me.ToolUnloadOperationCompleted Is Nothing) Then
Me.ToolUnloadOperationCompleted = AddressOf Me.OnToolUnloadOperationCompleted
End If
Me.InvokeAsync("ToolUnload", New Object() {ToolIndex, Magazine, Pocket, Position}, Me.ToolUnloadOperationCompleted, userState)
End Sub
Private Sub OnToolUnloadOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolUnloadCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolUnloadCompleted(Me, New ToolUnloadCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="PocketSearch-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function PocketSearch(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("PocketSearch", New Object() {ToolIndex, Magazine, StartPocket, Direction})
Pocket = CType(results(1),Short)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub PocketSearchAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short)
Me.PocketSearchAsync(ToolIndex, Magazine, StartPocket, Direction, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub PocketSearchAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short, ByVal userState As Object)
If (Me.PocketSearchOperationCompleted Is Nothing) Then
Me.PocketSearchOperationCompleted = AddressOf Me.OnPocketSearchOperationCompleted
End If
Me.InvokeAsync("PocketSearch", New Object() {ToolIndex, Magazine, StartPocket, Direction}, Me.PocketSearchOperationCompleted, userState)
End Sub
Private Sub OnPocketSearchOperationCompleted(ByVal arg As Object)
If (Not (Me.PocketSearchCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent PocketSearchCompleted(Me, New PocketSearchCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="PocketClosest-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function PocketClosest(ByVal Magazine As Short, ByVal ActualPocket As Short, ByVal Pocket1 As Short, ByVal Pocket2 As Short, ByRef Direction As Short, ByRef Pocket As Short, ByRef HorizontalDistance As Short, ByRef VerticalDistance As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("PocketClosest", New Object() {Magazine, ActualPocket, Pocket1, Pocket2})
Direction = CType(results(1),Short)
Pocket = CType(results(2),Short)
HorizontalDistance = CType(results(3),Short)
VerticalDistance = CType(results(4),Short)
ErrClass = CType(results(5),UInteger)
ErrNum = CType(results(6),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub PocketClosestAsync(ByVal Magazine As Short, ByVal ActualPocket As Short, ByVal Pocket1 As Short, ByVal Pocket2 As Short)
Me.PocketClosestAsync(Magazine, ActualPocket, Pocket1, Pocket2, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub PocketClosestAsync(ByVal Magazine As Short, ByVal ActualPocket As Short, ByVal Pocket1 As Short, ByVal Pocket2 As Short, ByVal userState As Object)
If (Me.PocketClosestOperationCompleted Is Nothing) Then
Me.PocketClosestOperationCompleted = AddressOf Me.OnPocketClosestOperationCompleted
End If
Me.InvokeAsync("PocketClosest", New Object() {Magazine, ActualPocket, Pocket1, Pocket2}, Me.PocketClosestOperationCompleted, userState)
End Sub
Private Sub OnPocketClosestOperationCompleted(ByVal arg As Object)
If (Not (Me.PocketClosestCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent PocketClosestCompleted(Me, New PocketClosestCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="PocketNearest-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function PocketNearest(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal ActualPocket As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("PocketNearest", New Object() {ToolIndex, Magazine, ActualPocket})
Pocket = CType(results(1),Short)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub PocketNearestAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal ActualPocket As Short)
Me.PocketNearestAsync(ToolIndex, Magazine, ActualPocket, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub PocketNearestAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal ActualPocket As Short, ByVal userState As Object)
If (Me.PocketNearestOperationCompleted Is Nothing) Then
Me.PocketNearestOperationCompleted = AddressOf Me.OnPocketNearestOperationCompleted
End If
Me.InvokeAsync("PocketNearest", New Object() {ToolIndex, Magazine, ActualPocket}, Me.PocketNearestOperationCompleted, userState)
End Sub
Private Sub OnPocketNearestOperationCompleted(ByVal arg As Object)
If (Not (Me.PocketNearestCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent PocketNearestCompleted(Me, New PocketNearestCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ToolLife-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ToolLife(ByVal ToolIndex As Short, ByVal Value As Double, ByRef RemLife As Double, ByRef ToolStatus As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ToolLife", New Object() {ToolIndex, Value})
RemLife = CType(results(1),Double)
ToolStatus = CType(results(2),Short)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ToolLifeAsync(ByVal ToolIndex As Short, ByVal Value As Double)
Me.ToolLifeAsync(ToolIndex, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ToolLifeAsync(ByVal ToolIndex As Short, ByVal Value As Double, ByVal userState As Object)
If (Me.ToolLifeOperationCompleted Is Nothing) Then
Me.ToolLifeOperationCompleted = AddressOf Me.OnToolLifeOperationCompleted
End If
Me.InvokeAsync("ToolLife", New Object() {ToolIndex, Value}, Me.ToolLifeOperationCompleted, userState)
End Sub
Private Sub OnToolLifeOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolLifeCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolLifeCompleted(Me, New ToolLifeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LoadTableFromFile-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LoadTableFromFile(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal FileName As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal AuxFileName As String, ByVal TableType As UShort, ByVal Param1 As UShort, ByVal Param2 As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LoadTableFromFile", New Object() {FileName, AuxFileName, TableType, Param1, Param2})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LoadTableFromFileAsync(ByVal FileName As String, ByVal AuxFileName As String, ByVal TableType As UShort, ByVal Param1 As UShort, ByVal Param2 As UShort)
Me.LoadTableFromFileAsync(FileName, AuxFileName, TableType, Param1, Param2, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LoadTableFromFileAsync(ByVal FileName As String, ByVal AuxFileName As String, ByVal TableType As UShort, ByVal Param1 As UShort, ByVal Param2 As UShort, ByVal userState As Object)
If (Me.LoadTableFromFileOperationCompleted Is Nothing) Then
Me.LoadTableFromFileOperationCompleted = AddressOf Me.OnLoadTableFromFileOperationCompleted
End If
Me.InvokeAsync("LoadTableFromFile", New Object() {FileName, AuxFileName, TableType, Param1, Param2}, Me.LoadTableFromFileOperationCompleted, userState)
End Sub
Private Sub OnLoadTableFromFileOperationCompleted(ByVal arg As Object)
If (Not (Me.LoadTableFromFileCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LoadTableFromFileCompleted(Me, New LoadTableFromFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="MagConfigurePockets-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function MagConfigurePockets(ByVal magNum As Short, ByVal fPocket As Short, ByVal lPocket As Short, ByVal pockType As Short, ByVal rndPock As Short, ByVal nearCfg As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("MagConfigurePockets", New Object() {magNum, fPocket, lPocket, pockType, rndPock, nearCfg})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub MagConfigurePocketsAsync(ByVal magNum As Short, ByVal fPocket As Short, ByVal lPocket As Short, ByVal pockType As Short, ByVal rndPock As Short, ByVal nearCfg As Short)
Me.MagConfigurePocketsAsync(magNum, fPocket, lPocket, pockType, rndPock, nearCfg, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub MagConfigurePocketsAsync(ByVal magNum As Short, ByVal fPocket As Short, ByVal lPocket As Short, ByVal pockType As Short, ByVal rndPock As Short, ByVal nearCfg As Short, ByVal userState As Object)
If (Me.MagConfigurePocketsOperationCompleted Is Nothing) Then
Me.MagConfigurePocketsOperationCompleted = AddressOf Me.OnMagConfigurePocketsOperationCompleted
End If
Me.InvokeAsync("MagConfigurePockets", New Object() {magNum, fPocket, lPocket, pockType, rndPock, nearCfg}, Me.MagConfigurePocketsOperationCompleted, userState)
End Sub
Private Sub OnMagConfigurePocketsOperationCompleted(ByVal arg As Object)
If (Not (Me.MagConfigurePocketsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent MagConfigurePocketsCompleted(Me, New MagConfigurePocketsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="Cycle-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function Cycle(ByVal ProcNum As UShort, ByVal Cmd As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("Cycle", New Object() {ProcNum, Cmd})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub CycleAsync(ByVal ProcNum As UShort, ByVal Cmd As UShort)
Me.CycleAsync(ProcNum, Cmd, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub CycleAsync(ByVal ProcNum As UShort, ByVal Cmd As UShort, ByVal userState As Object)
If (Me.CycleOperationCompleted Is Nothing) Then
Me.CycleOperationCompleted = AddressOf Me.OnCycleOperationCompleted
End If
Me.InvokeAsync("Cycle", New Object() {ProcNum, Cmd}, Me.CycleOperationCompleted, userState)
End Sub
Private Sub OnCycleOperationCompleted(ByVal arg As Object)
If (Not (Me.CycleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent CycleCompleted(Me, New CycleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SyncroCycle-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SyncroCycle(ByVal ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SyncroCycle", New Object() {ProcNum})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SyncroCycleAsync(ByVal ProcNum As UShort)
Me.SyncroCycleAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SyncroCycleAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.SyncroCycleOperationCompleted Is Nothing) Then
Me.SyncroCycleOperationCompleted = AddressOf Me.OnSyncroCycleOperationCompleted
End If
Me.InvokeAsync("SyncroCycle", New Object() {ProcNum}, Me.SyncroCycleOperationCompleted, userState)
End Sub
Private Sub OnSyncroCycleOperationCompleted(ByVal arg As Object)
If (Not (Me.SyncroCycleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SyncroCycleCompleted(Me, New SyncroCycleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="Reset-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function Reset(ByVal ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("Reset", New Object() {ProcNum})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ResetAsync(ByVal ProcNum As UShort)
Me.ResetAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ResetAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.ResetOperationCompleted Is Nothing) Then
Me.ResetOperationCompleted = AddressOf Me.OnResetOperationCompleted
End If
Me.InvokeAsync("Reset", New Object() {ProcNum}, Me.ResetOperationCompleted, userState)
End Sub
Private Sub OnResetOperationCompleted(ByVal arg As Object)
If (Not (Me.ResetCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ResetCompleted(Me, New ResetCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="Hold-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function Hold(ByVal ProcNum As UShort, ByVal Cmd As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("Hold", New Object() {ProcNum, Cmd})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub HoldAsync(ByVal ProcNum As UShort, ByVal Cmd As UShort)
Me.HoldAsync(ProcNum, Cmd, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub HoldAsync(ByVal ProcNum As UShort, ByVal Cmd As UShort, ByVal userState As Object)
If (Me.HoldOperationCompleted Is Nothing) Then
Me.HoldOperationCompleted = AddressOf Me.OnHoldOperationCompleted
End If
Me.InvokeAsync("Hold", New Object() {ProcNum, Cmd}, Me.HoldOperationCompleted, userState)
End Sub
Private Sub OnHoldOperationCompleted(ByVal arg As Object)
If (Not (Me.HoldCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent HoldCompleted(Me, New HoldCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetFeedManOver-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetFeedManOver(ByVal ProcNum As UShort, ByVal FeedManOver As UShort, ByVal Direction As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetFeedManOver", New Object() {ProcNum, FeedManOver, Direction})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetFeedManOverAsync(ByVal ProcNum As UShort, ByVal FeedManOver As UShort, ByVal Direction As UShort)
Me.SetFeedManOverAsync(ProcNum, FeedManOver, Direction, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetFeedManOverAsync(ByVal ProcNum As UShort, ByVal FeedManOver As UShort, ByVal Direction As UShort, ByVal userState As Object)
If (Me.SetFeedManOverOperationCompleted Is Nothing) Then
Me.SetFeedManOverOperationCompleted = AddressOf Me.OnSetFeedManOverOperationCompleted
End If
Me.InvokeAsync("SetFeedManOver", New Object() {ProcNum, FeedManOver, Direction}, Me.SetFeedManOverOperationCompleted, userState)
End Sub
Private Sub OnSetFeedManOverOperationCompleted(ByVal arg As Object)
If (Not (Me.SetFeedManOverCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetFeedManOverCompleted(Me, New SetFeedManOverCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetFeedRateOver-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetFeedRateOver(ByVal ProcNum As UShort, ByVal FeedRateOver As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetFeedRateOver", New Object() {ProcNum, FeedRateOver})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetFeedRateOverAsync(ByVal ProcNum As UShort, ByVal FeedRateOver As UShort)
Me.SetFeedRateOverAsync(ProcNum, FeedRateOver, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetFeedRateOverAsync(ByVal ProcNum As UShort, ByVal FeedRateOver As UShort, ByVal userState As Object)
If (Me.SetFeedRateOverOperationCompleted Is Nothing) Then
Me.SetFeedRateOverOperationCompleted = AddressOf Me.OnSetFeedRateOverOperationCompleted
End If
Me.InvokeAsync("SetFeedRateOver", New Object() {ProcNum, FeedRateOver}, Me.SetFeedRateOverOperationCompleted, userState)
End Sub
Private Sub OnSetFeedRateOverOperationCompleted(ByVal arg As Object)
If (Not (Me.SetFeedRateOverCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetFeedRateOverCompleted(Me, New SetFeedRateOverCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetFeedRapidOver-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetFeedRapidOver(ByVal ProcNum As UShort, ByVal FeedRapidOver As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetFeedRapidOver", New Object() {ProcNum, FeedRapidOver})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetFeedRapidOverAsync(ByVal ProcNum As UShort, ByVal FeedRapidOver As UShort)
Me.SetFeedRapidOverAsync(ProcNum, FeedRapidOver, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetFeedRapidOverAsync(ByVal ProcNum As UShort, ByVal FeedRapidOver As UShort, ByVal userState As Object)
If (Me.SetFeedRapidOverOperationCompleted Is Nothing) Then
Me.SetFeedRapidOverOperationCompleted = AddressOf Me.OnSetFeedRapidOverOperationCompleted
End If
Me.InvokeAsync("SetFeedRapidOver", New Object() {ProcNum, FeedRapidOver}, Me.SetFeedRapidOverOperationCompleted, userState)
End Sub
Private Sub OnSetFeedRapidOverOperationCompleted(ByVal arg As Object)
If (Not (Me.SetFeedRapidOverCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetFeedRapidOverCompleted(Me, New SetFeedRapidOverCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetSpeedRateOver-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetSpeedRateOver(ByVal ProcNum As UShort, ByVal SpeedRateOver As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetSpeedRateOver", New Object() {ProcNum, SpeedRateOver})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetSpeedRateOverAsync(ByVal ProcNum As UShort, ByVal SpeedRateOver As UShort)
Me.SetSpeedRateOverAsync(ProcNum, SpeedRateOver, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetSpeedRateOverAsync(ByVal ProcNum As UShort, ByVal SpeedRateOver As UShort, ByVal userState As Object)
If (Me.SetSpeedRateOverOperationCompleted Is Nothing) Then
Me.SetSpeedRateOverOperationCompleted = AddressOf Me.OnSetSpeedRateOverOperationCompleted
End If
Me.InvokeAsync("SetSpeedRateOver", New Object() {ProcNum, SpeedRateOver}, Me.SetSpeedRateOverOperationCompleted, userState)
End Sub
Private Sub OnSetSpeedRateOverOperationCompleted(ByVal arg As Object)
If (Not (Me.SetSpeedRateOverCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetSpeedRateOverCompleted(Me, New SetSpeedRateOverCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetManMovDirection-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetManMovDirection(ByVal ProcNum As UShort, ByVal Direction As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetManMovDirection", New Object() {ProcNum, Direction})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetManMovDirectionAsync(ByVal ProcNum As UShort, ByVal Direction As UShort)
Me.SetManMovDirectionAsync(ProcNum, Direction, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetManMovDirectionAsync(ByVal ProcNum As UShort, ByVal Direction As UShort, ByVal userState As Object)
If (Me.SetManMovDirectionOperationCompleted Is Nothing) Then
Me.SetManMovDirectionOperationCompleted = AddressOf Me.OnSetManMovDirectionOperationCompleted
End If
Me.InvokeAsync("SetManMovDirection", New Object() {ProcNum, Direction}, Me.SetManMovDirectionOperationCompleted, userState)
End Sub
Private Sub OnSetManMovDirectionOperationCompleted(ByVal arg As Object)
If (Not (Me.SetManMovDirectionCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetManMovDirectionCompleted(Me, New SetManMovDirectionCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetVarJOG-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetVarJOG(ByVal ProcNum As UShort, ByRef Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetVarJOG", New Object() {ProcNum})
Value = CType(results(1),Double)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetVarJOGAsync(ByVal ProcNum As UShort)
Me.GetVarJOGAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetVarJOGAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetVarJOGOperationCompleted Is Nothing) Then
Me.GetVarJOGOperationCompleted = AddressOf Me.OnGetVarJOGOperationCompleted
End If
Me.InvokeAsync("GetVarJOG", New Object() {ProcNum}, Me.GetVarJOGOperationCompleted, userState)
End Sub
Private Sub OnGetVarJOGOperationCompleted(ByVal arg As Object)
If (Not (Me.GetVarJOGCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetVarJOGCompleted(Me, New GetVarJOGCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetVarJOG-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetVarJOG(ByVal ProcNum As UShort, ByVal Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetVarJOG", New Object() {ProcNum, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetVarJOGAsync(ByVal ProcNum As UShort, ByVal Value As Double)
Me.SetVarJOGAsync(ProcNum, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetVarJOGAsync(ByVal ProcNum As UShort, ByVal Value As Double, ByVal userState As Object)
If (Me.SetVarJOGOperationCompleted Is Nothing) Then
Me.SetVarJOGOperationCompleted = AddressOf Me.OnSetVarJOGOperationCompleted
End If
Me.InvokeAsync("SetVarJOG", New Object() {ProcNum, Value}, Me.SetVarJOGOperationCompleted, userState)
End Sub
Private Sub OnSetVarJOGOperationCompleted(ByVal arg As Object)
If (Not (Me.SetVarJOGCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetVarJOGCompleted(Me, New SetVarJOGCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetVarUAS-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetVarUAS(ByVal ProcNum As UShort, ByVal Mode As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetVarUAS", New Object() {ProcNum, Mode})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetVarUASAsync(ByVal ProcNum As UShort, ByVal Mode As UShort)
Me.SetVarUASAsync(ProcNum, Mode, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetVarUASAsync(ByVal ProcNum As UShort, ByVal Mode As UShort, ByVal userState As Object)
If (Me.SetVarUASOperationCompleted Is Nothing) Then
Me.SetVarUASOperationCompleted = AddressOf Me.OnSetVarUASOperationCompleted
End If
Me.InvokeAsync("SetVarUAS", New Object() {ProcNum, Mode}, Me.SetVarUASOperationCompleted, userState)
End Sub
Private Sub OnSetVarUASOperationCompleted(ByVal arg As Object)
If (Not (Me.SetVarUASCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetVarUASCompleted(Me, New SetVarUASCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetVarRCM-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetVarRCM(ByVal ProcNum As UShort, ByRef Value As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetVarRCM", New Object() {ProcNum})
Value = CType(results(1),UShort)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetVarRCMAsync(ByVal ProcNum As UShort)
Me.GetVarRCMAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetVarRCMAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetVarRCMOperationCompleted Is Nothing) Then
Me.GetVarRCMOperationCompleted = AddressOf Me.OnGetVarRCMOperationCompleted
End If
Me.InvokeAsync("GetVarRCM", New Object() {ProcNum}, Me.GetVarRCMOperationCompleted, userState)
End Sub
Private Sub OnGetVarRCMOperationCompleted(ByVal arg As Object)
If (Not (Me.GetVarRCMCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetVarRCMCompleted(Me, New GetVarRCMCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetVarRCM-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetVarRCM(ByVal ProcNum As UShort, ByVal Mode As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetVarRCM", New Object() {ProcNum, Mode})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetVarRCMAsync(ByVal ProcNum As UShort, ByVal Mode As UShort)
Me.SetVarRCMAsync(ProcNum, Mode, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetVarRCMAsync(ByVal ProcNum As UShort, ByVal Mode As UShort, ByVal userState As Object)
If (Me.SetVarRCMOperationCompleted Is Nothing) Then
Me.SetVarRCMOperationCompleted = AddressOf Me.OnSetVarRCMOperationCompleted
End If
Me.InvokeAsync("SetVarRCM", New Object() {ProcNum, Mode}, Me.SetVarRCMOperationCompleted, userState)
End Sub
Private Sub OnSetVarRCMOperationCompleted(ByVal arg As Object)
If (Not (Me.SetVarRCMCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetVarRCMCompleted(Me, New SetVarRCMCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetVarCYCTIME-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetVarCYCTIME(ByVal ProcNum As UShort, ByRef Value As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetVarCYCTIME", New Object() {ProcNum})
Value = CType(results(1),UShort)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetVarCYCTIMEAsync(ByVal ProcNum As UShort)
Me.GetVarCYCTIMEAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetVarCYCTIMEAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetVarCYCTIMEOperationCompleted Is Nothing) Then
Me.GetVarCYCTIMEOperationCompleted = AddressOf Me.OnGetVarCYCTIMEOperationCompleted
End If
Me.InvokeAsync("GetVarCYCTIME", New Object() {ProcNum}, Me.GetVarCYCTIMEOperationCompleted, userState)
End Sub
Private Sub OnGetVarCYCTIMEOperationCompleted(ByVal arg As Object)
If (Not (Me.GetVarCYCTIMECompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetVarCYCTIMECompleted(Me, New GetVarCYCTIMECompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetVarCYCTIME-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetVarCYCTIME(ByVal ProcNum As UShort, ByVal Value As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetVarCYCTIME", New Object() {ProcNum, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetVarCYCTIMEAsync(ByVal ProcNum As UShort, ByVal Value As UShort)
Me.SetVarCYCTIMEAsync(ProcNum, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetVarCYCTIMEAsync(ByVal ProcNum As UShort, ByVal Value As UShort, ByVal userState As Object)
If (Me.SetVarCYCTIMEOperationCompleted Is Nothing) Then
Me.SetVarCYCTIMEOperationCompleted = AddressOf Me.OnSetVarCYCTIMEOperationCompleted
End If
Me.InvokeAsync("SetVarCYCTIME", New Object() {ProcNum, Value}, Me.SetVarCYCTIMEOperationCompleted, userState)
End Sub
Private Sub OnSetVarCYCTIMEOperationCompleted(ByVal arg As Object)
If (Not (Me.SetVarCYCTIMECompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetVarCYCTIMECompleted(Me, New SetVarCYCTIMECompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetProcVarWord-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetProcVarWord(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE, ByRef Value As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetProcVarWord", New Object() {ProcNum, VarType})
Value = CType(results(1),UShort)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetProcVarWordAsync(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE)
Me.GetProcVarWordAsync(ProcNum, VarType, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetProcVarWordAsync(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE, ByVal userState As Object)
If (Me.GetProcVarWordOperationCompleted Is Nothing) Then
Me.GetProcVarWordOperationCompleted = AddressOf Me.OnGetProcVarWordOperationCompleted
End If
Me.InvokeAsync("GetProcVarWord", New Object() {ProcNum, VarType}, Me.GetProcVarWordOperationCompleted, userState)
End Sub
Private Sub OnGetProcVarWordOperationCompleted(ByVal arg As Object)
If (Not (Me.GetProcVarWordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetProcVarWordCompleted(Me, New GetProcVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetProcVarWord-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetProcVarWord(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE, ByVal Value As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetProcVarWord", New Object() {ProcNum, VarType, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetProcVarWordAsync(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE, ByVal Value As UShort)
Me.SetProcVarWordAsync(ProcNum, VarType, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetProcVarWordAsync(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE, ByVal Value As UShort, ByVal userState As Object)
If (Me.SetProcVarWordOperationCompleted Is Nothing) Then
Me.SetProcVarWordOperationCompleted = AddressOf Me.OnSetProcVarWordOperationCompleted
End If
Me.InvokeAsync("SetProcVarWord", New Object() {ProcNum, VarType, Value}, Me.SetProcVarWordOperationCompleted, userState)
End Sub
Private Sub OnSetProcVarWordOperationCompleted(ByVal arg As Object)
If (Not (Me.SetProcVarWordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetProcVarWordCompleted(Me, New SetProcVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetProcVarDouble-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetProcVarDouble(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE, ByRef Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetProcVarDouble", New Object() {ProcNum, VarType})
Value = CType(results(1),Double)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetProcVarDoubleAsync(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE)
Me.GetProcVarDoubleAsync(ProcNum, VarType, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetProcVarDoubleAsync(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE, ByVal userState As Object)
If (Me.GetProcVarDoubleOperationCompleted Is Nothing) Then
Me.GetProcVarDoubleOperationCompleted = AddressOf Me.OnGetProcVarDoubleOperationCompleted
End If
Me.InvokeAsync("GetProcVarDouble", New Object() {ProcNum, VarType}, Me.GetProcVarDoubleOperationCompleted, userState)
End Sub
Private Sub OnGetProcVarDoubleOperationCompleted(ByVal arg As Object)
If (Not (Me.GetProcVarDoubleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetProcVarDoubleCompleted(Me, New GetProcVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetProcVarDouble-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetProcVarDouble(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE, ByVal Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetProcVarDouble", New Object() {ProcNum, VarType, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetProcVarDoubleAsync(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE, ByVal Value As Double)
Me.SetProcVarDoubleAsync(ProcNum, VarType, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetProcVarDoubleAsync(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE, ByVal Value As Double, ByVal userState As Object)
If (Me.SetProcVarDoubleOperationCompleted Is Nothing) Then
Me.SetProcVarDoubleOperationCompleted = AddressOf Me.OnSetProcVarDoubleOperationCompleted
End If
Me.InvokeAsync("SetProcVarDouble", New Object() {ProcNum, VarType, Value}, Me.SetProcVarDoubleOperationCompleted, userState)
End Sub
Private Sub OnSetProcVarDoubleOperationCompleted(ByVal arg As Object)
If (Not (Me.SetProcVarDoubleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetProcVarDoubleCompleted(Me, New SetProcVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetMdiString-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetMdiString(ByVal ProcNum As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal MdiString As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetMdiString", New Object() {ProcNum, MdiString})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetMdiStringAsync(ByVal ProcNum As UShort, ByVal MdiString As String)
Me.SetMdiStringAsync(ProcNum, MdiString, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetMdiStringAsync(ByVal ProcNum As UShort, ByVal MdiString As String, ByVal userState As Object)
If (Me.SetMdiStringOperationCompleted Is Nothing) Then
Me.SetMdiStringOperationCompleted = AddressOf Me.OnSetMdiStringOperationCompleted
End If
Me.InvokeAsync("SetMdiString", New Object() {ProcNum, MdiString}, Me.SetMdiStringOperationCompleted, userState)
End Sub
Private Sub OnSetMdiStringOperationCompleted(ByVal arg As Object)
If (Not (Me.SetMdiStringCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetMdiStringCompleted(Me, New SetMdiStringCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetProcessMode-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetProcessMode(ByVal ProcNum As UShort, ByVal Mode As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetProcessMode", New Object() {ProcNum, Mode})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetProcessModeAsync(ByVal ProcNum As UShort, ByVal Mode As UShort)
Me.SetProcessModeAsync(ProcNum, Mode, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetProcessModeAsync(ByVal ProcNum As UShort, ByVal Mode As UShort, ByVal userState As Object)
If (Me.SetProcessModeOperationCompleted Is Nothing) Then
Me.SetProcessModeOperationCompleted = AddressOf Me.OnSetProcessModeOperationCompleted
End If
Me.InvokeAsync("SetProcessMode", New Object() {ProcNum, Mode}, Me.SetProcessModeOperationCompleted, userState)
End Sub
Private Sub OnSetProcessModeOperationCompleted(ByVal arg As Object)
If (Not (Me.SetProcessModeCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetProcessModeCompleted(Me, New SetProcessModeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SelectProcess-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SelectProcess(ByVal ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SelectProcess", New Object() {ProcNum})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SelectProcessAsync(ByVal ProcNum As UShort)
Me.SelectProcessAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SelectProcessAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.SelectProcessOperationCompleted Is Nothing) Then
Me.SelectProcessOperationCompleted = AddressOf Me.OnSelectProcessOperationCompleted
End If
Me.InvokeAsync("SelectProcess", New Object() {ProcNum}, Me.SelectProcessOperationCompleted, userState)
End Sub
Private Sub OnSelectProcessOperationCompleted(ByVal arg As Object)
If (Not (Me.SelectProcessCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SelectProcessCompleted(Me, New SelectProcessCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetSelectedProcess-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetSelectedProcess(ByRef ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetSelectedProcess", New Object(-1) {})
ProcNum = CType(results(1),UShort)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetSelectedProcessAsync()
Me.GetSelectedProcessAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetSelectedProcessAsync(ByVal userState As Object)
If (Me.GetSelectedProcessOperationCompleted Is Nothing) Then
Me.GetSelectedProcessOperationCompleted = AddressOf Me.OnGetSelectedProcessOperationCompleted
End If
Me.InvokeAsync("GetSelectedProcess", New Object(-1) {}, Me.GetSelectedProcessOperationCompleted, userState)
End Sub
Private Sub OnGetSelectedProcessOperationCompleted(ByVal arg As Object)
If (Not (Me.GetSelectedProcessCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetSelectedProcessCompleted(Me, New GetSelectedProcessCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SelectProcAxis-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SelectProcAxis(ByVal ProcNum As UShort, ByVal AxisName As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SelectProcAxis", New Object() {ProcNum, AxisName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SelectProcAxisAsync(ByVal ProcNum As UShort, ByVal AxisName As Byte)
Me.SelectProcAxisAsync(ProcNum, AxisName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SelectProcAxisAsync(ByVal ProcNum As UShort, ByVal AxisName As Byte, ByVal userState As Object)
If (Me.SelectProcAxisOperationCompleted Is Nothing) Then
Me.SelectProcAxisOperationCompleted = AddressOf Me.OnSelectProcAxisOperationCompleted
End If
Me.InvokeAsync("SelectProcAxis", New Object() {ProcNum, AxisName}, Me.SelectProcAxisOperationCompleted, userState)
End Sub
Private Sub OnSelectProcAxisOperationCompleted(ByVal arg As Object)
If (Not (Me.SelectProcAxisCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SelectProcAxisCompleted(Me, New SelectProcAxisCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SelectPartProgram-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SelectPartProgram(ByVal ProcNum As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PPName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SelectPartProgram", New Object() {ProcNum, PPName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SelectPartProgramAsync(ByVal ProcNum As UShort, ByVal PPName As String)
Me.SelectPartProgramAsync(ProcNum, PPName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SelectPartProgramAsync(ByVal ProcNum As UShort, ByVal PPName As String, ByVal userState As Object)
If (Me.SelectPartProgramOperationCompleted Is Nothing) Then
Me.SelectPartProgramOperationCompleted = AddressOf Me.OnSelectPartProgramOperationCompleted
End If
Me.InvokeAsync("SelectPartProgram", New Object() {ProcNum, PPName}, Me.SelectPartProgramOperationCompleted, userState)
End Sub
Private Sub OnSelectPartProgramOperationCompleted(ByVal arg As Object)
If (Not (Me.SelectPartProgramCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SelectPartProgramCompleted(Me, New SelectPartProgramCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SelectPartProgramFromDrive-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SelectPartProgramFromDrive(ByVal ProcNum As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PPName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SelectPartProgramFromDrive", New Object() {ProcNum, PPName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SelectPartProgramFromDriveAsync(ByVal ProcNum As UShort, ByVal PPName As String)
Me.SelectPartProgramFromDriveAsync(ProcNum, PPName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SelectPartProgramFromDriveAsync(ByVal ProcNum As UShort, ByVal PPName As String, ByVal userState As Object)
If (Me.SelectPartProgramFromDriveOperationCompleted Is Nothing) Then
Me.SelectPartProgramFromDriveOperationCompleted = AddressOf Me.OnSelectPartProgramFromDriveOperationCompleted
End If
Me.InvokeAsync("SelectPartProgramFromDrive", New Object() {ProcNum, PPName}, Me.SelectPartProgramFromDriveOperationCompleted, userState)
End Sub
Private Sub OnSelectPartProgramFromDriveOperationCompleted(ByVal arg As Object)
If (Not (Me.SelectPartProgramFromDriveCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SelectPartProgramFromDriveCompleted(Me, New SelectPartProgramFromDriveCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetActivePartProgram-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetActivePartProgram(ByVal ProcNum As UShort, ByRef Level As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef Main As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef [Sub] As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetActivePartProgram", New Object() {ProcNum})
Level = CType(results(1),UShort)
Main = CType(results(2),String)
[Sub] = CType(results(3),String)
ErrClass = CType(results(4),UInteger)
ErrNum = CType(results(5),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetActivePartProgramAsync(ByVal ProcNum As UShort)
Me.GetActivePartProgramAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetActivePartProgramAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetActivePartProgramOperationCompleted Is Nothing) Then
Me.GetActivePartProgramOperationCompleted = AddressOf Me.OnGetActivePartProgramOperationCompleted
End If
Me.InvokeAsync("GetActivePartProgram", New Object() {ProcNum}, Me.GetActivePartProgramOperationCompleted, userState)
End Sub
Private Sub OnGetActivePartProgramOperationCompleted(ByVal arg As Object)
If (Not (Me.GetActivePartProgramCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetActivePartProgramCompleted(Me, New GetActivePartProgramCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetActivePartProgramFullPath-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetActivePartProgramFullPath(ByVal ProcNum As UShort, ByRef Level As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef Main As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef [Sub] As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetActivePartProgramFullPath", New Object() {ProcNum})
Level = CType(results(1),UShort)
Main = CType(results(2),String)
[Sub] = CType(results(3),String)
ErrClass = CType(results(4),UInteger)
ErrNum = CType(results(5),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetActivePartProgramFullPathAsync(ByVal ProcNum As UShort)
Me.GetActivePartProgramFullPathAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetActivePartProgramFullPathAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetActivePartProgramFullPathOperationCompleted Is Nothing) Then
Me.GetActivePartProgramFullPathOperationCompleted = AddressOf Me.OnGetActivePartProgramFullPathOperationCompleted
End If
Me.InvokeAsync("GetActivePartProgramFullPath", New Object() {ProcNum}, Me.GetActivePartProgramFullPathOperationCompleted, userState)
End Sub
Private Sub OnGetActivePartProgramFullPathOperationCompleted(ByVal arg As Object)
If (Not (Me.GetActivePartProgramFullPathCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetActivePartProgramFullPathCompleted(Me, New GetActivePartProgramFullPathCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetPartProgramLines-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetPartProgramLines(ByVal ProcNum As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef PPLine1 As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef PPLine2 As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef PPLine3 As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef PPLine4 As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef PPLine5 As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef PPLine6 As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef PPLine7 As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef PPLine8 As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetPartProgramLines", New Object() {ProcNum})
PPLine1 = CType(results(1),String)
PPLine2 = CType(results(2),String)
PPLine3 = CType(results(3),String)
PPLine4 = CType(results(4),String)
PPLine5 = CType(results(5),String)
PPLine6 = CType(results(6),String)
PPLine7 = CType(results(7),String)
PPLine8 = CType(results(8),String)
ErrClass = CType(results(9),UInteger)
ErrNum = CType(results(10),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetPartProgramLinesAsync(ByVal ProcNum As UShort)
Me.GetPartProgramLinesAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetPartProgramLinesAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetPartProgramLinesOperationCompleted Is Nothing) Then
Me.GetPartProgramLinesOperationCompleted = AddressOf Me.OnGetPartProgramLinesOperationCompleted
End If
Me.InvokeAsync("GetPartProgramLines", New Object() {ProcNum}, Me.GetPartProgramLinesOperationCompleted, userState)
End Sub
Private Sub OnGetPartProgramLinesOperationCompleted(ByVal arg As Object)
If (Not (Me.GetPartProgramLinesCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetPartProgramLinesCompleted(Me, New GetPartProgramLinesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetAxOriginNum-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetAxOriginNum(ByVal ProcNum As UShort, ByRef AxesNum As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef AxOriginNum() As AXORIGNUM, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetAxOriginNum", New Object() {ProcNum, AxesNum})
AxesNum = CType(results(1),UShort)
AxOriginNum = CType(results(2),AXORIGNUM())
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetAxOriginNumAsync(ByVal ProcNum As UShort, ByVal AxesNum As UShort)
Me.GetAxOriginNumAsync(ProcNum, AxesNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetAxOriginNumAsync(ByVal ProcNum As UShort, ByVal AxesNum As UShort, ByVal userState As Object)
If (Me.GetAxOriginNumOperationCompleted Is Nothing) Then
Me.GetAxOriginNumOperationCompleted = AddressOf Me.OnGetAxOriginNumOperationCompleted
End If
Me.InvokeAsync("GetAxOriginNum", New Object() {ProcNum, AxesNum}, Me.GetAxOriginNumOperationCompleted, userState)
End Sub
Private Sub OnGetAxOriginNumOperationCompleted(ByVal arg As Object)
If (Not (Me.GetAxOriginNumCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetAxOriginNumCompleted(Me, New GetAxOriginNumCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetAxesPosition-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetAxesPosition(ByVal ProcNum As UShort, ByVal AxisName As Byte, ByVal [Select] As UShort, ByRef NumAxis As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef IntPos() As GETINTDATA, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetAxesPosition", New Object() {ProcNum, AxisName, [Select], NumAxis})
NumAxis = CType(results(1),UShort)
IntPos = CType(results(2),GETINTDATA())
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetAxesPositionAsync(ByVal ProcNum As UShort, ByVal AxisName As Byte, ByVal [Select] As UShort, ByVal NumAxis As UShort)
Me.GetAxesPositionAsync(ProcNum, AxisName, [Select], NumAxis, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetAxesPositionAsync(ByVal ProcNum As UShort, ByVal AxisName As Byte, ByVal [Select] As UShort, ByVal NumAxis As UShort, ByVal userState As Object)
If (Me.GetAxesPositionOperationCompleted Is Nothing) Then
Me.GetAxesPositionOperationCompleted = AddressOf Me.OnGetAxesPositionOperationCompleted
End If
Me.InvokeAsync("GetAxesPosition", New Object() {ProcNum, AxisName, [Select], NumAxis}, Me.GetAxesPositionOperationCompleted, userState)
End Sub
Private Sub OnGetAxesPositionOperationCompleted(ByVal arg As Object)
If (Not (Me.GetAxesPositionCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetAxesPositionCompleted(Me, New GetAxesPositionCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetNcInfo1-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetNcInfo1(ByVal ProcNum As UShort, ByRef GetInfo As GETINFO1DATA, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetNcInfo1", New Object() {ProcNum})
GetInfo = CType(results(1),GETINFO1DATA)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetNcInfo1Async(ByVal ProcNum As UShort)
Me.GetNcInfo1Async(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetNcInfo1Async(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetNcInfo1OperationCompleted Is Nothing) Then
Me.GetNcInfo1OperationCompleted = AddressOf Me.OnGetNcInfo1OperationCompleted
End If
Me.InvokeAsync("GetNcInfo1", New Object() {ProcNum}, Me.GetNcInfo1OperationCompleted, userState)
End Sub
Private Sub OnGetNcInfo1OperationCompleted(ByVal arg As Object)
If (Not (Me.GetNcInfo1CompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetNcInfo1Completed(Me, New GetNcInfo1CompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetNcInfo2-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetNcInfo2(ByVal ProcNum As UShort, ByRef GetInfo As GETINFO2DATA, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetNcInfo2", New Object() {ProcNum})
GetInfo = CType(results(1),GETINFO2DATA)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetNcInfo2Async(ByVal ProcNum As UShort)
Me.GetNcInfo2Async(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetNcInfo2Async(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetNcInfo2OperationCompleted Is Nothing) Then
Me.GetNcInfo2OperationCompleted = AddressOf Me.OnGetNcInfo2OperationCompleted
End If
Me.InvokeAsync("GetNcInfo2", New Object() {ProcNum}, Me.GetNcInfo2OperationCompleted, userState)
End Sub
Private Sub OnGetNcInfo2OperationCompleted(ByVal arg As Object)
If (Not (Me.GetNcInfo2CompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetNcInfo2Completed(Me, New GetNcInfo2CompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetToolNames-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetToolNames(ByVal ProcNum As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef Tool As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef ProgTool As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetToolNames", New Object() {ProcNum})
Tool = CType(results(1),String)
ProgTool = CType(results(2),String)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetToolNamesAsync(ByVal ProcNum As UShort)
Me.GetToolNamesAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetToolNamesAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetToolNamesOperationCompleted Is Nothing) Then
Me.GetToolNamesOperationCompleted = AddressOf Me.OnGetToolNamesOperationCompleted
End If
Me.InvokeAsync("GetToolNames", New Object() {ProcNum}, Me.GetToolNamesOperationCompleted, userState)
End Sub
Private Sub OnGetToolNamesOperationCompleted(ByVal arg As Object)
If (Not (Me.GetToolNamesCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetToolNamesCompleted(Me, New GetToolNamesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetProcessStatus-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetProcessStatus(ByVal ProcNum As UShort, ByRef ProcStat As PROCDATA, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetProcessStatus", New Object() {ProcNum})
ProcStat = CType(results(1),PROCDATA)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetProcessStatusAsync(ByVal ProcNum As UShort)
Me.GetProcessStatusAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetProcessStatusAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetProcessStatusOperationCompleted Is Nothing) Then
Me.GetProcessStatusOperationCompleted = AddressOf Me.OnGetProcessStatusOperationCompleted
End If
Me.InvokeAsync("GetProcessStatus", New Object() {ProcNum}, Me.GetProcessStatusOperationCompleted, userState)
End Sub
Private Sub OnGetProcessStatusOperationCompleted(ByVal arg As Object)
If (Not (Me.GetProcessStatusCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetProcessStatusCompleted(Me, New GetProcessStatusCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetBlkNum-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetBlkNum(ByVal ProcNum As UShort, <System.Xml.Serialization.XmlElementAttribute("GetBlkNum")> ByRef GetBlkNum1 As GETBLKNUMDATA, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetBlkNum", New Object() {ProcNum})
GetBlkNum1 = CType(results(1),GETBLKNUMDATA)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetBlkNumAsync(ByVal ProcNum As UShort)
Me.GetBlkNumAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetBlkNumAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetBlkNumOperationCompleted Is Nothing) Then
Me.GetBlkNumOperationCompleted = AddressOf Me.OnGetBlkNumOperationCompleted
End If
Me.InvokeAsync("GetBlkNum", New Object() {ProcNum}, Me.GetBlkNumOperationCompleted, userState)
End Sub
Private Sub OnGetBlkNumOperationCompleted(ByVal arg As Object)
If (Not (Me.GetBlkNumCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetBlkNumCompleted(Me, New GetBlkNumCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadErrMsg-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadErrMsg(ByVal ProcNum As UShort, ByRef SysErrMsg As ERRMSG, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadErrMsg", New Object() {ProcNum})
SysErrMsg = CType(results(1),ERRMSG)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadErrMsgAsync(ByVal ProcNum As UShort)
Me.ReadErrMsgAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadErrMsgAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.ReadErrMsgOperationCompleted Is Nothing) Then
Me.ReadErrMsgOperationCompleted = AddressOf Me.OnReadErrMsgOperationCompleted
End If
Me.InvokeAsync("ReadErrMsg", New Object() {ProcNum}, Me.ReadErrMsgOperationCompleted, userState)
End Sub
Private Sub OnReadErrMsgOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadErrMsgCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadErrMsgCompleted(Me, New ReadErrMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadPartProgramMsg-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadPartProgramMsg(ByVal ProcNum As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef PartProgramMsg As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadPartProgramMsg", New Object() {ProcNum})
PartProgramMsg = CType(results(1),String)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadPartProgramMsgAsync(ByVal ProcNum As UShort)
Me.ReadPartProgramMsgAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadPartProgramMsgAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.ReadPartProgramMsgOperationCompleted Is Nothing) Then
Me.ReadPartProgramMsgOperationCompleted = AddressOf Me.OnReadPartProgramMsgOperationCompleted
End If
Me.InvokeAsync("ReadPartProgramMsg", New Object() {ProcNum}, Me.ReadPartProgramMsgOperationCompleted, userState)
End Sub
Private Sub OnReadPartProgramMsgOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadPartProgramMsgCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadPartProgramMsgCompleted(Me, New ReadPartProgramMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetGCode-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetGCode(ByVal ProcNum As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef GCode() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetGCode", New Object() {ProcNum})
GCode = CType(results(1),UShort())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetGCodeAsync(ByVal ProcNum As UShort)
Me.GetGCodeAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetGCodeAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetGCodeOperationCompleted Is Nothing) Then
Me.GetGCodeOperationCompleted = AddressOf Me.OnGetGCodeOperationCompleted
End If
Me.InvokeAsync("GetGCode", New Object() {ProcNum}, Me.GetGCodeOperationCompleted, userState)
End Sub
Private Sub OnGetGCodeOperationCompleted(ByVal arg As Object)
If (Not (Me.GetGCodeCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetGCodeCompleted(Me, New GetGCodeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetMCode-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetMCode(ByVal ProcNum As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef MCode() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetMCode", New Object() {ProcNum})
MCode = CType(results(1),UShort())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetMCodeAsync(ByVal ProcNum As UShort)
Me.GetMCodeAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetMCodeAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetMCodeOperationCompleted Is Nothing) Then
Me.GetMCodeOperationCompleted = AddressOf Me.OnGetMCodeOperationCompleted
End If
Me.InvokeAsync("GetMCode", New Object() {ProcNum}, Me.GetMCodeOperationCompleted, userState)
End Sub
Private Sub OnGetMCodeOperationCompleted(ByVal arg As Object)
If (Not (Me.GetMCodeCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetMCodeCompleted(Me, New GetMCodeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SkipPProgBlock-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SkipPProgBlock(ByVal ProcNum As UShort, ByVal NumOfBlocks As UInteger, ByVal Direction As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SkipPProgBlock", New Object() {ProcNum, NumOfBlocks, Direction})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SkipPProgBlockAsync(ByVal ProcNum As UShort, ByVal NumOfBlocks As UInteger, ByVal Direction As UShort)
Me.SkipPProgBlockAsync(ProcNum, NumOfBlocks, Direction, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SkipPProgBlockAsync(ByVal ProcNum As UShort, ByVal NumOfBlocks As UInteger, ByVal Direction As UShort, ByVal userState As Object)
If (Me.SkipPProgBlockOperationCompleted Is Nothing) Then
Me.SkipPProgBlockOperationCompleted = AddressOf Me.OnSkipPProgBlockOperationCompleted
End If
Me.InvokeAsync("SkipPProgBlock", New Object() {ProcNum, NumOfBlocks, Direction}, Me.SkipPProgBlockOperationCompleted, userState)
End Sub
Private Sub OnSkipPProgBlockOperationCompleted(ByVal arg As Object)
If (Not (Me.SkipPProgBlockCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SkipPProgBlockCompleted(Me, New SkipPProgBlockCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="Ese-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function Ese(ByVal ProcNum As UShort, ByVal BlockNum As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("Ese", New Object() {ProcNum, BlockNum})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub EseAsync(ByVal ProcNum As UShort, ByVal BlockNum As UInteger)
Me.EseAsync(ProcNum, BlockNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub EseAsync(ByVal ProcNum As UShort, ByVal BlockNum As UInteger, ByVal userState As Object)
If (Me.EseOperationCompleted Is Nothing) Then
Me.EseOperationCompleted = AddressOf Me.OnEseOperationCompleted
End If
Me.InvokeAsync("Ese", New Object() {ProcNum, BlockNum}, Me.EseOperationCompleted, userState)
End Sub
Private Sub OnEseOperationCompleted(ByVal arg As Object)
If (Not (Me.EseCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent EseCompleted(Me, New EseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="EseEx-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function EseEx(ByVal ProcNum As UShort, ByVal Mode As RCMTOMODE, ByVal Mask As UInteger, ByVal BlockNum As UInteger, ByVal LineNum As UInteger, ByVal BrkVal As UInteger, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal Label As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("EseEx", New Object() {ProcNum, Mode, Mask, BlockNum, LineNum, BrkVal, Label})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub EseExAsync(ByVal ProcNum As UShort, ByVal Mode As RCMTOMODE, ByVal Mask As UInteger, ByVal BlockNum As UInteger, ByVal LineNum As UInteger, ByVal BrkVal As UInteger, ByVal Label As String)
Me.EseExAsync(ProcNum, Mode, Mask, BlockNum, LineNum, BrkVal, Label, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub EseExAsync(ByVal ProcNum As UShort, ByVal Mode As RCMTOMODE, ByVal Mask As UInteger, ByVal BlockNum As UInteger, ByVal LineNum As UInteger, ByVal BrkVal As UInteger, ByVal Label As String, ByVal userState As Object)
If (Me.EseExOperationCompleted Is Nothing) Then
Me.EseExOperationCompleted = AddressOf Me.OnEseExOperationCompleted
End If
Me.InvokeAsync("EseEx", New Object() {ProcNum, Mode, Mask, BlockNum, LineNum, BrkVal, Label}, Me.EseExOperationCompleted, userState)
End Sub
Private Sub OnEseExOperationCompleted(ByVal arg As Object)
If (Not (Me.EseExCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent EseExCompleted(Me, New EseExCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="Exe-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function Exe(ByVal ProcNum As UShort, ByVal Func As UShort, ByVal Mode As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("Exe", New Object() {ProcNum, Func, Mode})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ExeAsync(ByVal ProcNum As UShort, ByVal Func As UShort, ByVal Mode As UShort)
Me.ExeAsync(ProcNum, Func, Mode, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ExeAsync(ByVal ProcNum As UShort, ByVal Func As UShort, ByVal Mode As UShort, ByVal userState As Object)
If (Me.ExeOperationCompleted Is Nothing) Then
Me.ExeOperationCompleted = AddressOf Me.OnExeOperationCompleted
End If
Me.InvokeAsync("Exe", New Object() {ProcNum, Func, Mode}, Me.ExeOperationCompleted, userState)
End Sub
Private Sub OnExeOperationCompleted(ByVal arg As Object)
If (Not (Me.ExeCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ExeCompleted(Me, New ExeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="AxesRef-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function AxesRef(ByVal ProcNum As UShort, ByVal NumAx As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal AxisName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("AxesRef", New Object() {ProcNum, NumAx, AxisName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub AxesRefAsync(ByVal ProcNum As UShort, ByVal NumAx As UShort, ByVal AxisName As String)
Me.AxesRefAsync(ProcNum, NumAx, AxisName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub AxesRefAsync(ByVal ProcNum As UShort, ByVal NumAx As UShort, ByVal AxisName As String, ByVal userState As Object)
If (Me.AxesRefOperationCompleted Is Nothing) Then
Me.AxesRefOperationCompleted = AddressOf Me.OnAxesRefOperationCompleted
End If
Me.InvokeAsync("AxesRef", New Object() {ProcNum, NumAx, AxisName}, Me.AxesRefOperationCompleted, userState)
End Sub
Private Sub OnAxesRefOperationCompleted(ByVal arg As Object)
If (Not (Me.AxesRefCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent AxesRefCompleted(Me, New AxesRefCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="DncInit-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function DncInit(ByVal ProcNum As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("DncInit", New Object() {ProcNum, PathName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub DncInitAsync(ByVal ProcNum As UShort, ByVal PathName As String)
Me.DncInitAsync(ProcNum, PathName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub DncInitAsync(ByVal ProcNum As UShort, ByVal PathName As String, ByVal userState As Object)
If (Me.DncInitOperationCompleted Is Nothing) Then
Me.DncInitOperationCompleted = AddressOf Me.OnDncInitOperationCompleted
End If
Me.InvokeAsync("DncInit", New Object() {ProcNum, PathName}, Me.DncInitOperationCompleted, userState)
End Sub
Private Sub OnDncInitOperationCompleted(ByVal arg As Object)
If (Not (Me.DncInitCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent DncInitCompleted(Me, New DncInitCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="DncData-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function DncData(ByVal ProcNum As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal Data As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("DncData", New Object() {ProcNum, Data})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub DncDataAsync(ByVal ProcNum As UShort, ByVal Data As String)
Me.DncDataAsync(ProcNum, Data, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub DncDataAsync(ByVal ProcNum As UShort, ByVal Data As String, ByVal userState As Object)
If (Me.DncDataOperationCompleted Is Nothing) Then
Me.DncDataOperationCompleted = AddressOf Me.OnDncDataOperationCompleted
End If
Me.InvokeAsync("DncData", New Object() {ProcNum, Data}, Me.DncDataOperationCompleted, userState)
End Sub
Private Sub OnDncDataOperationCompleted(ByVal arg As Object)
If (Not (Me.DncDataCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent DncDataCompleted(Me, New DncDataCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="DncEof-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function DncEof(ByVal ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("DncEof", New Object() {ProcNum})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub DncEofAsync(ByVal ProcNum As UShort)
Me.DncEofAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub DncEofAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.DncEofOperationCompleted Is Nothing) Then
Me.DncEofOperationCompleted = AddressOf Me.OnDncEofOperationCompleted
End If
Me.InvokeAsync("DncEof", New Object() {ProcNum}, Me.DncEofOperationCompleted, userState)
End Sub
Private Sub OnDncEofOperationCompleted(ByVal arg As Object)
If (Not (Me.DncEofCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent DncEofCompleted(Me, New DncEofCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="DncStop-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function DncStop(ByVal ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("DncStop", New Object() {ProcNum})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub DncStopAsync(ByVal ProcNum As UShort)
Me.DncStopAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub DncStopAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.DncStopOperationCompleted Is Nothing) Then
Me.DncStopOperationCompleted = AddressOf Me.OnDncStopOperationCompleted
End If
Me.InvokeAsync("DncStop", New Object() {ProcNum}, Me.DncStopOperationCompleted, userState)
End Sub
Private Sub OnDncStopOperationCompleted(ByVal arg As Object)
If (Not (Me.DncStopCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent DncStopCompleted(Me, New DncStopCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetAxesInfo3-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetAxesInfo3(ByVal AxisId As UShort, ByRef AxesNum As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef AxOwnerList() As UShort, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef AxNameList() As Byte, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef AxType() As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef AxInterface() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetAxesInfo3", New Object() {AxisId, AxesNum})
AxesNum = CType(results(1),UShort)
AxOwnerList = CType(results(2),UShort())
AxNameList = CType(results(3),Byte())
AxType = CType(results(4),UShort())
AxInterface = CType(results(5),UShort())
ErrClass = CType(results(6),UInteger)
ErrNum = CType(results(7),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetAxesInfo3Async(ByVal AxisId As UShort, ByVal AxesNum As UShort)
Me.GetAxesInfo3Async(AxisId, AxesNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetAxesInfo3Async(ByVal AxisId As UShort, ByVal AxesNum As UShort, ByVal userState As Object)
If (Me.GetAxesInfo3OperationCompleted Is Nothing) Then
Me.GetAxesInfo3OperationCompleted = AddressOf Me.OnGetAxesInfo3OperationCompleted
End If
Me.InvokeAsync("GetAxesInfo3", New Object() {AxisId, AxesNum}, Me.GetAxesInfo3OperationCompleted, userState)
End Sub
Private Sub OnGetAxesInfo3OperationCompleted(ByVal arg As Object)
If (Not (Me.GetAxesInfo3CompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetAxesInfo3Completed(Me, New GetAxesInfo3CompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetCodeNumber-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetCodeNumber(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef CodeNumber As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef SwVersion As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetCodeNumber", New Object(-1) {})
CodeNumber = CType(results(1),String)
SwVersion = CType(results(2),String)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetCodeNumberAsync()
Me.GetCodeNumberAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetCodeNumberAsync(ByVal userState As Object)
If (Me.GetCodeNumberOperationCompleted Is Nothing) Then
Me.GetCodeNumberOperationCompleted = AddressOf Me.OnGetCodeNumberOperationCompleted
End If
Me.InvokeAsync("GetCodeNumber", New Object(-1) {}, Me.GetCodeNumberOperationCompleted, userState)
End Sub
Private Sub OnGetCodeNumberOperationCompleted(ByVal arg As Object)
If (Not (Me.GetCodeNumberCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetCodeNumberCompleted(Me, New GetCodeNumberCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetOptions-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetOptions(<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef [Option]() As Byte, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef SecurLevel() As Byte, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef SwVersion As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetOptions", New Object(-1) {})
[Option] = CType(results(1),Byte())
SecurLevel = CType(results(2),Byte())
SwVersion = CType(results(3),String)
ErrClass = CType(results(4),UInteger)
ErrNum = CType(results(5),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetOptionsAsync()
Me.GetOptionsAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetOptionsAsync(ByVal userState As Object)
If (Me.GetOptionsOperationCompleted Is Nothing) Then
Me.GetOptionsOperationCompleted = AddressOf Me.OnGetOptionsOperationCompleted
End If
Me.InvokeAsync("GetOptions", New Object(-1) {}, Me.GetOptionsOperationCompleted, userState)
End Sub
Private Sub OnGetOptionsOperationCompleted(ByVal arg As Object)
If (Not (Me.GetOptionsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetOptionsCompleted(Me, New GetOptionsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetDateTime-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetDateTime(ByRef Year As UShort, ByRef Month As UShort, ByRef Day As UShort, ByRef Hour As UShort, ByRef Minute As UShort, ByRef Second As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetDateTime", New Object(-1) {})
Year = CType(results(1),UShort)
Month = CType(results(2),UShort)
Day = CType(results(3),UShort)
Hour = CType(results(4),UShort)
Minute = CType(results(5),UShort)
Second = CType(results(6),UShort)
ErrClass = CType(results(7),UInteger)
ErrNum = CType(results(8),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetDateTimeAsync()
Me.GetDateTimeAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetDateTimeAsync(ByVal userState As Object)
If (Me.GetDateTimeOperationCompleted Is Nothing) Then
Me.GetDateTimeOperationCompleted = AddressOf Me.OnGetDateTimeOperationCompleted
End If
Me.InvokeAsync("GetDateTime", New Object(-1) {}, Me.GetDateTimeOperationCompleted, userState)
End Sub
Private Sub OnGetDateTimeOperationCompleted(ByVal arg As Object)
If (Not (Me.GetDateTimeCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetDateTimeCompleted(Me, New GetDateTimeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetDateTime-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetDateTime(ByVal Year As UShort, ByVal Month As UShort, ByVal Day As UShort, ByVal Hour As UShort, ByVal Minute As UShort, ByVal Second As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetDateTime", New Object() {Year, Month, Day, Hour, Minute, Second})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetDateTimeAsync(ByVal Year As UShort, ByVal Month As UShort, ByVal Day As UShort, ByVal Hour As UShort, ByVal Minute As UShort, ByVal Second As UShort)
Me.SetDateTimeAsync(Year, Month, Day, Hour, Minute, Second, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetDateTimeAsync(ByVal Year As UShort, ByVal Month As UShort, ByVal Day As UShort, ByVal Hour As UShort, ByVal Minute As UShort, ByVal Second As UShort, ByVal userState As Object)
If (Me.SetDateTimeOperationCompleted Is Nothing) Then
Me.SetDateTimeOperationCompleted = AddressOf Me.OnSetDateTimeOperationCompleted
End If
Me.InvokeAsync("SetDateTime", New Object() {Year, Month, Day, Hour, Minute, Second}, Me.SetDateTimeOperationCompleted, userState)
End Sub
Private Sub OnSetDateTimeOperationCompleted(ByVal arg As Object)
If (Not (Me.SetDateTimeCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetDateTimeCompleted(Me, New SetDateTimeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetSerialNumber-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetSerialNumber(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef SerialNumber As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetSerialNumber", New Object(-1) {})
SerialNumber = CType(results(1),String)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetSerialNumberAsync()
Me.GetSerialNumberAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetSerialNumberAsync(ByVal userState As Object)
If (Me.GetSerialNumberOperationCompleted Is Nothing) Then
Me.GetSerialNumberOperationCompleted = AddressOf Me.OnGetSerialNumberOperationCompleted
End If
Me.InvokeAsync("GetSerialNumber", New Object(-1) {}, Me.GetSerialNumberOperationCompleted, userState)
End Sub
Private Sub OnGetSerialNumberOperationCompleted(ByVal arg As Object)
If (Not (Me.GetSerialNumberCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetSerialNumberCompleted(Me, New GetSerialNumberCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="PutFile-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function PutFile(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal Data As String, ByVal Size As UInteger, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("PutFile", New Object() {Data, Size, PathName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub PutFileAsync(ByVal Data As String, ByVal Size As UInteger, ByVal PathName As String)
Me.PutFileAsync(Data, Size, PathName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub PutFileAsync(ByVal Data As String, ByVal Size As UInteger, ByVal PathName As String, ByVal userState As Object)
If (Me.PutFileOperationCompleted Is Nothing) Then
Me.PutFileOperationCompleted = AddressOf Me.OnPutFileOperationCompleted
End If
Me.InvokeAsync("PutFile", New Object() {Data, Size, PathName}, Me.PutFileOperationCompleted, userState)
End Sub
Private Sub OnPutFileOperationCompleted(ByVal arg As Object)
If (Not (Me.PutFileCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent PutFileCompleted(Me, New PutFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetFile-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetFile(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, ByRef Size As UInteger, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef Data As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetFile", New Object() {PathName, Size})
Size = CType(results(1),UInteger)
Data = CType(results(2),String)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetFileAsync(ByVal PathName As String, ByVal Size As UInteger)
Me.GetFileAsync(PathName, Size, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetFileAsync(ByVal PathName As String, ByVal Size As UInteger, ByVal userState As Object)
If (Me.GetFileOperationCompleted Is Nothing) Then
Me.GetFileOperationCompleted = AddressOf Me.OnGetFileOperationCompleted
End If
Me.InvokeAsync("GetFile", New Object() {PathName, Size}, Me.GetFileOperationCompleted, userState)
End Sub
Private Sub OnGetFileOperationCompleted(ByVal arg As Object)
If (Not (Me.GetFileCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetFileCompleted(Me, New GetFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="PutBinaryFile-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function PutBinaryFile(<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByVal Data() As Byte, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("PutBinaryFile", New Object() {Data, PathName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub PutBinaryFileAsync(ByVal Data() As Byte, ByVal PathName As String)
Me.PutBinaryFileAsync(Data, PathName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub PutBinaryFileAsync(ByVal Data() As Byte, ByVal PathName As String, ByVal userState As Object)
If (Me.PutBinaryFileOperationCompleted Is Nothing) Then
Me.PutBinaryFileOperationCompleted = AddressOf Me.OnPutBinaryFileOperationCompleted
End If
Me.InvokeAsync("PutBinaryFile", New Object() {Data, PathName}, Me.PutBinaryFileOperationCompleted, userState)
End Sub
Private Sub OnPutBinaryFileOperationCompleted(ByVal arg As Object)
If (Not (Me.PutBinaryFileCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent PutBinaryFileCompleted(Me, New PutBinaryFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetBinaryFile-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetBinaryFile(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, ByVal Size As UInteger, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef Data() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetBinaryFile", New Object() {PathName, Size})
Data = CType(results(1),Byte())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetBinaryFileAsync(ByVal PathName As String, ByVal Size As UInteger)
Me.GetBinaryFileAsync(PathName, Size, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetBinaryFileAsync(ByVal PathName As String, ByVal Size As UInteger, ByVal userState As Object)
If (Me.GetBinaryFileOperationCompleted Is Nothing) Then
Me.GetBinaryFileOperationCompleted = AddressOf Me.OnGetBinaryFileOperationCompleted
End If
Me.InvokeAsync("GetBinaryFile", New Object() {PathName, Size}, Me.GetBinaryFileOperationCompleted, userState)
End Sub
Private Sub OnGetBinaryFileOperationCompleted(ByVal arg As Object)
If (Not (Me.GetBinaryFileCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetBinaryFileCompleted(Me, New GetBinaryFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSSetSecurityLevel-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSSetSecurityLevel(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal Password As String, ByVal SecurityLevel As SECURITYLEVEL, ByRef OldSecurityLevel As SECURITYLEVEL, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSSetSecurityLevel", New Object() {Password, SecurityLevel})
OldSecurityLevel = CType(results(1),SECURITYLEVEL)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSSetSecurityLevelAsync(ByVal Password As String, ByVal SecurityLevel As SECURITYLEVEL)
Me.LogFSSetSecurityLevelAsync(Password, SecurityLevel, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSSetSecurityLevelAsync(ByVal Password As String, ByVal SecurityLevel As SECURITYLEVEL, ByVal userState As Object)
If (Me.LogFSSetSecurityLevelOperationCompleted Is Nothing) Then
Me.LogFSSetSecurityLevelOperationCompleted = AddressOf Me.OnLogFSSetSecurityLevelOperationCompleted
End If
Me.InvokeAsync("LogFSSetSecurityLevel", New Object() {Password, SecurityLevel}, Me.LogFSSetSecurityLevelOperationCompleted, userState)
End Sub
Private Sub OnLogFSSetSecurityLevelOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSSetSecurityLevelCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSSetSecurityLevelCompleted(Me, New LogFSSetSecurityLevelCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSGetSecurityLevel-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSGetSecurityLevel(ByRef SecurityLevel As SECURITYLEVEL, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSGetSecurityLevel", New Object(-1) {})
SecurityLevel = CType(results(1),SECURITYLEVEL)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSGetSecurityLevelAsync()
Me.LogFSGetSecurityLevelAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSGetSecurityLevelAsync(ByVal userState As Object)
If (Me.LogFSGetSecurityLevelOperationCompleted Is Nothing) Then
Me.LogFSGetSecurityLevelOperationCompleted = AddressOf Me.OnLogFSGetSecurityLevelOperationCompleted
End If
Me.InvokeAsync("LogFSGetSecurityLevel", New Object(-1) {}, Me.LogFSGetSecurityLevelOperationCompleted, userState)
End Sub
Private Sub OnLogFSGetSecurityLevelOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSGetSecurityLevelCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSGetSecurityLevelCompleted(Me, New LogFSGetSecurityLevelCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSLongFileNames-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSLongFileNames(ByRef UseLongFileNames As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSLongFileNames", New Object(-1) {})
UseLongFileNames = CType(results(1),UShort)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSLongFileNamesAsync()
Me.LogFSLongFileNamesAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSLongFileNamesAsync(ByVal userState As Object)
If (Me.LogFSLongFileNamesOperationCompleted Is Nothing) Then
Me.LogFSLongFileNamesOperationCompleted = AddressOf Me.OnLogFSLongFileNamesOperationCompleted
End If
Me.InvokeAsync("LogFSLongFileNames", New Object(-1) {}, Me.LogFSLongFileNamesOperationCompleted, userState)
End Sub
Private Sub OnLogFSLongFileNamesOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSLongFileNamesCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSLongFileNamesCompleted(Me, New LogFSLongFileNamesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSGetNumDrive-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSGetNumDrive(ByRef NumHiddenDrive As UShort, ByRef NumUserDrive As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSGetNumDrive", New Object(-1) {})
NumHiddenDrive = CType(results(1),UShort)
NumUserDrive = CType(results(2),UShort)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSGetNumDriveAsync()
Me.LogFSGetNumDriveAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSGetNumDriveAsync(ByVal userState As Object)
If (Me.LogFSGetNumDriveOperationCompleted Is Nothing) Then
Me.LogFSGetNumDriveOperationCompleted = AddressOf Me.OnLogFSGetNumDriveOperationCompleted
End If
Me.InvokeAsync("LogFSGetNumDrive", New Object(-1) {}, Me.LogFSGetNumDriveOperationCompleted, userState)
End Sub
Private Sub OnLogFSGetNumDriveOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSGetNumDriveCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSGetNumDriveCompleted(Me, New LogFSGetNumDriveCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSGetDriveList-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSGetDriveList(ByVal Index As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef DriveName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSGetDriveList", New Object() {Index})
DriveName = CType(results(1),String)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSGetDriveListAsync(ByVal Index As UShort)
Me.LogFSGetDriveListAsync(Index, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSGetDriveListAsync(ByVal Index As UShort, ByVal userState As Object)
If (Me.LogFSGetDriveListOperationCompleted Is Nothing) Then
Me.LogFSGetDriveListOperationCompleted = AddressOf Me.OnLogFSGetDriveListOperationCompleted
End If
Me.InvokeAsync("LogFSGetDriveList", New Object() {Index}, Me.LogFSGetDriveListOperationCompleted, userState)
End Sub
Private Sub OnLogFSGetDriveListOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSGetDriveListCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSGetDriveListCompleted(Me, New LogFSGetDriveListCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSGetHiddenDriveList-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSGetHiddenDriveList(ByVal Index As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef DriveName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSGetHiddenDriveList", New Object() {Index})
DriveName = CType(results(1),String)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSGetHiddenDriveListAsync(ByVal Index As UShort)
Me.LogFSGetHiddenDriveListAsync(Index, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSGetHiddenDriveListAsync(ByVal Index As UShort, ByVal userState As Object)
If (Me.LogFSGetHiddenDriveListOperationCompleted Is Nothing) Then
Me.LogFSGetHiddenDriveListOperationCompleted = AddressOf Me.OnLogFSGetHiddenDriveListOperationCompleted
End If
Me.InvokeAsync("LogFSGetHiddenDriveList", New Object() {Index}, Me.LogFSGetHiddenDriveListOperationCompleted, userState)
End Sub
Private Sub OnLogFSGetHiddenDriveListOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSGetHiddenDriveListCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSGetHiddenDriveListCompleted(Me, New LogFSGetHiddenDriveListCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSGetDrivePath-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSGetDrivePath(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal DriveName As String, ByVal SecurityLevel As SECURITYLEVEL, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef DrivePath As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSGetDrivePath", New Object() {DriveName, SecurityLevel})
DrivePath = CType(results(1),String)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSGetDrivePathAsync(ByVal DriveName As String, ByVal SecurityLevel As SECURITYLEVEL)
Me.LogFSGetDrivePathAsync(DriveName, SecurityLevel, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSGetDrivePathAsync(ByVal DriveName As String, ByVal SecurityLevel As SECURITYLEVEL, ByVal userState As Object)
If (Me.LogFSGetDrivePathOperationCompleted Is Nothing) Then
Me.LogFSGetDrivePathOperationCompleted = AddressOf Me.OnLogFSGetDrivePathOperationCompleted
End If
Me.InvokeAsync("LogFSGetDrivePath", New Object() {DriveName, SecurityLevel}, Me.LogFSGetDrivePathOperationCompleted, userState)
End Sub
Private Sub OnLogFSGetDrivePathOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSGetDrivePathCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSGetDrivePathCompleted(Me, New LogFSGetDrivePathCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSAddDrive-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSAddDrive(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal DriveName As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, ByVal Temporary As Boolean, ByVal SecurityLevel As SECURITYLEVEL, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSAddDrive", New Object() {DriveName, PathName, Temporary, SecurityLevel})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSAddDriveAsync(ByVal DriveName As String, ByVal PathName As String, ByVal Temporary As Boolean, ByVal SecurityLevel As SECURITYLEVEL)
Me.LogFSAddDriveAsync(DriveName, PathName, Temporary, SecurityLevel, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSAddDriveAsync(ByVal DriveName As String, ByVal PathName As String, ByVal Temporary As Boolean, ByVal SecurityLevel As SECURITYLEVEL, ByVal userState As Object)
If (Me.LogFSAddDriveOperationCompleted Is Nothing) Then
Me.LogFSAddDriveOperationCompleted = AddressOf Me.OnLogFSAddDriveOperationCompleted
End If
Me.InvokeAsync("LogFSAddDrive", New Object() {DriveName, PathName, Temporary, SecurityLevel}, Me.LogFSAddDriveOperationCompleted, userState)
End Sub
Private Sub OnLogFSAddDriveOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSAddDriveCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSAddDriveCompleted(Me, New LogFSAddDriveCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSRemoveDrive-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSRemoveDrive(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal DriveName As String, ByVal SecurityLevel As SECURITYLEVEL, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSRemoveDrive", New Object() {DriveName, SecurityLevel})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSRemoveDriveAsync(ByVal DriveName As String, ByVal SecurityLevel As SECURITYLEVEL)
Me.LogFSRemoveDriveAsync(DriveName, SecurityLevel, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSRemoveDriveAsync(ByVal DriveName As String, ByVal SecurityLevel As SECURITYLEVEL, ByVal userState As Object)
If (Me.LogFSRemoveDriveOperationCompleted Is Nothing) Then
Me.LogFSRemoveDriveOperationCompleted = AddressOf Me.OnLogFSRemoveDriveOperationCompleted
End If
Me.InvokeAsync("LogFSRemoveDrive", New Object() {DriveName, SecurityLevel}, Me.LogFSRemoveDriveOperationCompleted, userState)
End Sub
Private Sub OnLogFSRemoveDriveOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSRemoveDriveCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSRemoveDriveCompleted(Me, New LogFSRemoveDriveCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSReloadDriveList-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSReloadDriveList(ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSReloadDriveList", New Object(-1) {})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSReloadDriveListAsync()
Me.LogFSReloadDriveListAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSReloadDriveListAsync(ByVal userState As Object)
If (Me.LogFSReloadDriveListOperationCompleted Is Nothing) Then
Me.LogFSReloadDriveListOperationCompleted = AddressOf Me.OnLogFSReloadDriveListOperationCompleted
End If
Me.InvokeAsync("LogFSReloadDriveList", New Object(-1) {}, Me.LogFSReloadDriveListOperationCompleted, userState)
End Sub
Private Sub OnLogFSReloadDriveListOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSReloadDriveListCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSReloadDriveListCompleted(Me, New LogFSReloadDriveListCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSCreateDir-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSCreateDir(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSCreateDir", New Object() {PathName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSCreateDirAsync(ByVal PathName As String)
Me.LogFSCreateDirAsync(PathName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSCreateDirAsync(ByVal PathName As String, ByVal userState As Object)
If (Me.LogFSCreateDirOperationCompleted Is Nothing) Then
Me.LogFSCreateDirOperationCompleted = AddressOf Me.OnLogFSCreateDirOperationCompleted
End If
Me.InvokeAsync("LogFSCreateDir", New Object() {PathName}, Me.LogFSCreateDirOperationCompleted, userState)
End Sub
Private Sub OnLogFSCreateDirOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSCreateDirCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSCreateDirCompleted(Me, New LogFSCreateDirCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSCreateFile-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSCreateFile(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSCreateFile", New Object() {PathName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSCreateFileAsync(ByVal PathName As String)
Me.LogFSCreateFileAsync(PathName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSCreateFileAsync(ByVal PathName As String, ByVal userState As Object)
If (Me.LogFSCreateFileOperationCompleted Is Nothing) Then
Me.LogFSCreateFileOperationCompleted = AddressOf Me.OnLogFSCreateFileOperationCompleted
End If
Me.InvokeAsync("LogFSCreateFile", New Object() {PathName}, Me.LogFSCreateFileOperationCompleted, userState)
End Sub
Private Sub OnLogFSCreateFileOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSCreateFileCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSCreateFileCompleted(Me, New LogFSCreateFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSGetFileSize-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSGetFileSize(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, ByRef Size As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSGetFileSize", New Object() {PathName})
Size = CType(results(1),UInteger)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSGetFileSizeAsync(ByVal PathName As String)
Me.LogFSGetFileSizeAsync(PathName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSGetFileSizeAsync(ByVal PathName As String, ByVal userState As Object)
If (Me.LogFSGetFileSizeOperationCompleted Is Nothing) Then
Me.LogFSGetFileSizeOperationCompleted = AddressOf Me.OnLogFSGetFileSizeOperationCompleted
End If
Me.InvokeAsync("LogFSGetFileSize", New Object() {PathName}, Me.LogFSGetFileSizeOperationCompleted, userState)
End Sub
Private Sub OnLogFSGetFileSizeOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSGetFileSizeCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSGetFileSizeCompleted(Me, New LogFSGetFileSizeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSGetFileAttrib-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSGetFileAttrib(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, ByRef Attrib As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSGetFileAttrib", New Object() {PathName})
Attrib = CType(results(1),UInteger)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSGetFileAttribAsync(ByVal PathName As String)
Me.LogFSGetFileAttribAsync(PathName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSGetFileAttribAsync(ByVal PathName As String, ByVal userState As Object)
If (Me.LogFSGetFileAttribOperationCompleted Is Nothing) Then
Me.LogFSGetFileAttribOperationCompleted = AddressOf Me.OnLogFSGetFileAttribOperationCompleted
End If
Me.InvokeAsync("LogFSGetFileAttrib", New Object() {PathName}, Me.LogFSGetFileAttribOperationCompleted, userState)
End Sub
Private Sub OnLogFSGetFileAttribOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSGetFileAttribCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSGetFileAttribCompleted(Me, New LogFSGetFileAttribCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSSetFileAttrib-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSSetFileAttrib(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, ByVal Attrib As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSSetFileAttrib", New Object() {PathName, Attrib})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSSetFileAttribAsync(ByVal PathName As String, ByVal Attrib As UInteger)
Me.LogFSSetFileAttribAsync(PathName, Attrib, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSSetFileAttribAsync(ByVal PathName As String, ByVal Attrib As UInteger, ByVal userState As Object)
If (Me.LogFSSetFileAttribOperationCompleted Is Nothing) Then
Me.LogFSSetFileAttribOperationCompleted = AddressOf Me.OnLogFSSetFileAttribOperationCompleted
End If
Me.InvokeAsync("LogFSSetFileAttrib", New Object() {PathName, Attrib}, Me.LogFSSetFileAttribOperationCompleted, userState)
End Sub
Private Sub OnLogFSSetFileAttribOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSSetFileAttribCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSSetFileAttribCompleted(Me, New LogFSSetFileAttribCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSChangeFileAttrib-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSChangeFileAttrib(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, ByVal Add As UInteger, ByVal Remove As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSChangeFileAttrib", New Object() {PathName, Add, Remove})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSChangeFileAttribAsync(ByVal PathName As String, ByVal Add As UInteger, ByVal Remove As UInteger)
Me.LogFSChangeFileAttribAsync(PathName, Add, Remove, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSChangeFileAttribAsync(ByVal PathName As String, ByVal Add As UInteger, ByVal Remove As UInteger, ByVal userState As Object)
If (Me.LogFSChangeFileAttribOperationCompleted Is Nothing) Then
Me.LogFSChangeFileAttribOperationCompleted = AddressOf Me.OnLogFSChangeFileAttribOperationCompleted
End If
Me.InvokeAsync("LogFSChangeFileAttrib", New Object() {PathName, Add, Remove}, Me.LogFSChangeFileAttribOperationCompleted, userState)
End Sub
Private Sub OnLogFSChangeFileAttribOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSChangeFileAttribCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSChangeFileAttribCompleted(Me, New LogFSChangeFileAttribCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSFindFirst-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSFindFirst(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal FileName As String, ByRef FindData As FILEFINDDATA, ByRef Finder As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSFindFirst", New Object() {FileName})
FindData = CType(results(1),FILEFINDDATA)
Finder = CType(results(2),UInteger)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSFindFirstAsync(ByVal FileName As String)
Me.LogFSFindFirstAsync(FileName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSFindFirstAsync(ByVal FileName As String, ByVal userState As Object)
If (Me.LogFSFindFirstOperationCompleted Is Nothing) Then
Me.LogFSFindFirstOperationCompleted = AddressOf Me.OnLogFSFindFirstOperationCompleted
End If
Me.InvokeAsync("LogFSFindFirst", New Object() {FileName}, Me.LogFSFindFirstOperationCompleted, userState)
End Sub
Private Sub OnLogFSFindFirstOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSFindFirstCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSFindFirstCompleted(Me, New LogFSFindFirstCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSFindNext-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSFindNext(ByVal Finder As UInteger, ByRef FindData As FILEFINDDATA, ByRef Found As Boolean, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSFindNext", New Object() {Finder})
FindData = CType(results(1),FILEFINDDATA)
Found = CType(results(2),Boolean)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSFindNextAsync(ByVal Finder As UInteger)
Me.LogFSFindNextAsync(Finder, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSFindNextAsync(ByVal Finder As UInteger, ByVal userState As Object)
If (Me.LogFSFindNextOperationCompleted Is Nothing) Then
Me.LogFSFindNextOperationCompleted = AddressOf Me.OnLogFSFindNextOperationCompleted
End If
Me.InvokeAsync("LogFSFindNext", New Object() {Finder}, Me.LogFSFindNextOperationCompleted, userState)
End Sub
Private Sub OnLogFSFindNextOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSFindNextCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSFindNextCompleted(Me, New LogFSFindNextCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSFindClose-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSFindClose(ByVal Finder As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSFindClose", New Object() {Finder})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSFindCloseAsync(ByVal Finder As UInteger)
Me.LogFSFindCloseAsync(Finder, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSFindCloseAsync(ByVal Finder As UInteger, ByVal userState As Object)
If (Me.LogFSFindCloseOperationCompleted Is Nothing) Then
Me.LogFSFindCloseOperationCompleted = AddressOf Me.OnLogFSFindCloseOperationCompleted
End If
Me.InvokeAsync("LogFSFindClose", New Object() {Finder}, Me.LogFSFindCloseOperationCompleted, userState)
End Sub
Private Sub OnLogFSFindCloseOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSFindCloseCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSFindCloseCompleted(Me, New LogFSFindCloseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSRemoveFile-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSRemoveFile(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal FileName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSRemoveFile", New Object() {PathName, FileName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSRemoveFileAsync(ByVal PathName As String, ByVal FileName As String)
Me.LogFSRemoveFileAsync(PathName, FileName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSRemoveFileAsync(ByVal PathName As String, ByVal FileName As String, ByVal userState As Object)
If (Me.LogFSRemoveFileOperationCompleted Is Nothing) Then
Me.LogFSRemoveFileOperationCompleted = AddressOf Me.OnLogFSRemoveFileOperationCompleted
End If
Me.InvokeAsync("LogFSRemoveFile", New Object() {PathName, FileName}, Me.LogFSRemoveFileOperationCompleted, userState)
End Sub
Private Sub OnLogFSRemoveFileOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSRemoveFileCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSRemoveFileCompleted(Me, New LogFSRemoveFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSRemoveDir-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSRemoveDir(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSRemoveDir", New Object() {PathName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSRemoveDirAsync(ByVal PathName As String)
Me.LogFSRemoveDirAsync(PathName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSRemoveDirAsync(ByVal PathName As String, ByVal userState As Object)
If (Me.LogFSRemoveDirOperationCompleted Is Nothing) Then
Me.LogFSRemoveDirOperationCompleted = AddressOf Me.OnLogFSRemoveDirOperationCompleted
End If
Me.InvokeAsync("LogFSRemoveDir", New Object() {PathName}, Me.LogFSRemoveDirOperationCompleted, userState)
End Sub
Private Sub OnLogFSRemoveDirOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSRemoveDirCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSRemoveDirCompleted(Me, New LogFSRemoveDirCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSRename-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSRename(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal NewPathName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSRename", New Object() {PathName, NewPathName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSRenameAsync(ByVal PathName As String, ByVal NewPathName As String)
Me.LogFSRenameAsync(PathName, NewPathName, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSRenameAsync(ByVal PathName As String, ByVal NewPathName As String, ByVal userState As Object)
If (Me.LogFSRenameOperationCompleted Is Nothing) Then
Me.LogFSRenameOperationCompleted = AddressOf Me.OnLogFSRenameOperationCompleted
End If
Me.InvokeAsync("LogFSRename", New Object() {PathName, NewPathName}, Me.LogFSRenameOperationCompleted, userState)
End Sub
Private Sub OnLogFSRenameOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSRenameCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSRenameCompleted(Me, New LogFSRenameCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSCopyFile-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSCopyFile(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal NewPathName As String, ByVal FailIfExists As Boolean, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSCopyFile", New Object() {PathName, NewPathName, FailIfExists})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSCopyFileAsync(ByVal PathName As String, ByVal NewPathName As String, ByVal FailIfExists As Boolean)
Me.LogFSCopyFileAsync(PathName, NewPathName, FailIfExists, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSCopyFileAsync(ByVal PathName As String, ByVal NewPathName As String, ByVal FailIfExists As Boolean, ByVal userState As Object)
If (Me.LogFSCopyFileOperationCompleted Is Nothing) Then
Me.LogFSCopyFileOperationCompleted = AddressOf Me.OnLogFSCopyFileOperationCompleted
End If
Me.InvokeAsync("LogFSCopyFile", New Object() {PathName, NewPathName, FailIfExists}, Me.LogFSCopyFileOperationCompleted, userState)
End Sub
Private Sub OnLogFSCopyFileOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSCopyFileCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSCopyFileCompleted(Me, New LogFSCopyFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSGetInfo-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSGetInfo(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, ByVal Selector As UInteger, ByVal ItemCounter As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef Buffer() As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSGetInfo", New Object() {PathName, Selector, ItemCounter})
Buffer = CType(results(1),UInteger())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSGetInfoAsync(ByVal PathName As String, ByVal Selector As UInteger, ByVal ItemCounter As UShort)
Me.LogFSGetInfoAsync(PathName, Selector, ItemCounter, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSGetInfoAsync(ByVal PathName As String, ByVal Selector As UInteger, ByVal ItemCounter As UShort, ByVal userState As Object)
If (Me.LogFSGetInfoOperationCompleted Is Nothing) Then
Me.LogFSGetInfoOperationCompleted = AddressOf Me.OnLogFSGetInfoOperationCompleted
End If
Me.InvokeAsync("LogFSGetInfo", New Object() {PathName, Selector, ItemCounter}, Me.LogFSGetInfoOperationCompleted, userState)
End Sub
Private Sub OnLogFSGetInfoOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSGetInfoCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSGetInfoCompleted(Me, New LogFSGetInfoCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSOpenFile-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSOpenFile(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PathName As String, ByVal WriteMode As Boolean, ByVal DOSDateLastWrite As UShort, ByVal DOSTimeLastWrite As UShort, ByRef FileID As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSOpenFile", New Object() {PathName, WriteMode, DOSDateLastWrite, DOSTimeLastWrite})
FileID = CType(results(1),UShort)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSOpenFileAsync(ByVal PathName As String, ByVal WriteMode As Boolean, ByVal DOSDateLastWrite As UShort, ByVal DOSTimeLastWrite As UShort)
Me.LogFSOpenFileAsync(PathName, WriteMode, DOSDateLastWrite, DOSTimeLastWrite, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSOpenFileAsync(ByVal PathName As String, ByVal WriteMode As Boolean, ByVal DOSDateLastWrite As UShort, ByVal DOSTimeLastWrite As UShort, ByVal userState As Object)
If (Me.LogFSOpenFileOperationCompleted Is Nothing) Then
Me.LogFSOpenFileOperationCompleted = AddressOf Me.OnLogFSOpenFileOperationCompleted
End If
Me.InvokeAsync("LogFSOpenFile", New Object() {PathName, WriteMode, DOSDateLastWrite, DOSTimeLastWrite}, Me.LogFSOpenFileOperationCompleted, userState)
End Sub
Private Sub OnLogFSOpenFileOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSOpenFileCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSOpenFileCompleted(Me, New LogFSOpenFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSCloseFile-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSCloseFile(ByRef FileID As UShort, ByVal Transaction As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSCloseFile", New Object() {FileID, Transaction})
FileID = CType(results(1),UShort)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSCloseFileAsync(ByVal FileID As UShort, ByVal Transaction As UShort)
Me.LogFSCloseFileAsync(FileID, Transaction, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSCloseFileAsync(ByVal FileID As UShort, ByVal Transaction As UShort, ByVal userState As Object)
If (Me.LogFSCloseFileOperationCompleted Is Nothing) Then
Me.LogFSCloseFileOperationCompleted = AddressOf Me.OnLogFSCloseFileOperationCompleted
End If
Me.InvokeAsync("LogFSCloseFile", New Object() {FileID, Transaction}, Me.LogFSCloseFileOperationCompleted, userState)
End Sub
Private Sub OnLogFSCloseFileOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSCloseFileCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSCloseFileCompleted(Me, New LogFSCloseFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetSysTick-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetSysTick(ByRef SysTick As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetSysTick", New Object(-1) {})
SysTick = CType(results(1),Double)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetSysTickAsync()
Me.GetSysTickAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetSysTickAsync(ByVal userState As Object)
If (Me.GetSysTickOperationCompleted Is Nothing) Then
Me.GetSysTickOperationCompleted = AddressOf Me.OnGetSysTickOperationCompleted
End If
Me.InvokeAsync("GetSysTick", New Object(-1) {}, Me.GetSysTickOperationCompleted, userState)
End Sub
Private Sub OnGetSysTickOperationCompleted(ByVal arg As Object)
If (Not (Me.GetSysTickCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetSysTickCompleted(Me, New GetSysTickCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetProcessConfNum-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetProcessConfNum(ByRef ProcessConfNum As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetProcessConfNum", New Object(-1) {})
ProcessConfNum = CType(results(1),Byte)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetProcessConfNumAsync()
Me.GetProcessConfNumAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetProcessConfNumAsync(ByVal userState As Object)
If (Me.GetProcessConfNumOperationCompleted Is Nothing) Then
Me.GetProcessConfNumOperationCompleted = AddressOf Me.OnGetProcessConfNumOperationCompleted
End If
Me.InvokeAsync("GetProcessConfNum", New Object(-1) {}, Me.GetProcessConfNumOperationCompleted, userState)
End Sub
Private Sub OnGetProcessConfNumOperationCompleted(ByVal arg As Object)
If (Not (Me.GetProcessConfNumCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetProcessConfNumCompleted(Me, New GetProcessConfNumCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="CheckHistory-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function CheckHistory(<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef ThisBootMsgCounter() As UInteger, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef AllBootMsgCounter() As UInteger, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef ThisBootID() As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("CheckHistory", New Object(-1) {})
ThisBootMsgCounter = CType(results(1),UInteger())
AllBootMsgCounter = CType(results(2),UInteger())
ThisBootID = CType(results(3),UInteger())
ErrClass = CType(results(4),UInteger)
ErrNum = CType(results(5),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub CheckHistoryAsync()
Me.CheckHistoryAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub CheckHistoryAsync(ByVal userState As Object)
If (Me.CheckHistoryOperationCompleted Is Nothing) Then
Me.CheckHistoryOperationCompleted = AddressOf Me.OnCheckHistoryOperationCompleted
End If
Me.InvokeAsync("CheckHistory", New Object(-1) {}, Me.CheckHistoryOperationCompleted, userState)
End Sub
Private Sub OnCheckHistoryOperationCompleted(ByVal arg As Object)
If (Not (Me.CheckHistoryCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent CheckHistoryCompleted(Me, New CheckHistoryCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadHistoryEmergMsg-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadHistoryEmergMsg(ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByRef Data As MSGEMERGENCY, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadHistoryEmergMsg", New Object() {ReadMode, RecNum})
Data = CType(results(1),MSGEMERGENCY)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadHistoryEmergMsgAsync(ByVal ReadMode As Integer, ByVal RecNum As UInteger)
Me.ReadHistoryEmergMsgAsync(ReadMode, RecNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadHistoryEmergMsgAsync(ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByVal userState As Object)
If (Me.ReadHistoryEmergMsgOperationCompleted Is Nothing) Then
Me.ReadHistoryEmergMsgOperationCompleted = AddressOf Me.OnReadHistoryEmergMsgOperationCompleted
End If
Me.InvokeAsync("ReadHistoryEmergMsg", New Object() {ReadMode, RecNum}, Me.ReadHistoryEmergMsgOperationCompleted, userState)
End Sub
Private Sub OnReadHistoryEmergMsgOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadHistoryEmergMsgCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadHistoryEmergMsgCompleted(Me, New ReadHistoryEmergMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadHistoryErrorMsg-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadHistoryErrorMsg(ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByRef Data As MSGERROR, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadHistoryErrorMsg", New Object() {ReadMode, RecNum})
Data = CType(results(1),MSGERROR)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadHistoryErrorMsgAsync(ByVal ReadMode As Integer, ByVal RecNum As UInteger)
Me.ReadHistoryErrorMsgAsync(ReadMode, RecNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadHistoryErrorMsgAsync(ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByVal userState As Object)
If (Me.ReadHistoryErrorMsgOperationCompleted Is Nothing) Then
Me.ReadHistoryErrorMsgOperationCompleted = AddressOf Me.OnReadHistoryErrorMsgOperationCompleted
End If
Me.InvokeAsync("ReadHistoryErrorMsg", New Object() {ReadMode, RecNum}, Me.ReadHistoryErrorMsgOperationCompleted, userState)
End Sub
Private Sub OnReadHistoryErrorMsgOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadHistoryErrorMsgCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadHistoryErrorMsgCompleted(Me, New ReadHistoryErrorMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadHistoryLogMsg-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadHistoryLogMsg(ByVal NoHistory As Integer, ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByRef Data As MSGLOGS, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadHistoryLogMsg", New Object() {NoHistory, ReadMode, RecNum})
Data = CType(results(1),MSGLOGS)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadHistoryLogMsgAsync(ByVal NoHistory As Integer, ByVal ReadMode As Integer, ByVal RecNum As UInteger)
Me.ReadHistoryLogMsgAsync(NoHistory, ReadMode, RecNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadHistoryLogMsgAsync(ByVal NoHistory As Integer, ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByVal userState As Object)
If (Me.ReadHistoryLogMsgOperationCompleted Is Nothing) Then
Me.ReadHistoryLogMsgOperationCompleted = AddressOf Me.OnReadHistoryLogMsgOperationCompleted
End If
Me.InvokeAsync("ReadHistoryLogMsg", New Object() {NoHistory, ReadMode, RecNum}, Me.ReadHistoryLogMsgOperationCompleted, userState)
End Sub
Private Sub OnReadHistoryLogMsgOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadHistoryLogMsgCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadHistoryLogMsgCompleted(Me, New ReadHistoryLogMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadHistoryAnomalyMsg-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadHistoryAnomalyMsg(ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByRef Data As MSGANOMALY, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadHistoryAnomalyMsg", New Object() {ReadMode, RecNum})
Data = CType(results(1),MSGANOMALY)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadHistoryAnomalyMsgAsync(ByVal ReadMode As Integer, ByVal RecNum As UInteger)
Me.ReadHistoryAnomalyMsgAsync(ReadMode, RecNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadHistoryAnomalyMsgAsync(ByVal ReadMode As Integer, ByVal RecNum As UInteger, ByVal userState As Object)
If (Me.ReadHistoryAnomalyMsgOperationCompleted Is Nothing) Then
Me.ReadHistoryAnomalyMsgOperationCompleted = AddressOf Me.OnReadHistoryAnomalyMsgOperationCompleted
End If
Me.InvokeAsync("ReadHistoryAnomalyMsg", New Object() {ReadMode, RecNum}, Me.ReadHistoryAnomalyMsgOperationCompleted, userState)
End Sub
Private Sub OnReadHistoryAnomalyMsgOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadHistoryAnomalyMsgCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadHistoryAnomalyMsgCompleted(Me, New ReadHistoryAnomalyMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadCurrentErrorMsg-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadCurrentErrorMsg(ByVal Process As UShort, ByRef Data As MSGERROR, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadCurrentErrorMsg", New Object() {Process})
Data = CType(results(1),MSGERROR)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadCurrentErrorMsgAsync(ByVal Process As UShort)
Me.ReadCurrentErrorMsgAsync(Process, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadCurrentErrorMsgAsync(ByVal Process As UShort, ByVal userState As Object)
If (Me.ReadCurrentErrorMsgOperationCompleted Is Nothing) Then
Me.ReadCurrentErrorMsgOperationCompleted = AddressOf Me.OnReadCurrentErrorMsgOperationCompleted
End If
Me.InvokeAsync("ReadCurrentErrorMsg", New Object() {Process}, Me.ReadCurrentErrorMsgOperationCompleted, userState)
End Sub
Private Sub OnReadCurrentErrorMsgOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadCurrentErrorMsgCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadCurrentErrorMsgCompleted(Me, New ReadCurrentErrorMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadCurrentEmergMsg-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadCurrentEmergMsg(ByVal Process As UShort, ByRef Data As MSGEMERGENCY, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadCurrentEmergMsg", New Object() {Process})
Data = CType(results(1),MSGEMERGENCY)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadCurrentEmergMsgAsync(ByVal Process As UShort)
Me.ReadCurrentEmergMsgAsync(Process, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadCurrentEmergMsgAsync(ByVal Process As UShort, ByVal userState As Object)
If (Me.ReadCurrentEmergMsgOperationCompleted Is Nothing) Then
Me.ReadCurrentEmergMsgOperationCompleted = AddressOf Me.OnReadCurrentEmergMsgOperationCompleted
End If
Me.InvokeAsync("ReadCurrentEmergMsg", New Object() {Process}, Me.ReadCurrentEmergMsgOperationCompleted, userState)
End Sub
Private Sub OnReadCurrentEmergMsgOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadCurrentEmergMsgCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadCurrentEmergMsgCompleted(Me, New ReadCurrentEmergMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadCurrentAnomalyMsg-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadCurrentAnomalyMsg(ByRef Data As MSGANOMALY, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadCurrentAnomalyMsg", New Object(-1) {})
Data = CType(results(1),MSGANOMALY)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadCurrentAnomalyMsgAsync()
Me.ReadCurrentAnomalyMsgAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadCurrentAnomalyMsgAsync(ByVal userState As Object)
If (Me.ReadCurrentAnomalyMsgOperationCompleted Is Nothing) Then
Me.ReadCurrentAnomalyMsgOperationCompleted = AddressOf Me.OnReadCurrentAnomalyMsgOperationCompleted
End If
Me.InvokeAsync("ReadCurrentAnomalyMsg", New Object(-1) {}, Me.ReadCurrentAnomalyMsgOperationCompleted, userState)
End Sub
Private Sub OnReadCurrentAnomalyMsgOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadCurrentAnomalyMsgCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadCurrentAnomalyMsgCompleted(Me, New ReadCurrentAnomalyMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetPTechSizes-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetPTechSizes(ByVal Process As UShort, ByRef Ind1 As UShort, ByRef Ind2 As UShort, ByRef Ind3 As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetPTechSizes", New Object() {Process})
Ind1 = CType(results(1),UShort)
Ind2 = CType(results(2),UShort)
Ind3 = CType(results(3),UShort)
ErrClass = CType(results(4),UInteger)
ErrNum = CType(results(5),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetPTechSizesAsync(ByVal Process As UShort)
Me.GetPTechSizesAsync(Process, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetPTechSizesAsync(ByVal Process As UShort, ByVal userState As Object)
If (Me.GetPTechSizesOperationCompleted Is Nothing) Then
Me.GetPTechSizesOperationCompleted = AddressOf Me.OnGetPTechSizesOperationCompleted
End If
Me.InvokeAsync("GetPTechSizes", New Object() {Process}, Me.GetPTechSizesOperationCompleted, userState)
End Sub
Private Sub OnGetPTechSizesOperationCompleted(ByVal arg As Object)
If (Not (Me.GetPTechSizesCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetPTechSizesCompleted(Me, New GetPTechSizesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LoadPTech-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LoadPTech(ByVal Process As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PPPathName As String, ByVal WriteMode As UShort, ByVal Sheet As UShort, ByVal Line As UShort, ByVal Column As UShort, ByVal NumVar As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByVal Data() As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LoadPTech", New Object() {Process, PPPathName, WriteMode, Sheet, Line, Column, NumVar, Data})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LoadPTechAsync(ByVal Process As UShort, ByVal PPPathName As String, ByVal WriteMode As UShort, ByVal Sheet As UShort, ByVal Line As UShort, ByVal Column As UShort, ByVal NumVar As UShort, ByVal Data() As Double)
Me.LoadPTechAsync(Process, PPPathName, WriteMode, Sheet, Line, Column, NumVar, Data, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LoadPTechAsync(ByVal Process As UShort, ByVal PPPathName As String, ByVal WriteMode As UShort, ByVal Sheet As UShort, ByVal Line As UShort, ByVal Column As UShort, ByVal NumVar As UShort, ByVal Data() As Double, ByVal userState As Object)
If (Me.LoadPTechOperationCompleted Is Nothing) Then
Me.LoadPTechOperationCompleted = AddressOf Me.OnLoadPTechOperationCompleted
End If
Me.InvokeAsync("LoadPTech", New Object() {Process, PPPathName, WriteMode, Sheet, Line, Column, NumVar, Data}, Me.LoadPTechOperationCompleted, userState)
End Sub
Private Sub OnLoadPTechOperationCompleted(ByVal arg As Object)
If (Not (Me.LoadPTechCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LoadPTechCompleted(Me, New LoadPTechCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetMarkerInfo-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetMarkerInfo(ByVal Process As UShort, ByVal Request As Byte, ByRef MarkerInfo As MARKERINFO, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetMarkerInfo", New Object() {Process, Request})
MarkerInfo = CType(results(1),MARKERINFO)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetMarkerInfoAsync(ByVal Process As UShort, ByVal Request As Byte)
Me.GetMarkerInfoAsync(Process, Request, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetMarkerInfoAsync(ByVal Process As UShort, ByVal Request As Byte, ByVal userState As Object)
If (Me.GetMarkerInfoOperationCompleted Is Nothing) Then
Me.GetMarkerInfoOperationCompleted = AddressOf Me.OnGetMarkerInfoOperationCompleted
End If
Me.InvokeAsync("GetMarkerInfo", New Object() {Process, Request}, Me.GetMarkerInfoOperationCompleted, userState)
End Sub
Private Sub OnGetMarkerInfoOperationCompleted(ByVal arg As Object)
If (Not (Me.GetMarkerInfoCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetMarkerInfoCompleted(Me, New GetMarkerInfoCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ManagePartProgram-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ManagePartProgram(ByVal Process As UShort, ByVal Mode As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal PPPath As String, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef ErrString() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ManagePartProgram", New Object() {Process, Mode, PPPath})
ErrString = CType(results(1),Byte())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ManagePartProgramAsync(ByVal Process As UShort, ByVal Mode As UShort, ByVal PPPath As String)
Me.ManagePartProgramAsync(Process, Mode, PPPath, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ManagePartProgramAsync(ByVal Process As UShort, ByVal Mode As UShort, ByVal PPPath As String, ByVal userState As Object)
If (Me.ManagePartProgramOperationCompleted Is Nothing) Then
Me.ManagePartProgramOperationCompleted = AddressOf Me.OnManagePartProgramOperationCompleted
End If
Me.InvokeAsync("ManagePartProgram", New Object() {Process, Mode, PPPath}, Me.ManagePartProgramOperationCompleted, userState)
End Sub
Private Sub OnManagePartProgramOperationCompleted(ByVal arg As Object)
If (Not (Me.ManagePartProgramCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ManagePartProgramCompleted(Me, New ManagePartProgramCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSWriteRecord-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSWriteRecord(ByVal FileID As UShort, ByVal Transaction As UShort, ByVal RecordLen As UInteger, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByVal Record() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSWriteRecord", New Object() {FileID, Transaction, RecordLen, Record})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSWriteRecordAsync(ByVal FileID As UShort, ByVal Transaction As UShort, ByVal RecordLen As UInteger, ByVal Record() As Byte)
Me.LogFSWriteRecordAsync(FileID, Transaction, RecordLen, Record, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSWriteRecordAsync(ByVal FileID As UShort, ByVal Transaction As UShort, ByVal RecordLen As UInteger, ByVal Record() As Byte, ByVal userState As Object)
If (Me.LogFSWriteRecordOperationCompleted Is Nothing) Then
Me.LogFSWriteRecordOperationCompleted = AddressOf Me.OnLogFSWriteRecordOperationCompleted
End If
Me.InvokeAsync("LogFSWriteRecord", New Object() {FileID, Transaction, RecordLen, Record}, Me.LogFSWriteRecordOperationCompleted, userState)
End Sub
Private Sub OnLogFSWriteRecordOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSWriteRecordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSWriteRecordCompleted(Me, New LogFSWriteRecordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="LogFSReadRecord-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function LogFSReadRecord(ByVal FileID As UShort, ByVal Transaction As UShort, ByVal RecordLen As UInteger, ByRef DataSize As UInteger, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef Record() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("LogFSReadRecord", New Object() {FileID, Transaction, RecordLen})
DataSize = CType(results(1),UInteger)
Record = CType(results(2),Byte())
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub LogFSReadRecordAsync(ByVal FileID As UShort, ByVal Transaction As UShort, ByVal RecordLen As UInteger)
Me.LogFSReadRecordAsync(FileID, Transaction, RecordLen, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub LogFSReadRecordAsync(ByVal FileID As UShort, ByVal Transaction As UShort, ByVal RecordLen As UInteger, ByVal userState As Object)
If (Me.LogFSReadRecordOperationCompleted Is Nothing) Then
Me.LogFSReadRecordOperationCompleted = AddressOf Me.OnLogFSReadRecordOperationCompleted
End If
Me.InvokeAsync("LogFSReadRecord", New Object() {FileID, Transaction, RecordLen}, Me.LogFSReadRecordOperationCompleted, userState)
End Sub
Private Sub OnLogFSReadRecordOperationCompleted(ByVal arg As Object)
If (Not (Me.LogFSReadRecordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogFSReadRecordCompleted(Me, New LogFSReadRecordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadRemapDefinitions-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadRemapDefinitions(ByVal ArraySize As Integer, ByVal Type As Integer, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef Array() As REMAPDEF, ByRef DefinitionsCnt As Integer, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadRemapDefinitions", New Object() {ArraySize, Type})
Array = CType(results(1),REMAPDEF())
DefinitionsCnt = CType(results(2),Integer)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadRemapDefinitionsAsync(ByVal ArraySize As Integer, ByVal Type As Integer)
Me.ReadRemapDefinitionsAsync(ArraySize, Type, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadRemapDefinitionsAsync(ByVal ArraySize As Integer, ByVal Type As Integer, ByVal userState As Object)
If (Me.ReadRemapDefinitionsOperationCompleted Is Nothing) Then
Me.ReadRemapDefinitionsOperationCompleted = AddressOf Me.OnReadRemapDefinitionsOperationCompleted
End If
Me.InvokeAsync("ReadRemapDefinitions", New Object() {ArraySize, Type}, Me.ReadRemapDefinitionsOperationCompleted, userState)
End Sub
Private Sub OnReadRemapDefinitionsOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadRemapDefinitionsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadRemapDefinitionsCompleted(Me, New ReadRemapDefinitionsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="WriteRemapDefinitions-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function WriteRemapDefinitions(ByVal ArraySize As Integer, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByVal Array() As REMAPDEF, ByVal Type As Integer, ByVal Mode As Integer, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("WriteRemapDefinitions", New Object() {ArraySize, Array, Type, Mode})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub WriteRemapDefinitionsAsync(ByVal ArraySize As Integer, ByVal Array() As REMAPDEF, ByVal Type As Integer, ByVal Mode As Integer)
Me.WriteRemapDefinitionsAsync(ArraySize, Array, Type, Mode, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub WriteRemapDefinitionsAsync(ByVal ArraySize As Integer, ByVal Array() As REMAPDEF, ByVal Type As Integer, ByVal Mode As Integer, ByVal userState As Object)
If (Me.WriteRemapDefinitionsOperationCompleted Is Nothing) Then
Me.WriteRemapDefinitionsOperationCompleted = AddressOf Me.OnWriteRemapDefinitionsOperationCompleted
End If
Me.InvokeAsync("WriteRemapDefinitions", New Object() {ArraySize, Array, Type, Mode}, Me.WriteRemapDefinitionsOperationCompleted, userState)
End Sub
Private Sub OnWriteRemapDefinitionsOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteRemapDefinitionsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteRemapDefinitionsCompleted(Me, New WriteRemapDefinitionsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetServoPar-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetServoPar(ByVal AxisId As UShort, ByVal ParId As UShort, ByRef Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetServoPar", New Object() {AxisId, ParId})
Value = CType(results(1),Double)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetServoParAsync(ByVal AxisId As UShort, ByVal ParId As UShort)
Me.GetServoParAsync(AxisId, ParId, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetServoParAsync(ByVal AxisId As UShort, ByVal ParId As UShort, ByVal userState As Object)
If (Me.GetServoParOperationCompleted Is Nothing) Then
Me.GetServoParOperationCompleted = AddressOf Me.OnGetServoParOperationCompleted
End If
Me.InvokeAsync("GetServoPar", New Object() {AxisId, ParId}, Me.GetServoParOperationCompleted, userState)
End Sub
Private Sub OnGetServoParOperationCompleted(ByVal arg As Object)
If (Not (Me.GetServoParCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetServoParCompleted(Me, New GetServoParCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetServoPar-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetServoPar(ByVal AxisId As UShort, ByVal ParId As UShort, ByVal Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetServoPar", New Object() {AxisId, ParId, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetServoParAsync(ByVal AxisId As UShort, ByVal ParId As UShort, ByVal Value As Double)
Me.SetServoParAsync(AxisId, ParId, Value, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetServoParAsync(ByVal AxisId As UShort, ByVal ParId As UShort, ByVal Value As Double, ByVal userState As Object)
If (Me.SetServoParOperationCompleted Is Nothing) Then
Me.SetServoParOperationCompleted = AddressOf Me.OnSetServoParOperationCompleted
End If
Me.InvokeAsync("SetServoPar", New Object() {AxisId, ParId, Value}, Me.SetServoParOperationCompleted, userState)
End Sub
Private Sub OnSetServoParOperationCompleted(ByVal arg As Object)
If (Not (Me.SetServoParCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetServoParCompleted(Me, New SetServoParCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetCNCRegKey-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetCNCRegKey(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal Key As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal SubKey As String, ByRef ValueLen As Integer, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef Value() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetCNCRegKey", New Object() {Key, SubKey, ValueLen})
ValueLen = CType(results(1),Integer)
Value = CType(results(2),Byte())
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetCNCRegKeyAsync(ByVal Key As String, ByVal SubKey As String, ByVal ValueLen As Integer)
Me.GetCNCRegKeyAsync(Key, SubKey, ValueLen, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetCNCRegKeyAsync(ByVal Key As String, ByVal SubKey As String, ByVal ValueLen As Integer, ByVal userState As Object)
If (Me.GetCNCRegKeyOperationCompleted Is Nothing) Then
Me.GetCNCRegKeyOperationCompleted = AddressOf Me.OnGetCNCRegKeyOperationCompleted
End If
Me.InvokeAsync("GetCNCRegKey", New Object() {Key, SubKey, ValueLen}, Me.GetCNCRegKeyOperationCompleted, userState)
End Sub
Private Sub OnGetCNCRegKeyOperationCompleted(ByVal arg As Object)
If (Not (Me.GetCNCRegKeyCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetCNCRegKeyCompleted(Me, New GetCNCRegKeyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetSecurityData-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetSecurityData(ByRef Data As SECURDATA, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetSecurityData", New Object(-1) {})
Data = CType(results(1),SECURDATA)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetSecurityDataAsync()
Me.GetSecurityDataAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetSecurityDataAsync(ByVal userState As Object)
If (Me.GetSecurityDataOperationCompleted Is Nothing) Then
Me.GetSecurityDataOperationCompleted = AddressOf Me.OnGetSecurityDataOperationCompleted
End If
Me.InvokeAsync("GetSecurityData", New Object(-1) {}, Me.GetSecurityDataOperationCompleted, userState)
End Sub
Private Sub OnGetSecurityDataOperationCompleted(ByVal arg As Object)
If (Not (Me.GetSecurityDataCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetSecurityDataCompleted(Me, New GetSecurityDataCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetSecurityData-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetSecurityData(ByVal Data As SECURDATA, ByVal Flag As Boolean, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetSecurityData", New Object() {Data, Flag})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetSecurityDataAsync(ByVal Data As SECURDATA, ByVal Flag As Boolean)
Me.SetSecurityDataAsync(Data, Flag, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetSecurityDataAsync(ByVal Data As SECURDATA, ByVal Flag As Boolean, ByVal userState As Object)
If (Me.SetSecurityDataOperationCompleted Is Nothing) Then
Me.SetSecurityDataOperationCompleted = AddressOf Me.OnSetSecurityDataOperationCompleted
End If
Me.InvokeAsync("SetSecurityData", New Object() {Data, Flag}, Me.SetSecurityDataOperationCompleted, userState)
End Sub
Private Sub OnSetSecurityDataOperationCompleted(ByVal arg As Object)
If (Not (Me.SetSecurityDataCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetSecurityDataCompleted(Me, New SetSecurityDataCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetIpAddress-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetIpAddress(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal IpAddress As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal SubNetMask As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal DefaultGateway As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal Dns As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal Wins As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal Net As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetIpAddress", New Object() {IpAddress, SubNetMask, DefaultGateway, Dns, Wins, Net})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetIpAddressAsync(ByVal IpAddress As String, ByVal SubNetMask As String, ByVal DefaultGateway As String, ByVal Dns As String, ByVal Wins As String, ByVal Net As String)
Me.SetIpAddressAsync(IpAddress, SubNetMask, DefaultGateway, Dns, Wins, Net, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetIpAddressAsync(ByVal IpAddress As String, ByVal SubNetMask As String, ByVal DefaultGateway As String, ByVal Dns As String, ByVal Wins As String, ByVal Net As String, ByVal userState As Object)
If (Me.SetIpAddressOperationCompleted Is Nothing) Then
Me.SetIpAddressOperationCompleted = AddressOf Me.OnSetIpAddressOperationCompleted
End If
Me.InvokeAsync("SetIpAddress", New Object() {IpAddress, SubNetMask, DefaultGateway, Dns, Wins, Net}, Me.SetIpAddressOperationCompleted, userState)
End Sub
Private Sub OnSetIpAddressOperationCompleted(ByVal arg As Object)
If (Not (Me.SetIpAddressCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetIpAddressCompleted(Me, New SetIpAddressCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetProcInInput-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetProcInInput(ByVal Process As UShort, ByRef ProcInfo As INPUTINFO, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetProcInInput", New Object() {Process})
ProcInfo = CType(results(1),INPUTINFO)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetProcInInputAsync(ByVal Process As UShort)
Me.GetProcInInputAsync(Process, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetProcInInputAsync(ByVal Process As UShort, ByVal userState As Object)
If (Me.GetProcInInputOperationCompleted Is Nothing) Then
Me.GetProcInInputOperationCompleted = AddressOf Me.OnGetProcInInputOperationCompleted
End If
Me.InvokeAsync("GetProcInInput", New Object() {Process}, Me.GetProcInInputOperationCompleted, userState)
End Sub
Private Sub OnGetProcInInputOperationCompleted(ByVal arg As Object)
If (Not (Me.GetProcInInputCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetProcInInputCompleted(Me, New GetProcInInputCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SndProcInpData-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SndProcInpData(ByVal Process As UShort, ByVal keyPressed As UShort, ByVal numData As UShort, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByVal arData() As Byte, ByVal arSize As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SndProcInpData", New Object() {Process, keyPressed, numData, arData, arSize})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SndProcInpDataAsync(ByVal Process As UShort, ByVal keyPressed As UShort, ByVal numData As UShort, ByVal arData() As Byte, ByVal arSize As UShort)
Me.SndProcInpDataAsync(Process, keyPressed, numData, arData, arSize, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SndProcInpDataAsync(ByVal Process As UShort, ByVal keyPressed As UShort, ByVal numData As UShort, ByVal arData() As Byte, ByVal arSize As UShort, ByVal userState As Object)
If (Me.SndProcInpDataOperationCompleted Is Nothing) Then
Me.SndProcInpDataOperationCompleted = AddressOf Me.OnSndProcInpDataOperationCompleted
End If
Me.InvokeAsync("SndProcInpData", New Object() {Process, keyPressed, numData, arData, arSize}, Me.SndProcInpDataOperationCompleted, userState)
End Sub
Private Sub OnSndProcInpDataOperationCompleted(ByVal arg As Object)
If (Not (Me.SndProcInpDataCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SndProcInpDataCompleted(Me, New SndProcInpDataCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetPartProgramLinesEx-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetPartProgramLinesEx(ByVal ProcNum As UShort, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef PPLine1() As Byte, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef PPLine2() As Byte, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef PPLine3() As Byte, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef PPLine4() As Byte, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef PPLine5() As Byte, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef PPLine6() As Byte, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef PPLine7() As Byte, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef PPLine8() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetPartProgramLinesEx", New Object() {ProcNum})
PPLine1 = CType(results(1),Byte())
PPLine2 = CType(results(2),Byte())
PPLine3 = CType(results(3),Byte())
PPLine4 = CType(results(4),Byte())
PPLine5 = CType(results(5),Byte())
PPLine6 = CType(results(6),Byte())
PPLine7 = CType(results(7),Byte())
PPLine8 = CType(results(8),Byte())
ErrClass = CType(results(9),UInteger)
ErrNum = CType(results(10),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetPartProgramLinesExAsync(ByVal ProcNum As UShort)
Me.GetPartProgramLinesExAsync(ProcNum, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetPartProgramLinesExAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetPartProgramLinesExOperationCompleted Is Nothing) Then
Me.GetPartProgramLinesExOperationCompleted = AddressOf Me.OnGetPartProgramLinesExOperationCompleted
End If
Me.InvokeAsync("GetPartProgramLinesEx", New Object() {ProcNum}, Me.GetPartProgramLinesExOperationCompleted, userState)
End Sub
Private Sub OnGetPartProgramLinesExOperationCompleted(ByVal arg As Object)
If (Not (Me.GetPartProgramLinesExCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetPartProgramLinesExCompleted(Me, New GetPartProgramLinesExCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetMdiStringEx-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetMdiStringEx(ByVal ProcNum As UShort, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal MdiString As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetMdiStringEx", New Object() {ProcNum, MdiString})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetMdiStringExAsync(ByVal ProcNum As UShort, ByVal MdiString As String)
Me.SetMdiStringExAsync(ProcNum, MdiString, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetMdiStringExAsync(ByVal ProcNum As UShort, ByVal MdiString As String, ByVal userState As Object)
If (Me.SetMdiStringExOperationCompleted Is Nothing) Then
Me.SetMdiStringExOperationCompleted = AddressOf Me.OnSetMdiStringExOperationCompleted
End If
Me.InvokeAsync("SetMdiStringEx", New Object() {ProcNum, MdiString}, Me.SetMdiStringExOperationCompleted, userState)
End Sub
Private Sub OnSetMdiStringExOperationCompleted(ByVal arg As Object)
If (Not (Me.SetMdiStringExCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetMdiStringExCompleted(Me, New SetMdiStringExCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetExpireData-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetExpireData(ByRef Day As UShort, ByRef Month As UShort, ByRef Year As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetExpireData", New Object(-1) {})
Day = CType(results(1),UShort)
Month = CType(results(2),UShort)
Year = CType(results(3),UShort)
ErrClass = CType(results(4),UInteger)
ErrNum = CType(results(5),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetExpireDataAsync()
Me.GetExpireDataAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetExpireDataAsync(ByVal userState As Object)
If (Me.GetExpireDataOperationCompleted Is Nothing) Then
Me.GetExpireDataOperationCompleted = AddressOf Me.OnGetExpireDataOperationCompleted
End If
Me.InvokeAsync("GetExpireData", New Object(-1) {}, Me.GetExpireDataOperationCompleted, userState)
End Sub
Private Sub OnGetExpireDataOperationCompleted(ByVal arg As Object)
If (Not (Me.GetExpireDataCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetExpireDataCompleted(Me, New GetExpireDataCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetRemainingTime-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetRemainingTime(ByRef remTime As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetRemainingTime", New Object(-1) {})
remTime = CType(results(1),Long)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetRemainingTimeAsync()
Me.GetRemainingTimeAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetRemainingTimeAsync(ByVal userState As Object)
If (Me.GetRemainingTimeOperationCompleted Is Nothing) Then
Me.GetRemainingTimeOperationCompleted = AddressOf Me.OnGetRemainingTimeOperationCompleted
End If
Me.InvokeAsync("GetRemainingTime", New Object(-1) {}, Me.GetRemainingTimeOperationCompleted, userState)
End Sub
Private Sub OnGetRemainingTimeOperationCompleted(ByVal arg As Object)
If (Not (Me.GetRemainingTimeCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetRemainingTimeCompleted(Me, New GetRemainingTimeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GenerateUserKey-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GenerateUserKey(<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef keyUser() As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GenerateUserKey", New Object(-1) {})
keyUser = CType(results(1),String())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GenerateUserKeyAsync()
Me.GenerateUserKeyAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GenerateUserKeyAsync(ByVal userState As Object)
If (Me.GenerateUserKeyOperationCompleted Is Nothing) Then
Me.GenerateUserKeyOperationCompleted = AddressOf Me.OnGenerateUserKeyOperationCompleted
End If
Me.InvokeAsync("GenerateUserKey", New Object(-1) {}, Me.GenerateUserKeyOperationCompleted, userState)
End Sub
Private Sub OnGenerateUserKeyOperationCompleted(ByVal arg As Object)
If (Not (Me.GenerateUserKeyCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GenerateUserKeyCompleted(Me, New GenerateUserKeyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="WriteActivationKey-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function WriteActivationKey(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal OEMKey As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("WriteActivationKey", New Object() {OEMKey})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub WriteActivationKeyAsync(ByVal OEMKey As String)
Me.WriteActivationKeyAsync(OEMKey, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub WriteActivationKeyAsync(ByVal OEMKey As String, ByVal userState As Object)
If (Me.WriteActivationKeyOperationCompleted Is Nothing) Then
Me.WriteActivationKeyOperationCompleted = AddressOf Me.OnWriteActivationKeyOperationCompleted
End If
Me.InvokeAsync("WriteActivationKey", New Object() {OEMKey}, Me.WriteActivationKeyOperationCompleted, userState)
End Sub
Private Sub OnWriteActivationKeyOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteActivationKeyCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteActivationKeyCompleted(Me, New WriteActivationKeyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetAvailableCustomEvents-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetAvailableCustomEvents(ByVal MaxEvents As UShort, ByRef NumEvents As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef EventData() As MONCUSTOMEVENTINFO, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetAvailableCustomEvents", New Object() {MaxEvents})
NumEvents = CType(results(1),UShort)
EventData = CType(results(2),MONCUSTOMEVENTINFO())
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetAvailableCustomEventsAsync(ByVal MaxEvents As UShort)
Me.GetAvailableCustomEventsAsync(MaxEvents, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetAvailableCustomEventsAsync(ByVal MaxEvents As UShort, ByVal userState As Object)
If (Me.GetAvailableCustomEventsOperationCompleted Is Nothing) Then
Me.GetAvailableCustomEventsOperationCompleted = AddressOf Me.OnGetAvailableCustomEventsOperationCompleted
End If
Me.InvokeAsync("GetAvailableCustomEvents", New Object() {MaxEvents}, Me.GetAvailableCustomEventsOperationCompleted, userState)
End Sub
Private Sub OnGetAvailableCustomEventsOperationCompleted(ByVal arg As Object)
If (Not (Me.GetAvailableCustomEventsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetAvailableCustomEventsCompleted(Me, New GetAvailableCustomEventsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="MonOpenChannel-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function MonOpenChannel(ByVal Synchronized As Boolean, ByRef ChannelID As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("MonOpenChannel", New Object() {Synchronized})
ChannelID = CType(results(1),UInteger)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub MonOpenChannelAsync(ByVal Synchronized As Boolean)
Me.MonOpenChannelAsync(Synchronized, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub MonOpenChannelAsync(ByVal Synchronized As Boolean, ByVal userState As Object)
If (Me.MonOpenChannelOperationCompleted Is Nothing) Then
Me.MonOpenChannelOperationCompleted = AddressOf Me.OnMonOpenChannelOperationCompleted
End If
Me.InvokeAsync("MonOpenChannel", New Object() {Synchronized}, Me.MonOpenChannelOperationCompleted, userState)
End Sub
Private Sub OnMonOpenChannelOperationCompleted(ByVal arg As Object)
If (Not (Me.MonOpenChannelCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent MonOpenChannelCompleted(Me, New MonOpenChannelCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="MonCloseChannel-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function MonCloseChannel(ByVal ChannelID As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("MonCloseChannel", New Object() {ChannelID})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub MonCloseChannelAsync(ByVal ChannelID As UInteger)
Me.MonCloseChannelAsync(ChannelID, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub MonCloseChannelAsync(ByVal ChannelID As UInteger, ByVal userState As Object)
If (Me.MonCloseChannelOperationCompleted Is Nothing) Then
Me.MonCloseChannelOperationCompleted = AddressOf Me.OnMonCloseChannelOperationCompleted
End If
Me.InvokeAsync("MonCloseChannel", New Object() {ChannelID}, Me.MonCloseChannelOperationCompleted, userState)
End Sub
Private Sub OnMonCloseChannelOperationCompleted(ByVal arg As Object)
If (Not (Me.MonCloseChannelCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent MonCloseChannelCompleted(Me, New MonCloseChannelCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="MonAddVariable-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function MonAddVariable(ByVal ChannelID As UInteger, ByVal VarDescr As MONVARDESCR, ByRef VariableID As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("MonAddVariable", New Object() {ChannelID, VarDescr})
VariableID = CType(results(1),UShort)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub MonAddVariableAsync(ByVal ChannelID As UInteger, ByVal VarDescr As MONVARDESCR)
Me.MonAddVariableAsync(ChannelID, VarDescr, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub MonAddVariableAsync(ByVal ChannelID As UInteger, ByVal VarDescr As MONVARDESCR, ByVal userState As Object)
If (Me.MonAddVariableOperationCompleted Is Nothing) Then
Me.MonAddVariableOperationCompleted = AddressOf Me.OnMonAddVariableOperationCompleted
End If
Me.InvokeAsync("MonAddVariable", New Object() {ChannelID, VarDescr}, Me.MonAddVariableOperationCompleted, userState)
End Sub
Private Sub OnMonAddVariableOperationCompleted(ByVal arg As Object)
If (Not (Me.MonAddVariableCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent MonAddVariableCompleted(Me, New MonAddVariableCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="MonDeleteVariable-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function MonDeleteVariable(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("MonDeleteVariable", New Object() {ChannelID, VariableID})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub MonDeleteVariableAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort)
Me.MonDeleteVariableAsync(ChannelID, VariableID, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub MonDeleteVariableAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal userState As Object)
If (Me.MonDeleteVariableOperationCompleted Is Nothing) Then
Me.MonDeleteVariableOperationCompleted = AddressOf Me.OnMonDeleteVariableOperationCompleted
End If
Me.InvokeAsync("MonDeleteVariable", New Object() {ChannelID, VariableID}, Me.MonDeleteVariableOperationCompleted, userState)
End Sub
Private Sub OnMonDeleteVariableOperationCompleted(ByVal arg As Object)
If (Not (Me.MonDeleteVariableCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent MonDeleteVariableCompleted(Me, New MonDeleteVariableCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="MonStartSampling-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function MonStartSampling(ByVal ChannelID As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("MonStartSampling", New Object() {ChannelID})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub MonStartSamplingAsync(ByVal ChannelID As UInteger)
Me.MonStartSamplingAsync(ChannelID, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub MonStartSamplingAsync(ByVal ChannelID As UInteger, ByVal userState As Object)
If (Me.MonStartSamplingOperationCompleted Is Nothing) Then
Me.MonStartSamplingOperationCompleted = AddressOf Me.OnMonStartSamplingOperationCompleted
End If
Me.InvokeAsync("MonStartSampling", New Object() {ChannelID}, Me.MonStartSamplingOperationCompleted, userState)
End Sub
Private Sub OnMonStartSamplingOperationCompleted(ByVal arg As Object)
If (Not (Me.MonStartSamplingCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent MonStartSamplingCompleted(Me, New MonStartSamplingCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="MonStopSampling-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function MonStopSampling(ByVal ChannelID As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("MonStopSampling", New Object() {ChannelID})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub MonStopSamplingAsync(ByVal ChannelID As UInteger)
Me.MonStopSamplingAsync(ChannelID, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub MonStopSamplingAsync(ByVal ChannelID As UInteger, ByVal userState As Object)
If (Me.MonStopSamplingOperationCompleted Is Nothing) Then
Me.MonStopSamplingOperationCompleted = AddressOf Me.OnMonStopSamplingOperationCompleted
End If
Me.InvokeAsync("MonStopSampling", New Object() {ChannelID}, Me.MonStopSamplingOperationCompleted, userState)
End Sub
Private Sub OnMonStopSamplingOperationCompleted(ByVal arg As Object)
If (Not (Me.MonStopSamplingCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent MonStopSamplingCompleted(Me, New MonStopSamplingCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="MonGetVariable-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function MonGetVariable(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort, ByRef NumSampleRead As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef DataBuffer() As Double, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef TimeBuffer() As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("MonGetVariable", New Object() {ChannelID, VariableID, MaxSamples})
NumSampleRead = CType(results(1),UShort)
DataBuffer = CType(results(2),Double())
TimeBuffer = CType(results(3),Long())
ErrClass = CType(results(4),UInteger)
ErrNum = CType(results(5),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub MonGetVariableAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort)
Me.MonGetVariableAsync(ChannelID, VariableID, MaxSamples, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub MonGetVariableAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort, ByVal userState As Object)
If (Me.MonGetVariableOperationCompleted Is Nothing) Then
Me.MonGetVariableOperationCompleted = AddressOf Me.OnMonGetVariableOperationCompleted
End If
Me.InvokeAsync("MonGetVariable", New Object() {ChannelID, VariableID, MaxSamples}, Me.MonGetVariableOperationCompleted, userState)
End Sub
Private Sub OnMonGetVariableOperationCompleted(ByVal arg As Object)
If (Not (Me.MonGetVariableCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent MonGetVariableCompleted(Me, New MonGetVariableCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="MonGetVariableS-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function MonGetVariableS(ByVal ChannelID As UInteger, ByVal VariableID As UShort, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef DataBuffer() As Byte, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByRef TimeBuffer() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("MonGetVariableS", New Object() {ChannelID, VariableID})
DataBuffer = CType(results(1),Byte())
TimeBuffer = CType(results(2),Byte())
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub MonGetVariableSAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort)
Me.MonGetVariableSAsync(ChannelID, VariableID, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub MonGetVariableSAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal userState As Object)
If (Me.MonGetVariableSOperationCompleted Is Nothing) Then
Me.MonGetVariableSOperationCompleted = AddressOf Me.OnMonGetVariableSOperationCompleted
End If
Me.InvokeAsync("MonGetVariableS", New Object() {ChannelID, VariableID}, Me.MonGetVariableSOperationCompleted, userState)
End Sub
Private Sub OnMonGetVariableSOperationCompleted(ByVal arg As Object)
If (Not (Me.MonGetVariableSCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent MonGetVariableSCompleted(Me, New MonGetVariableSCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="MonGetDryRun-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function MonGetDryRun(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort, ByVal DataSize As UInteger, ByRef numSampleRead As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef readData() As MONDRYRUN, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef timeBuffer() As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("MonGetDryRun", New Object() {ChannelID, VariableID, MaxSamples, DataSize})
numSampleRead = CType(results(1),UShort)
readData = CType(results(2),MONDRYRUN())
timeBuffer = CType(results(3),Long())
ErrClass = CType(results(4),UInteger)
ErrNum = CType(results(5),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub MonGetDryRunAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort, ByVal DataSize As UInteger)
Me.MonGetDryRunAsync(ChannelID, VariableID, MaxSamples, DataSize, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub MonGetDryRunAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort, ByVal DataSize As UInteger, ByVal userState As Object)
If (Me.MonGetDryRunOperationCompleted Is Nothing) Then
Me.MonGetDryRunOperationCompleted = AddressOf Me.OnMonGetDryRunOperationCompleted
End If
Me.InvokeAsync("MonGetDryRun", New Object() {ChannelID, VariableID, MaxSamples, DataSize}, Me.MonGetDryRunOperationCompleted, userState)
End Sub
Private Sub OnMonGetDryRunOperationCompleted(ByVal arg As Object)
If (Not (Me.MonGetDryRunCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent MonGetDryRunCompleted(Me, New MonGetDryRunCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="MonGetMov-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function MonGetMov(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort, ByRef numSampleRead As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef readData() As MONENTEMOVI, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef timeBuffer() As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("MonGetMov", New Object() {ChannelID, VariableID, MaxSamples})
numSampleRead = CType(results(1),UShort)
readData = CType(results(2),MONENTEMOVI())
timeBuffer = CType(results(3),Long())
ErrClass = CType(results(4),UInteger)
ErrNum = CType(results(5),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub MonGetMovAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort)
Me.MonGetMovAsync(ChannelID, VariableID, MaxSamples, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub MonGetMovAsync(ByVal ChannelID As UInteger, ByVal VariableID As UShort, ByVal MaxSamples As UShort, ByVal userState As Object)
If (Me.MonGetMovOperationCompleted Is Nothing) Then
Me.MonGetMovOperationCompleted = AddressOf Me.OnMonGetMovOperationCompleted
End If
Me.InvokeAsync("MonGetMov", New Object() {ChannelID, VariableID, MaxSamples}, Me.MonGetMovOperationCompleted, userState)
End Sub
Private Sub OnMonGetMovOperationCompleted(ByVal arg As Object)
If (Not (Me.MonGetMovCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent MonGetMovCompleted(Me, New MonGetMovCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetDriveBasicInfo-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetDriveBasicInfo(ByVal AxisID As UShort, ByRef DriveBasicInfo As DRIVEBASICINFO, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetDriveBasicInfo", New Object() {AxisID})
DriveBasicInfo = CType(results(1),DRIVEBASICINFO)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetDriveBasicInfoAsync(ByVal AxisID As UShort)
Me.GetDriveBasicInfoAsync(AxisID, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetDriveBasicInfoAsync(ByVal AxisID As UShort, ByVal userState As Object)
If (Me.GetDriveBasicInfoOperationCompleted Is Nothing) Then
Me.GetDriveBasicInfoOperationCompleted = AddressOf Me.OnGetDriveBasicInfoOperationCompleted
End If
Me.InvokeAsync("GetDriveBasicInfo", New Object() {AxisID}, Me.GetDriveBasicInfoOperationCompleted, userState)
End Sub
Private Sub OnGetDriveBasicInfoOperationCompleted(ByVal arg As Object)
If (Not (Me.GetDriveBasicInfoCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetDriveBasicInfoCompleted(Me, New GetDriveBasicInfoCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadStatistics-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadStatistics(ByVal NumVar As UShort, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> ByRef Value() As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadStatistics", New Object() {NumVar})
Value = CType(results(1),Long())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadStatisticsAsync(ByVal NumVar As UShort)
Me.ReadStatisticsAsync(NumVar, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadStatisticsAsync(ByVal NumVar As UShort, ByVal userState As Object)
If (Me.ReadStatisticsOperationCompleted Is Nothing) Then
Me.ReadStatisticsOperationCompleted = AddressOf Me.OnReadStatisticsOperationCompleted
End If
Me.InvokeAsync("ReadStatistics", New Object() {NumVar}, Me.ReadStatisticsOperationCompleted, userState)
End Sub
Private Sub OnReadStatisticsOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadStatisticsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadStatisticsCompleted(Me, New ReadStatisticsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="ReadStatisticsBaseFrequency-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function ReadStatisticsBaseFrequency(ByRef baseFrequency As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("ReadStatisticsBaseFrequency", New Object(-1) {})
baseFrequency = CType(results(1),Long)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub ReadStatisticsBaseFrequencyAsync()
Me.ReadStatisticsBaseFrequencyAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub ReadStatisticsBaseFrequencyAsync(ByVal userState As Object)
If (Me.ReadStatisticsBaseFrequencyOperationCompleted Is Nothing) Then
Me.ReadStatisticsBaseFrequencyOperationCompleted = AddressOf Me.OnReadStatisticsBaseFrequencyOperationCompleted
End If
Me.InvokeAsync("ReadStatisticsBaseFrequency", New Object(-1) {}, Me.ReadStatisticsBaseFrequencyOperationCompleted, userState)
End Sub
Private Sub OnReadStatisticsBaseFrequencyOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadStatisticsBaseFrequencyCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadStatisticsBaseFrequencyCompleted(Me, New ReadStatisticsBaseFrequencyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="GetActiveAmp-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function GetActiveAmp(ByRef ActiveAmp As UShort, ByRef RunningAmp As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("GetActiveAmp", New Object(-1) {})
ActiveAmp = CType(results(1),UShort)
RunningAmp = CType(results(2),UShort)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub GetActiveAmpAsync()
Me.GetActiveAmpAsync(Nothing)
End Sub
'''<remarks/>
Public Overloads Sub GetActiveAmpAsync(ByVal userState As Object)
If (Me.GetActiveAmpOperationCompleted Is Nothing) Then
Me.GetActiveAmpOperationCompleted = AddressOf Me.OnGetActiveAmpOperationCompleted
End If
Me.InvokeAsync("GetActiveAmp", New Object(-1) {}, Me.GetActiveAmpOperationCompleted, userState)
End Sub
Private Sub OnGetActiveAmpOperationCompleted(ByVal arg As Object)
If (Not (Me.GetActiveAmpCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetActiveAmpCompleted(Me, New GetActiveAmpCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:OPENcontrol", ResponseElementName:="SetActiveAmp-R", ResponseNamespace:="urn:OPENcontrol", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function SetActiveAmp(ByVal ActiveAmp As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As <System.Xml.Serialization.XmlElementAttribute("retval")> UShort
Dim results() As Object = Me.Invoke("SetActiveAmp", New Object() {ActiveAmp})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''<remarks/>
Public Overloads Sub SetActiveAmpAsync(ByVal ActiveAmp As UShort)
Me.SetActiveAmpAsync(ActiveAmp, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub SetActiveAmpAsync(ByVal ActiveAmp As UShort, ByVal userState As Object)
If (Me.SetActiveAmpOperationCompleted Is Nothing) Then
Me.SetActiveAmpOperationCompleted = AddressOf Me.OnSetActiveAmpOperationCompleted
End If
Me.InvokeAsync("SetActiveAmp", New Object() {ActiveAmp}, Me.SetActiveAmpOperationCompleted, userState)
End Sub
Private Sub OnSetActiveAmpOperationCompleted(ByVal arg As Object)
If (Not (Me.SetActiveAmpCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetActiveAmpCompleted(Me, New SetActiveAmpCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
Public Shadows Sub CancelAsync(ByVal userState As Object)
MyBase.CancelAsync(userState)
End Sub
Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean
If ((url Is Nothing) _
OrElse (url Is String.Empty)) Then
Return false
End If
Dim wsUri As System.Uri = New System.Uri(url)
If ((wsUri.Port >= 1024) _
AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then
Return true
End If
Return false
End Function
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="ORIGIN-TABLE-II", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class ORIGINTABLEII
Private axisValField() As Double
Private externTypeField As UShort
Private externIndField As UShort
Private descrField() As UShort
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property AxisVal() As Double()
Get
Return Me.axisValField
End Get
Set
Me.axisValField = value
End Set
End Property
'''<remarks/>
Public Property ExternType() As UShort
Get
Return Me.externTypeField
End Get
Set
Me.externTypeField = value
End Set
End Property
'''<remarks/>
Public Property ExternInd() As UShort
Get
Return Me.externIndField
End Get
Set
Me.externIndField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Descr() As UShort()
Get
Return Me.descrField
End Get
Set
Me.descrField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:OPENcontrol")> _
Partial Public Class DRIVEBASICINFO
Private vendorIDField As ULong
Private partNumberCodedField As ULong
Private partNumberAsciiField() As Byte
Private serialNumberCodedField As ULong
Private serialNumberAsciiField() As Byte
Private firmwareVersionField As ULong
Private hardwareVersionField As ULong
'''<remarks/>
Public Property VendorID() As ULong
Get
Return Me.vendorIDField
End Get
Set
Me.vendorIDField = value
End Set
End Property
'''<remarks/>
Public Property PartNumberCoded() As ULong
Get
Return Me.partNumberCodedField
End Get
Set
Me.partNumberCodedField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property PartNumberAscii() As Byte()
Get
Return Me.partNumberAsciiField
End Get
Set
Me.partNumberAsciiField = value
End Set
End Property
'''<remarks/>
Public Property SerialNumberCoded() As ULong
Get
Return Me.serialNumberCodedField
End Get
Set
Me.serialNumberCodedField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property SerialNumberAscii() As Byte()
Get
Return Me.serialNumberAsciiField
End Get
Set
Me.serialNumberAsciiField = value
End Set
End Property
'''<remarks/>
Public Property FirmwareVersion() As ULong
Get
Return Me.firmwareVersionField
End Get
Set
Me.firmwareVersionField = value
End Set
End Property
'''<remarks/>
Public Property HardwareVersion() As ULong
Get
Return Me.hardwareVersionField
End Get
Set
Me.hardwareVersionField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="MON-ENTEMOVI", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class MONENTEMOVI
Private contEntiField As ULong
Private procesIdField As UShort
Private umField As Byte
Private movTypeField As Byte
Private gmodeField As Byte
Private orarioField As Byte
Private stopEndMovField As SByte
Private axNameField() As Byte
Private pinizialeField() As Double
Private pfinaleField() As Double
Private centroField() As Double
Private helicStepField As Double
Private versoreOrtogField() As Double
Private rTVField() As Double
Private bRKField As Double
Private tbeginField As Double
Private tmovField As Double
Private tendField As Double
Private lineMainField As ULong
'''<remarks/>
Public Property ContEnti() As ULong
Get
Return Me.contEntiField
End Get
Set
Me.contEntiField = value
End Set
End Property
'''<remarks/>
Public Property ProcesId() As UShort
Get
Return Me.procesIdField
End Get
Set
Me.procesIdField = value
End Set
End Property
'''<remarks/>
Public Property um() As Byte
Get
Return Me.umField
End Get
Set
Me.umField = value
End Set
End Property
'''<remarks/>
Public Property MovType() As Byte
Get
Return Me.movTypeField
End Get
Set
Me.movTypeField = value
End Set
End Property
'''<remarks/>
Public Property Gmode() As Byte
Get
Return Me.gmodeField
End Get
Set
Me.gmodeField = value
End Set
End Property
'''<remarks/>
Public Property Orario() As Byte
Get
Return Me.orarioField
End Get
Set
Me.orarioField = value
End Set
End Property
'''<remarks/>
Public Property StopEndMov() As SByte
Get
Return Me.stopEndMovField
End Get
Set
Me.stopEndMovField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property AxName() As Byte()
Get
Return Me.axNameField
End Get
Set
Me.axNameField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Piniziale() As Double()
Get
Return Me.pinizialeField
End Get
Set
Me.pinizialeField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Pfinale() As Double()
Get
Return Me.pfinaleField
End Get
Set
Me.pfinaleField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Centro() As Double()
Get
Return Me.centroField
End Get
Set
Me.centroField = value
End Set
End Property
'''<remarks/>
Public Property HelicStep() As Double
Get
Return Me.helicStepField
End Get
Set
Me.helicStepField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property VersoreOrtog() As Double()
Get
Return Me.versoreOrtogField
End Get
Set
Me.versoreOrtogField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property RTV() As Double()
Get
Return Me.rTVField
End Get
Set
Me.rTVField = value
End Set
End Property
'''<remarks/>
Public Property BRK() As Double
Get
Return Me.bRKField
End Get
Set
Me.bRKField = value
End Set
End Property
'''<remarks/>
Public Property Tbegin() As Double
Get
Return Me.tbeginField
End Get
Set
Me.tbeginField = value
End Set
End Property
'''<remarks/>
Public Property Tmov() As Double
Get
Return Me.tmovField
End Get
Set
Me.tmovField = value
End Set
End Property
'''<remarks/>
Public Property Tend() As Double
Get
Return Me.tendField
End Get
Set
Me.tendField = value
End Set
End Property
'''<remarks/>
Public Property LineMain() As ULong
Get
Return Me.lineMainField
End Get
Set
Me.lineMainField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="statement-s", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class statements
Private blkStatusField As Byte
Private numCharField As Byte
Private blockField() As String
'''<remarks/>
Public Property BlkStatus() As Byte
Get
Return Me.blkStatusField
End Get
Set
Me.blkStatusField = value
End Set
End Property
'''<remarks/>
Public Property NumChar() As Byte
Get
Return Me.numCharField
End Get
Set
Me.numCharField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Block() As String()
Get
Return Me.blockField
End Get
Set
Me.blockField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="MON-DRYRUN", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class MONDRYRUN
Private procesIdField As UShort
Private statementField As statements
Private umField As Byte
Private actualToolField() As String
Private actualToolOffField As UShort
Private movTypeField As Byte
Private gmodeField As Byte
Private orarioField As Byte
Private visualPntField() As Double
Private pfinaleField() As Double
Private centroField() As Double
Private helicStepField As Double
Private axNameField() As Byte
'''<remarks/>
Public Property ProcesId() As UShort
Get
Return Me.procesIdField
End Get
Set
Me.procesIdField = value
End Set
End Property
'''<remarks/>
Public Property Statement() As statements
Get
Return Me.statementField
End Get
Set
Me.statementField = value
End Set
End Property
'''<remarks/>
Public Property um() As Byte
Get
Return Me.umField
End Get
Set
Me.umField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property ActualTool() As String()
Get
Return Me.actualToolField
End Get
Set
Me.actualToolField = value
End Set
End Property
'''<remarks/>
Public Property ActualToolOff() As UShort
Get
Return Me.actualToolOffField
End Get
Set
Me.actualToolOffField = value
End Set
End Property
'''<remarks/>
Public Property MovType() As Byte
Get
Return Me.movTypeField
End Get
Set
Me.movTypeField = value
End Set
End Property
'''<remarks/>
Public Property Gmode() As Byte
Get
Return Me.gmodeField
End Get
Set
Me.gmodeField = value
End Set
End Property
'''<remarks/>
Public Property Orario() As Byte
Get
Return Me.orarioField
End Get
Set
Me.orarioField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property VisualPnt() As Double()
Get
Return Me.visualPntField
End Get
Set
Me.visualPntField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Pfinale() As Double()
Get
Return Me.pfinaleField
End Get
Set
Me.pfinaleField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Centro() As Double()
Get
Return Me.centroField
End Get
Set
Me.centroField = value
End Set
End Property
'''<remarks/>
Public Property HelicStep() As Double
Get
Return Me.helicStepField
End Get
Set
Me.helicStepField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property AxName() As Byte()
Get
Return Me.axNameField
End Get
Set
Me.axNameField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="MON-VAR-DESCR", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class MONVARDESCR
Private classField As UShort
Private subClassField As UShort
Private deviceIDField As UShort
Private codeField As UShort
Private addressField As UShort
Private signalField As UShort
Private samplingPeriodField As Double
'''<remarks/>
Public Property [Class]() As UShort
Get
Return Me.classField
End Get
Set
Me.classField = value
End Set
End Property
'''<remarks/>
Public Property SubClass() As UShort
Get
Return Me.subClassField
End Get
Set
Me.subClassField = value
End Set
End Property
'''<remarks/>
Public Property DeviceID() As UShort
Get
Return Me.deviceIDField
End Get
Set
Me.deviceIDField = value
End Set
End Property
'''<remarks/>
Public Property Code() As UShort
Get
Return Me.codeField
End Get
Set
Me.codeField = value
End Set
End Property
'''<remarks/>
Public Property Address() As UShort
Get
Return Me.addressField
End Get
Set
Me.addressField = value
End Set
End Property
'''<remarks/>
Public Property Signal() As UShort
Get
Return Me.signalField
End Get
Set
Me.signalField = value
End Set
End Property
'''<remarks/>
Public Property SamplingPeriod() As Double
Get
Return Me.samplingPeriodField
End Get
Set
Me.samplingPeriodField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:OPENcontrol")> _
Partial Public Class MONCUSTOMEVENTINFO
Private idField As UShort
Private typeField As UShort
Private nameField As String
'''<remarks/>
Public Property ID() As UShort
Get
Return Me.idField
End Get
Set
Me.idField = value
End Set
End Property
'''<remarks/>
Public Property Type() As UShort
Get
Return Me.typeField
End Get
Set
Me.typeField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> _
Public Property Name() As String
Get
Return Me.nameField
End Get
Set
Me.nameField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="DE-FRAME", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class DEFRAME
Private rowField As UShort
Private colField As UShort
Private lenField As UShort
Private textField() As Byte
'''<remarks/>
Public Property row() As UShort
Get
Return Me.rowField
End Get
Set
Me.rowField = value
End Set
End Property
'''<remarks/>
Public Property col() As UShort
Get
Return Me.colField
End Get
Set
Me.colField = value
End Set
End Property
'''<remarks/>
Public Property len() As UShort
Get
Return Me.lenField
End Get
Set
Me.lenField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property text() As Byte()
Get
Return Me.textField
End Get
Set
Me.textField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="DE-FIELD-CONTROL", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class DEFIELDCONTROL
Private strmatchField() As Byte
Private rangebyteField() As Byte
Private rangeintField() As Short
Private rangelongField() As Long
Private rangeuintField() As UShort
Private rangeulongField() As ULong
Private rangefloatField() As Double
Private rangedoubleField() As Double
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("str-match", DataType:="base64Binary", IsNullable:=true)> _
Public Property strmatch() As Byte()
Get
Return Me.strmatchField
End Get
Set
Me.strmatchField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("range-byte", DataType:="base64Binary", IsNullable:=true)> _
Public Property rangebyte() As Byte()
Get
Return Me.rangebyteField
End Get
Set
Me.rangebyteField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute("range-int", IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property rangeint() As Short()
Get
Return Me.rangeintField
End Get
Set
Me.rangeintField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute("range-long", IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property rangelong() As Long()
Get
Return Me.rangelongField
End Get
Set
Me.rangelongField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute("range-uint", IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property rangeuint() As UShort()
Get
Return Me.rangeuintField
End Get
Set
Me.rangeuintField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute("range-ulong", IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property rangeulong() As ULong()
Get
Return Me.rangeulongField
End Get
Set
Me.rangeulongField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute("range-float", IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property rangefloat() As Double()
Get
Return Me.rangefloatField
End Get
Set
Me.rangefloatField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute("range-double", IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property rangedouble() As Double()
Get
Return Me.rangedoubleField
End Get
Set
Me.rangedoubleField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="DE-FIELD-CHECK", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class DEFIELDCHECK
Private convField As Byte
Private valueField As DEFIELDCONTROL
'''<remarks/>
Public Property conv() As Byte
Get
Return Me.convField
End Get
Set
Me.convField = value
End Set
End Property
'''<remarks/>
Public Property value() As DEFIELDCONTROL
Get
Return Me.valueField
End Get
Set
Me.valueField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="DE-FIELD", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class DEFIELD
Private rowField As UShort
Private colField As UShort
Private typeField As Byte
Private myIdField As Byte
Private sizeField As UShort
Private disSizeField As UShort
Private checkField As DEFIELDCHECK
'''<remarks/>
Public Property row() As UShort
Get
Return Me.rowField
End Get
Set
Me.rowField = value
End Set
End Property
'''<remarks/>
Public Property col() As UShort
Get
Return Me.colField
End Get
Set
Me.colField = value
End Set
End Property
'''<remarks/>
Public Property type() As Byte
Get
Return Me.typeField
End Get
Set
Me.typeField = value
End Set
End Property
'''<remarks/>
Public Property myId() As Byte
Get
Return Me.myIdField
End Get
Set
Me.myIdField = value
End Set
End Property
'''<remarks/>
Public Property size() As UShort
Get
Return Me.sizeField
End Get
Set
Me.sizeField = value
End Set
End Property
'''<remarks/>
Public Property disSize() As UShort
Get
Return Me.disSizeField
End Get
Set
Me.disSizeField = value
End Set
End Property
'''<remarks/>
Public Property check() As DEFIELDCHECK
Get
Return Me.checkField
End Get
Set
Me.checkField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="DE-KEY", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class DEKEY
Private abortField() As Byte
Private confirm1Field() As Byte
Private confirm2Field() As Byte
Private confirm3Field() As Byte
Private resetField() As Byte
Private incresField() As Byte
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property abort() As Byte()
Get
Return Me.abortField
End Get
Set
Me.abortField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property confirm1() As Byte()
Get
Return Me.confirm1Field
End Get
Set
Me.confirm1Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property confirm2() As Byte()
Get
Return Me.confirm2Field
End Get
Set
Me.confirm2Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property confirm3() As Byte()
Get
Return Me.confirm3Field
End Get
Set
Me.confirm3Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property reset() As Byte()
Get
Return Me.resetField
End Get
Set
Me.resetField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("inc-res", DataType:="base64Binary", IsNullable:=true)> _
Public Property incres() As Byte()
Get
Return Me.incresField
End Get
Set
Me.incresField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="USER-INP-TAB", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class USERINPTAB
Private myIdField As Short
Private iniRowField As Byte
Private iniColField As Byte
Private totRowField As Byte
Private totColField As Byte
Private myTypeField As Byte
Private helpField() As Byte
Private totFrameField As Byte
Private totFieldField As Byte
Private keyField As DEKEY
Private fldField() As DEFIELD
Private frmField() As DEFRAME
Private strDef1Field() As Byte
Private strDef2Field() As Byte
Private strDef3Field() As Byte
Private strDef4Field() As Byte
Private strDef5Field() As Byte
Private strDef6Field() As Byte
Private strDef7Field() As Byte
Private strDef8Field() As Byte
Private decolorField() As ULong
'''<remarks/>
Public Property myId() As Short
Get
Return Me.myIdField
End Get
Set
Me.myIdField = value
End Set
End Property
'''<remarks/>
Public Property iniRow() As Byte
Get
Return Me.iniRowField
End Get
Set
Me.iniRowField = value
End Set
End Property
'''<remarks/>
Public Property iniCol() As Byte
Get
Return Me.iniColField
End Get
Set
Me.iniColField = value
End Set
End Property
'''<remarks/>
Public Property totRow() As Byte
Get
Return Me.totRowField
End Get
Set
Me.totRowField = value
End Set
End Property
'''<remarks/>
Public Property totCol() As Byte
Get
Return Me.totColField
End Get
Set
Me.totColField = value
End Set
End Property
'''<remarks/>
Public Property myType() As Byte
Get
Return Me.myTypeField
End Get
Set
Me.myTypeField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property help() As Byte()
Get
Return Me.helpField
End Get
Set
Me.helpField = value
End Set
End Property
'''<remarks/>
Public Property totFrame() As Byte
Get
Return Me.totFrameField
End Get
Set
Me.totFrameField = value
End Set
End Property
'''<remarks/>
Public Property totField() As Byte
Get
Return Me.totFieldField
End Get
Set
Me.totFieldField = value
End Set
End Property
'''<remarks/>
Public Property key() As DEKEY
Get
Return Me.keyField
End Get
Set
Me.keyField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property fld() As DEFIELD()
Get
Return Me.fldField
End Get
Set
Me.fldField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property frm() As DEFRAME()
Get
Return Me.frmField
End Get
Set
Me.frmField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property strDef1() As Byte()
Get
Return Me.strDef1Field
End Get
Set
Me.strDef1Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property strDef2() As Byte()
Get
Return Me.strDef2Field
End Get
Set
Me.strDef2Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property strDef3() As Byte()
Get
Return Me.strDef3Field
End Get
Set
Me.strDef3Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property strDef4() As Byte()
Get
Return Me.strDef4Field
End Get
Set
Me.strDef4Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property strDef5() As Byte()
Get
Return Me.strDef5Field
End Get
Set
Me.strDef5Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property strDef6() As Byte()
Get
Return Me.strDef6Field
End Get
Set
Me.strDef6Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property strDef7() As Byte()
Get
Return Me.strDef7Field
End Get
Set
Me.strDef7Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property strDef8() As Byte()
Get
Return Me.strDef8Field
End Get
Set
Me.strDef8Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute("de-color", IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property decolor() As ULong()
Get
Return Me.decolorField
End Get
Set
Me.decolorField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="INPUT-INFO", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class INPUTINFO
Private processField As UShort
Private isInInputField As Byte
Private dataField As USERINPTAB
'''<remarks/>
Public Property Process() As UShort
Get
Return Me.processField
End Get
Set
Me.processField = value
End Set
End Property
'''<remarks/>
Public Property isInInput() As Byte
Get
Return Me.isInInputField
End Get
Set
Me.isInInputField = value
End Set
End Property
'''<remarks/>
Public Property Data() As USERINPTAB
Get
Return Me.dataField
End Get
Set
Me.dataField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:OPENcontrol")> _
Partial Public Class SECUR
Private securLevelField As UShort
Private enabStrField() As Byte
Private key1Field() As Byte
Private key2Field() As Byte
Private key3Field() As Byte
'''<remarks/>
Public Property SecurLevel() As UShort
Get
Return Me.securLevelField
End Get
Set
Me.securLevelField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property EnabStr() As Byte()
Get
Return Me.enabStrField
End Get
Set
Me.enabStrField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property Key1() As Byte()
Get
Return Me.key1Field
End Get
Set
Me.key1Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property Key2() As Byte()
Get
Return Me.key2Field
End Get
Set
Me.key2Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property Key3() As Byte()
Get
Return Me.key3Field
End Get
Set
Me.key3Field = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:OPENcontrol")> _
Partial Public Class LEVEL
Private passwField() As Byte
Private enabStrField() As Byte
Private ctrlField() As Byte
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property Passw() As Byte()
Get
Return Me.passwField
End Get
Set
Me.passwField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property EnabStr() As Byte()
Get
Return Me.enabStrField
End Get
Set
Me.enabStrField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property Ctrl() As Byte()
Get
Return Me.ctrlField
End Get
Set
Me.ctrlField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="SECUR-DATA", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class SECURDATA
Private levelInfoField() As LEVEL
Private securInfoField As SECUR
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property LevelInfo() As LEVEL()
Get
Return Me.levelInfoField
End Get
Set
Me.levelInfoField = value
End Set
End Property
'''<remarks/>
Public Property SecurInfo() As SECUR
Get
Return Me.securInfoField
End Get
Set
Me.securInfoField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:OPENcontrol")> _
Partial Public Class REMAPDEF
Private varTypeField As Byte
Private physAddrField As UShort
Private physBitField As Byte
Private logicAddrField As UShort
Private logicBitField As Byte
Private modeField As Byte
Private riseTimeField As UInteger
Private fallTimeField As UInteger
Private valueField As UInteger
Private iOMsgIdField As UInteger
Private iOClassField As Byte
Private currPhysValueField As UInteger
Private currLogicValueField As UInteger
'''<remarks/>
Public Property VarType() As Byte
Get
Return Me.varTypeField
End Get
Set
Me.varTypeField = value
End Set
End Property
'''<remarks/>
Public Property PhysAddr() As UShort
Get
Return Me.physAddrField
End Get
Set
Me.physAddrField = value
End Set
End Property
'''<remarks/>
Public Property PhysBit() As Byte
Get
Return Me.physBitField
End Get
Set
Me.physBitField = value
End Set
End Property
'''<remarks/>
Public Property LogicAddr() As UShort
Get
Return Me.logicAddrField
End Get
Set
Me.logicAddrField = value
End Set
End Property
'''<remarks/>
Public Property LogicBit() As Byte
Get
Return Me.logicBitField
End Get
Set
Me.logicBitField = value
End Set
End Property
'''<remarks/>
Public Property Mode() As Byte
Get
Return Me.modeField
End Get
Set
Me.modeField = value
End Set
End Property
'''<remarks/>
Public Property RiseTime() As UInteger
Get
Return Me.riseTimeField
End Get
Set
Me.riseTimeField = value
End Set
End Property
'''<remarks/>
Public Property FallTime() As UInteger
Get
Return Me.fallTimeField
End Get
Set
Me.fallTimeField = value
End Set
End Property
'''<remarks/>
Public Property Value() As UInteger
Get
Return Me.valueField
End Get
Set
Me.valueField = value
End Set
End Property
'''<remarks/>
Public Property IOMsgId() As UInteger
Get
Return Me.iOMsgIdField
End Get
Set
Me.iOMsgIdField = value
End Set
End Property
'''<remarks/>
Public Property IOClass() As Byte
Get
Return Me.iOClassField
End Get
Set
Me.iOClassField = value
End Set
End Property
'''<remarks/>
Public Property CurrPhysValue() As UInteger
Get
Return Me.currPhysValueField
End Get
Set
Me.currPhysValueField = value
End Set
End Property
'''<remarks/>
Public Property CurrLogicValue() As UInteger
Get
Return Me.currLogicValueField
End Get
Set
Me.currLogicValueField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="MARKER-INFO", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class MARKERINFO
Private numberField As Short
Private lineNumField() As UInteger
Private numBlksField() As UInteger
Private markerNameField()() As Byte
Private pPnameField()() As Byte
Private breakValField As UInteger
'''<remarks/>
Public Property Number() As Short
Get
Return Me.numberField
End Get
Set
Me.numberField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property LineNum() As UInteger()
Get
Return Me.lineNumField
End Get
Set
Me.lineNumField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property NumBlks() As UInteger()
Get
Return Me.numBlksField
End Get
Set
Me.numBlksField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", DataType:="base64Binary", IsNullable:=false)> _
Public Property MarkerName() As Byte()()
Get
Return Me.markerNameField
End Get
Set
Me.markerNameField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", DataType:="base64Binary", IsNullable:=false)> _
Public Property PPname() As Byte()()
Get
Return Me.pPnameField
End Get
Set
Me.pPnameField = value
End Set
End Property
'''<remarks/>
Public Property breakVal() As UInteger
Get
Return Me.breakValField
End Get
Set
Me.breakValField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="MSG-ANOMALY", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class MSGANOMALY
Private bootIDField As UInteger
Private systemTimeField As SYSTEMTIMECNDEX
Private unIdSeqField As UInteger
Private codeErrField As UInteger
Private lineaField As UInteger
Private formatTxtField() As Byte
'''<remarks/>
Public Property BootID() As UInteger
Get
Return Me.bootIDField
End Get
Set
Me.bootIDField = value
End Set
End Property
'''<remarks/>
Public Property SystemTime() As SYSTEMTIMECNDEX
Get
Return Me.systemTimeField
End Get
Set
Me.systemTimeField = value
End Set
End Property
'''<remarks/>
Public Property UnIdSeq() As UInteger
Get
Return Me.unIdSeqField
End Get
Set
Me.unIdSeqField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("Code-Err")> _
Public Property CodeErr() As UInteger
Get
Return Me.codeErrField
End Get
Set
Me.codeErrField = value
End Set
End Property
'''<remarks/>
Public Property Linea() As UInteger
Get
Return Me.lineaField
End Get
Set
Me.lineaField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property FormatTxt() As Byte()
Get
Return Me.formatTxtField
End Get
Set
Me.formatTxtField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="SYSTEMTIME-CNDEX", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class SYSTEMTIMECNDEX
Private wYearField As UShort
Private wMonthField As UShort
Private wDayOfWeekField As UShort
Private wDayField As UShort
Private wHourField As UShort
Private wMinuteField As UShort
Private wSecondField As UShort
Private wMillisecondsField As UShort
'''<remarks/>
Public Property wYear() As UShort
Get
Return Me.wYearField
End Get
Set
Me.wYearField = value
End Set
End Property
'''<remarks/>
Public Property wMonth() As UShort
Get
Return Me.wMonthField
End Get
Set
Me.wMonthField = value
End Set
End Property
'''<remarks/>
Public Property wDayOfWeek() As UShort
Get
Return Me.wDayOfWeekField
End Get
Set
Me.wDayOfWeekField = value
End Set
End Property
'''<remarks/>
Public Property wDay() As UShort
Get
Return Me.wDayField
End Get
Set
Me.wDayField = value
End Set
End Property
'''<remarks/>
Public Property wHour() As UShort
Get
Return Me.wHourField
End Get
Set
Me.wHourField = value
End Set
End Property
'''<remarks/>
Public Property wMinute() As UShort
Get
Return Me.wMinuteField
End Get
Set
Me.wMinuteField = value
End Set
End Property
'''<remarks/>
Public Property wSecond() As UShort
Get
Return Me.wSecondField
End Get
Set
Me.wSecondField = value
End Set
End Property
'''<remarks/>
Public Property wMilliseconds() As UShort
Get
Return Me.wMillisecondsField
End Get
Set
Me.wMillisecondsField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="MSG-LOGS", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class MSGLOGS
Private bootIDField As UInteger
Private systemTimeField As SYSTEMTIMECNDEX
Private unIdSeqField As UInteger
Private codeLogField As UInteger
Private errinfoField As UInteger
Private formatTxtField() As Byte
'''<remarks/>
Public Property BootID() As UInteger
Get
Return Me.bootIDField
End Get
Set
Me.bootIDField = value
End Set
End Property
'''<remarks/>
Public Property SystemTime() As SYSTEMTIMECNDEX
Get
Return Me.systemTimeField
End Get
Set
Me.systemTimeField = value
End Set
End Property
'''<remarks/>
Public Property UnIdSeq() As UInteger
Get
Return Me.unIdSeqField
End Get
Set
Me.unIdSeqField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("Code-Log")> _
Public Property CodeLog() As UInteger
Get
Return Me.codeLogField
End Get
Set
Me.codeLogField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("Err-info")> _
Public Property Errinfo() As UInteger
Get
Return Me.errinfoField
End Get
Set
Me.errinfoField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property FormatTxt() As Byte()
Get
Return Me.formatTxtField
End Get
Set
Me.formatTxtField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="MSG-ERROR", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class MSGERROR
Private bootIDField As UInteger
Private systemTimeField As SYSTEMTIMECNDEX
Private unIdSeqField As UInteger
Private codeErrField As UInteger
Private processField As Short
Private comandoField As SByte
Private subComField As SByte
Private formatTxtField() As Byte
'''<remarks/>
Public Property BootID() As UInteger
Get
Return Me.bootIDField
End Get
Set
Me.bootIDField = value
End Set
End Property
'''<remarks/>
Public Property SystemTime() As SYSTEMTIMECNDEX
Get
Return Me.systemTimeField
End Get
Set
Me.systemTimeField = value
End Set
End Property
'''<remarks/>
Public Property UnIdSeq() As UInteger
Get
Return Me.unIdSeqField
End Get
Set
Me.unIdSeqField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("Code-Err")> _
Public Property CodeErr() As UInteger
Get
Return Me.codeErrField
End Get
Set
Me.codeErrField = value
End Set
End Property
'''<remarks/>
Public Property Process() As Short
Get
Return Me.processField
End Get
Set
Me.processField = value
End Set
End Property
'''<remarks/>
Public Property Comando() As SByte
Get
Return Me.comandoField
End Get
Set
Me.comandoField = value
End Set
End Property
'''<remarks/>
Public Property SubCom() As SByte
Get
Return Me.subComField
End Get
Set
Me.subComField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property FormatTxt() As Byte()
Get
Return Me.formatTxtField
End Get
Set
Me.formatTxtField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="MSG-EMERGENCY", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class MSGEMERGENCY
Private bootIDField As UInteger
Private systemTimeField As SYSTEMTIMECNDEX
Private unIdSeqField As UInteger
Private codeErrField As UInteger
Private processField As Short
Private procErrField As Short
Private formatTxtField() As Byte
'''<remarks/>
Public Property BootID() As UInteger
Get
Return Me.bootIDField
End Get
Set
Me.bootIDField = value
End Set
End Property
'''<remarks/>
Public Property SystemTime() As SYSTEMTIMECNDEX
Get
Return Me.systemTimeField
End Get
Set
Me.systemTimeField = value
End Set
End Property
'''<remarks/>
Public Property UnIdSeq() As UInteger
Get
Return Me.unIdSeqField
End Get
Set
Me.unIdSeqField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("Code-Err")> _
Public Property CodeErr() As UInteger
Get
Return Me.codeErrField
End Get
Set
Me.codeErrField = value
End Set
End Property
'''<remarks/>
Public Property Process() As Short
Get
Return Me.processField
End Get
Set
Me.processField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("Proc-Err")> _
Public Property ProcErr() As Short
Get
Return Me.procErrField
End Get
Set
Me.procErrField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property FormatTxt() As Byte()
Get
Return Me.formatTxtField
End Get
Set
Me.formatTxtField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="FILE-FIND-DATA", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class FILEFINDDATA
Private fileAttributesField As UInteger
Private lowDateCreationTimeField As UInteger
Private highDateCreationTimeField As UInteger
Private lowDateLastAccessTimeField As UInteger
Private highDateLastAccessTimeField As UInteger
Private lowDateLastWriteTimeField As UInteger
Private highDateLastWriteTimeField As UInteger
Private fileSizeHighField As UInteger
Private fileSizeLowField As UInteger
Private fileNameField As String
'''<remarks/>
Public Property FileAttributes() As UInteger
Get
Return Me.fileAttributesField
End Get
Set
Me.fileAttributesField = value
End Set
End Property
'''<remarks/>
Public Property LowDateCreationTime() As UInteger
Get
Return Me.lowDateCreationTimeField
End Get
Set
Me.lowDateCreationTimeField = value
End Set
End Property
'''<remarks/>
Public Property HighDateCreationTime() As UInteger
Get
Return Me.highDateCreationTimeField
End Get
Set
Me.highDateCreationTimeField = value
End Set
End Property
'''<remarks/>
Public Property LowDateLastAccessTime() As UInteger
Get
Return Me.lowDateLastAccessTimeField
End Get
Set
Me.lowDateLastAccessTimeField = value
End Set
End Property
'''<remarks/>
Public Property HighDateLastAccessTime() As UInteger
Get
Return Me.highDateLastAccessTimeField
End Get
Set
Me.highDateLastAccessTimeField = value
End Set
End Property
'''<remarks/>
Public Property LowDateLastWriteTime() As UInteger
Get
Return Me.lowDateLastWriteTimeField
End Get
Set
Me.lowDateLastWriteTimeField = value
End Set
End Property
'''<remarks/>
Public Property HighDateLastWriteTime() As UInteger
Get
Return Me.highDateLastWriteTimeField
End Get
Set
Me.highDateLastWriteTimeField = value
End Set
End Property
'''<remarks/>
Public Property FileSizeHigh() As UInteger
Get
Return Me.fileSizeHighField
End Get
Set
Me.fileSizeHighField = value
End Set
End Property
'''<remarks/>
Public Property FileSizeLow() As UInteger
Get
Return Me.fileSizeLowField
End Get
Set
Me.fileSizeLowField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> _
Public Property FileName() As String
Get
Return Me.fileNameField
End Get
Set
Me.fileNameField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="ERR-MSG", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class ERRMSG
Private msg1Field As String
Private msg2Field As String
Private msg3Field As String
Private msg4Field As String
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> _
Public Property Msg1() As String
Get
Return Me.msg1Field
End Get
Set
Me.msg1Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> _
Public Property Msg2() As String
Get
Return Me.msg2Field
End Get
Set
Me.msg2Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> _
Public Property Msg3() As String
Get
Return Me.msg3Field
End Get
Set
Me.msg3Field = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> _
Public Property Msg4() As String
Get
Return Me.msg4Field
End Get
Set
Me.msg4Field = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:OPENcontrol")> _
Partial Public Class GETBLKNUMDATA
Private ppActNumField As UShort
Private mainActBlkField As UInteger
Private sbr1ActBlkField As UInteger
Private sbr2ActBlkField As UInteger
Private sbr3ActBlkField As UInteger
Private sbr4ActBlkField As UInteger
'''<remarks/>
Public Property ppActNum() As UShort
Get
Return Me.ppActNumField
End Get
Set
Me.ppActNumField = value
End Set
End Property
'''<remarks/>
Public Property MainActBlk() As UInteger
Get
Return Me.mainActBlkField
End Get
Set
Me.mainActBlkField = value
End Set
End Property
'''<remarks/>
Public Property Sbr1ActBlk() As UInteger
Get
Return Me.sbr1ActBlkField
End Get
Set
Me.sbr1ActBlkField = value
End Set
End Property
'''<remarks/>
Public Property Sbr2ActBlk() As UInteger
Get
Return Me.sbr2ActBlkField
End Get
Set
Me.sbr2ActBlkField = value
End Set
End Property
'''<remarks/>
Public Property Sbr3ActBlk() As UInteger
Get
Return Me.sbr3ActBlkField
End Get
Set
Me.sbr3ActBlkField = value
End Set
End Property
'''<remarks/>
Public Property Sbr4ActBlk() As UInteger
Get
Return Me.sbr4ActBlkField
End Get
Set
Me.sbr4ActBlkField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:OPENcontrol")> _
Partial Public Class PROCDATA
Private modeField As UShort
Private statusField As UShort
Private subStatusField As UShort
'''<remarks/>
Public Property Mode() As UShort
Get
Return Me.modeField
End Get
Set
Me.modeField = value
End Set
End Property
'''<remarks/>
Public Property Status() As UShort
Get
Return Me.statusField
End Get
Set
Me.statusField = value
End Set
End Property
'''<remarks/>
Public Property SubStatus() As UShort
Get
Return Me.subStatusField
End Get
Set
Me.subStatusField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:OPENcontrol")> _
Partial Public Class GETINFO2DATA
Private statusWordField As UShort
Private urpField As Double
Private actToolField As Double
Private actOffsetField As UShort
Private progToolField As Double
Private progOffsetField As UShort
Private mStatusField As UShort
Private mValueField() As UShort
Private ax1NameField As Byte
Private ax1OffsetField As Double
Private ax2NameField As Byte
Private ax2OffsetField As Double
Private radiusField As Double
'''<remarks/>
Public Property StatusWord() As UShort
Get
Return Me.statusWordField
End Get
Set
Me.statusWordField = value
End Set
End Property
'''<remarks/>
Public Property Urp() As Double
Get
Return Me.urpField
End Get
Set
Me.urpField = value
End Set
End Property
'''<remarks/>
Public Property ActTool() As Double
Get
Return Me.actToolField
End Get
Set
Me.actToolField = value
End Set
End Property
'''<remarks/>
Public Property ActOffset() As UShort
Get
Return Me.actOffsetField
End Get
Set
Me.actOffsetField = value
End Set
End Property
'''<remarks/>
Public Property ProgTool() As Double
Get
Return Me.progToolField
End Get
Set
Me.progToolField = value
End Set
End Property
'''<remarks/>
Public Property ProgOffset() As UShort
Get
Return Me.progOffsetField
End Get
Set
Me.progOffsetField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("M-Status")> _
Public Property MStatus() As UShort
Get
Return Me.mStatusField
End Get
Set
Me.mStatusField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute("M-Value", IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property MValue() As UShort()
Get
Return Me.mValueField
End Get
Set
Me.mValueField = value
End Set
End Property
'''<remarks/>
Public Property Ax1Name() As Byte
Get
Return Me.ax1NameField
End Get
Set
Me.ax1NameField = value
End Set
End Property
'''<remarks/>
Public Property Ax1Offset() As Double
Get
Return Me.ax1OffsetField
End Get
Set
Me.ax1OffsetField = value
End Set
End Property
'''<remarks/>
Public Property Ax2Name() As Byte
Get
Return Me.ax2NameField
End Get
Set
Me.ax2NameField = value
End Set
End Property
'''<remarks/>
Public Property Ax2Offset() As Double
Get
Return Me.ax2OffsetField
End Get
Set
Me.ax2OffsetField = value
End Set
End Property
'''<remarks/>
Public Property Radius() As Double
Get
Return Me.radiusField
End Get
Set
Me.radiusField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:OPENcontrol")> _
Partial Public Class GETINFO1DATA
Private statusField As Byte
Private substatusField As Byte
Private modeselectField As Byte
Private jogdirField As Byte
Private speedovField As UShort
Private feedovField As UShort
Private rapfeedovField As UShort
Private manfeedovField As UShort
Private jogincrField As Double
Private numaxselField As Byte
Private axselField() As Byte
Private actualtoolField As Double
Private progrtoolField As Double
Private actualtooloffField As UShort
Private progrtooloffField As UShort
Private realspeedField As Double
Private progrspeedField As Double
Private progrfeedField As Double
Private rapidfeedField As Double
Private realfeedField As Double
Private feedmisunitField As UShort
Private mainprogrnameField As String
Private dryrunField As Byte
Private rapidoverrideField As Byte
Private disableslashedblkField As Byte
Private optionalstopField As Byte
Private forcerapidfeedField As Byte
Private autojogretField As Byte
Private blockretraceField As Byte
Private lastncerrorField As UShort
Private freeField As String
'''<remarks/>
Public Property status() As Byte
Get
Return Me.statusField
End Get
Set
Me.statusField = value
End Set
End Property
'''<remarks/>
Public Property substatus() As Byte
Get
Return Me.substatusField
End Get
Set
Me.substatusField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("mode-select")> _
Public Property modeselect() As Byte
Get
Return Me.modeselectField
End Get
Set
Me.modeselectField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("jog-dir")> _
Public Property jogdir() As Byte
Get
Return Me.jogdirField
End Get
Set
Me.jogdirField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("speed-ov")> _
Public Property speedov() As UShort
Get
Return Me.speedovField
End Get
Set
Me.speedovField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("feed-ov")> _
Public Property feedov() As UShort
Get
Return Me.feedovField
End Get
Set
Me.feedovField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("rap-feed-ov")> _
Public Property rapfeedov() As UShort
Get
Return Me.rapfeedovField
End Get
Set
Me.rapfeedovField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("man-feed-ov")> _
Public Property manfeedov() As UShort
Get
Return Me.manfeedovField
End Get
Set
Me.manfeedovField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("jog-incr")> _
Public Property jogincr() As Double
Get
Return Me.jogincrField
End Get
Set
Me.jogincrField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("num-ax-sel")> _
Public Property numaxsel() As Byte
Get
Return Me.numaxselField
End Get
Set
Me.numaxselField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("ax-sel", DataType:="base64Binary", IsNullable:=true)> _
Public Property axsel() As Byte()
Get
Return Me.axselField
End Get
Set
Me.axselField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("actual-tool")> _
Public Property actualtool() As Double
Get
Return Me.actualtoolField
End Get
Set
Me.actualtoolField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("progr-tool")> _
Public Property progrtool() As Double
Get
Return Me.progrtoolField
End Get
Set
Me.progrtoolField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("actual-tool-off")> _
Public Property actualtooloff() As UShort
Get
Return Me.actualtooloffField
End Get
Set
Me.actualtooloffField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("progr-tool-off")> _
Public Property progrtooloff() As UShort
Get
Return Me.progrtooloffField
End Get
Set
Me.progrtooloffField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("real-speed")> _
Public Property realspeed() As Double
Get
Return Me.realspeedField
End Get
Set
Me.realspeedField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("progr-speed")> _
Public Property progrspeed() As Double
Get
Return Me.progrspeedField
End Get
Set
Me.progrspeedField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("progr-feed")> _
Public Property progrfeed() As Double
Get
Return Me.progrfeedField
End Get
Set
Me.progrfeedField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("rapid-feed")> _
Public Property rapidfeed() As Double
Get
Return Me.rapidfeedField
End Get
Set
Me.rapidfeedField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("real-feed")> _
Public Property realfeed() As Double
Get
Return Me.realfeedField
End Get
Set
Me.realfeedField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("feed-mis-unit")> _
Public Property feedmisunit() As UShort
Get
Return Me.feedmisunitField
End Get
Set
Me.feedmisunitField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("main-progr-name", IsNullable:=true)> _
Public Property mainprogrname() As String
Get
Return Me.mainprogrnameField
End Get
Set
Me.mainprogrnameField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("dry-run")> _
Public Property dryrun() As Byte
Get
Return Me.dryrunField
End Get
Set
Me.dryrunField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("rapid-override")> _
Public Property rapidoverride() As Byte
Get
Return Me.rapidoverrideField
End Get
Set
Me.rapidoverrideField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("disable-slashed-blk")> _
Public Property disableslashedblk() As Byte
Get
Return Me.disableslashedblkField
End Get
Set
Me.disableslashedblkField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("optional-stop")> _
Public Property optionalstop() As Byte
Get
Return Me.optionalstopField
End Get
Set
Me.optionalstopField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("force-rapid-feed")> _
Public Property forcerapidfeed() As Byte
Get
Return Me.forcerapidfeedField
End Get
Set
Me.forcerapidfeedField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("auto-jog-ret")> _
Public Property autojogret() As Byte
Get
Return Me.autojogretField
End Get
Set
Me.autojogretField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("block-retrace")> _
Public Property blockretrace() As Byte
Get
Return Me.blockretraceField
End Get
Set
Me.blockretraceField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute("last-nc-error")> _
Public Property lastncerror() As UShort
Get
Return Me.lastncerrorField
End Get
Set
Me.lastncerrorField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> _
Public Property free() As String
Get
Return Me.freeField
End Get
Set
Me.freeField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:OPENcontrol")> _
Partial Public Class GETINTDATA
Private axisNameField As Byte
Private modeField As Byte
Private positionField As Double
Private totalOffsetField As Double
'''<remarks/>
Public Property AxisName() As Byte
Get
Return Me.axisNameField
End Get
Set
Me.axisNameField = value
End Set
End Property
'''<remarks/>
Public Property mode() As Byte
Get
Return Me.modeField
End Get
Set
Me.modeField = value
End Set
End Property
'''<remarks/>
Public Property position() As Double
Get
Return Me.positionField
End Get
Set
Me.positionField = value
End Set
End Property
'''<remarks/>
Public Property TotalOffset() As Double
Get
Return Me.totalOffsetField
End Get
Set
Me.totalOffsetField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="AX-ORIG-NUM", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class AXORIGNUM
Private axisNameField As Byte
Private originNumberField As Byte
Private originFlagField As UShort
'''<remarks/>
Public Property AxisName() As Byte
Get
Return Me.axisNameField
End Get
Set
Me.axisNameField = value
End Set
End Property
'''<remarks/>
Public Property OriginNumber() As Byte
Get
Return Me.originNumberField
End Get
Set
Me.originNumberField = value
End Set
End Property
'''<remarks/>
Public Property OriginFlag() As UShort
Get
Return Me.originFlagField
End Get
Set
Me.originFlagField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="POCKET-TABLE-II", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class POCKETTABLEII
Private statusField As Short
Private isRandomField As Short
Private typeField As Short
Private classField As Short
Private toolIndField As Short
Private descrField() As UShort
'''<remarks/>
Public Property Status() As Short
Get
Return Me.statusField
End Get
Set
Me.statusField = value
End Set
End Property
'''<remarks/>
Public Property isRandom() As Short
Get
Return Me.isRandomField
End Get
Set
Me.isRandomField = value
End Set
End Property
'''<remarks/>
Public Property Type() As Short
Get
Return Me.typeField
End Get
Set
Me.typeField = value
End Set
End Property
'''<remarks/>
Public Property [Class]() As Short
Get
Return Me.classField
End Get
Set
Me.classField = value
End Set
End Property
'''<remarks/>
Public Property ToolInd() As Short
Get
Return Me.toolIndField
End Get
Set
Me.toolIndField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Descr() As UShort()
Get
Return Me.descrField
End Get
Set
Me.descrField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="MAGAZINE-TABLE-II", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class MAGAZINETABLEII
Private typeField As Short
Private numPocketsField As Short
Private rowPocketsField As Short
Private externTypeField As Short
Private externIndField As Short
Private duserField() As Double
Private suserField() As Short
Private descrField() As UShort
'''<remarks/>
Public Property Type() As Short
Get
Return Me.typeField
End Get
Set
Me.typeField = value
End Set
End Property
'''<remarks/>
Public Property NumPockets() As Short
Get
Return Me.numPocketsField
End Get
Set
Me.numPocketsField = value
End Set
End Property
'''<remarks/>
Public Property RowPockets() As Short
Get
Return Me.rowPocketsField
End Get
Set
Me.rowPocketsField = value
End Set
End Property
'''<remarks/>
Public Property ExternType() As Short
Get
Return Me.externTypeField
End Get
Set
Me.externTypeField = value
End Set
End Property
'''<remarks/>
Public Property ExternInd() As Short
Get
Return Me.externIndField
End Get
Set
Me.externIndField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Duser() As Double()
Get
Return Me.duserField
End Get
Set
Me.duserField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Suser() As Short()
Get
Return Me.suserField
End Get
Set
Me.suserField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Descr() As UShort()
Get
Return Me.descrField
End Get
Set
Me.descrField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="USER-TABLE-II", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class USERTABLEII
Private userValField() As Double
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property UserVal() As Double()
Get
Return Me.userValField
End Get
Set
Me.userValField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="OFFSET-VAL-II", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class OFFSETVALII
Private valOrigField As Double
Private maxChangeValField As Double
Private actChangeValField As Double
'''<remarks/>
Public Property ValOrig() As Double
Get
Return Me.valOrigField
End Get
Set
Me.valOrigField = value
End Set
End Property
'''<remarks/>
Public Property MaxChangeVal() As Double
Get
Return Me.maxChangeValField
End Get
Set
Me.maxChangeValField = value
End Set
End Property
'''<remarks/>
Public Property ActChangeVal() As Double
Get
Return Me.actChangeValField
End Get
Set
Me.actChangeValField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="OFFSET-TABLE-II", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class OFFSETTABLEII
Private lenValField() As OFFSETVALII
Private diaValField() As OFFSETVALII
Private orientField As UShort
Private externTypeField As UShort
Private externIndField As UShort
Private duserField() As Double
Private suserField() As Short
Private descrField() As UShort
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property LenVal() As OFFSETVALII()
Get
Return Me.lenValField
End Get
Set
Me.lenValField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property DiaVal() As OFFSETVALII()
Get
Return Me.diaValField
End Get
Set
Me.diaValField = value
End Set
End Property
'''<remarks/>
Public Property Orient() As UShort
Get
Return Me.orientField
End Get
Set
Me.orientField = value
End Set
End Property
'''<remarks/>
Public Property ExternType() As UShort
Get
Return Me.externTypeField
End Get
Set
Me.externTypeField = value
End Set
End Property
'''<remarks/>
Public Property ExternInd() As UShort
Get
Return Me.externIndField
End Get
Set
Me.externIndField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Duser() As Double()
Get
Return Me.duserField
End Get
Set
Me.duserField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Suser() As Short()
Get
Return Me.suserField
End Get
Set
Me.suserField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Descr() As UShort()
Get
Return Me.descrField
End Get
Set
Me.descrField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="TOOL-TABLE-II", [Namespace]:="urn:OPENcontrol")> _
Partial Public Class TOOLTABLEII
Private toolNameField As String
Private statusField As UShort
Private lifeTypeField As UShort
Private maxLifeField As Double
Private remLifeField As Double
Private offsNumField As UShort
Private externTypeField As UShort
Private externIndField As UShort
Private duserField() As Double
Private suserField() As Short
Private descrField() As UShort
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> _
Public Property ToolName() As String
Get
Return Me.toolNameField
End Get
Set
Me.toolNameField = value
End Set
End Property
'''<remarks/>
Public Property Status() As UShort
Get
Return Me.statusField
End Get
Set
Me.statusField = value
End Set
End Property
'''<remarks/>
Public Property LifeType() As UShort
Get
Return Me.lifeTypeField
End Get
Set
Me.lifeTypeField = value
End Set
End Property
'''<remarks/>
Public Property MaxLife() As Double
Get
Return Me.maxLifeField
End Get
Set
Me.maxLifeField = value
End Set
End Property
'''<remarks/>
Public Property RemLife() As Double
Get
Return Me.remLifeField
End Get
Set
Me.remLifeField = value
End Set
End Property
'''<remarks/>
Public Property OffsNum() As UShort
Get
Return Me.offsNumField
End Get
Set
Me.offsNumField = value
End Set
End Property
'''<remarks/>
Public Property ExternType() As UShort
Get
Return Me.externTypeField
End Get
Set
Me.externTypeField = value
End Set
End Property
'''<remarks/>
Public Property ExternInd() As UShort
Get
Return Me.externIndField
End Get
Set
Me.externIndField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Duser() As Double()
Get
Return Me.duserField
End Get
Set
Me.duserField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Suser() As Short()
Get
Return Me.suserField
End Get
Set
Me.suserField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), _
System.Xml.Serialization.XmlArrayItemAttribute("item", IsNullable:=false)> _
Public Property Descr() As UShort()
Get
Return Me.descrField
End Get
Set
Me.descrField = value
End Set
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="TABLE-TYPE-II", [Namespace]:="urn:OPENcontrol")> _
Public Enum TABLETYPEII
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("Tab-Type-Tools")> _
TabTypeTools
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("Tab-Type-Offsets")> _
TabTypeOffsets
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("Tab-Type-Origins")> _
TabTypeOrigins
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("Tab-Type-User")> _
TabTypeUser
End Enum
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="PROC-WORD-VAR-TYPE", [Namespace]:="urn:OPENcontrol")> _
Public Enum PROCWORDVARTYPE
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-RCM")> _
PROCWORDVARRCM
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-ARM")> _
PROCWORDVARARM
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-DPS")> _
PROCWORDVARDPS
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-RAP")> _
PROCWORDVARRAP
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-TRP")> _
PROCWORDVARTRP
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-VFF")> _
PROCWORDVARVFF
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-UVR")> _
PROCWORDVARUVR
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-DLA")> _
PROCWORDVARDLA
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-MBR")> _
PROCWORDVARMBR
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-URL")> _
PROCWORDVARURL
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-DSB")> _
PROCWORDVARDSB
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-USO")> _
PROCWORDVARUSO
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-ERR")> _
PROCWORDVARERR
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-HMP")> _
PROCWORDVARHMP
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-UAS")> _
PROCWORDVARUAS
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-MBA")> _
PROCWORDVARMBA
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-WORD-VAR-REM")> _
PROCWORDVARREM
End Enum
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="PROC-DOUBLE-VAR-TYPE", [Namespace]:="urn:OPENcontrol")> _
Public Enum PROCDOUBLEVARTYPE
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-DOUBLE-VAR-URP")> _
PROCDOUBLEVARURP
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-DOUBLE-VAR-DWT")> _
PROCDOUBLEVARDWT
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-DOUBLE-VAR-JOG")> _
PROCDOUBLEVARJOG
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-DOUBLE-VAR-MDA")> _
PROCDOUBLEVARMDA
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-DOUBLE-VAR-MSA")> _
PROCDOUBLEVARMSA
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-DOUBLE-VAR-SSL")> _
PROCDOUBLEVARSSL
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-DOUBLE-VAR-VEF")> _
PROCDOUBLEVARVEF
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-DOUBLE-VAR-UPO")> _
PROCDOUBLEVARUPO
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-DOUBLE-VAR-UPA")> _
PROCDOUBLEVARUPA
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-DOUBLE-VAR-CET")> _
PROCDOUBLEVARCET
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-DOUBLE-VAR-FCT")> _
PROCDOUBLEVARFCT
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-DOUBLE-VAR-MBRLEN")> _
PROCDOUBLEVARMBRLEN
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("PROC-DOUBLE-VAR-MBRTHR")> _
PROCDOUBLEVARMBRTHR
End Enum
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="RCM-TO-MODE", [Namespace]:="urn:OPENcontrol")> _
Public Enum RCMTOMODE
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("RCM-TO-TO")> _
RCMTOTO
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("RCM-TO-NEXT")> _
RCMTONEXT
End Enum
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Xml.Serialization.XmlTypeAttribute(TypeName:="SECURITY-LEVEL", [Namespace]:="urn:OPENcontrol")> _
Public Enum SECURITYLEVEL
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("SECURITY-LEVEL-ADMIN")> _
SECURITYLEVELADMIN
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("SECURITY-LEVEL-SERVICE")> _
SECURITYLEVELSERVICE
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("SECURITY-LEVEL-OEM-ADMIN")> _
SECURITYLEVELOEMADMIN
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("SECURITY-LEVEL-OEM-SERVICE")> _
SECURITYLEVELOEMSERVICE
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("SECURITY-LEVEL-USER-ADMIN")> _
SECURITYLEVELUSERADMIN
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("SECURITY-LEVEL-USER-SERVICE")> _
SECURITYLEVELUSERSERVICE
End Enum
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub BootPhaseEnquiryCompletedEventHandler(ByVal sender As Object, ByVal e As BootPhaseEnquiryCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class BootPhaseEnquiryCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Phase() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub BootRebootCompletedEventHandler(ByVal sender As Object, ByVal e As BootRebootCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class BootRebootCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub BootShutDownCompletedEventHandler(ByVal sender As Object, ByVal e As BootShutDownCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class BootShutDownCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub BootModeCompletedEventHandler(ByVal sender As Object, ByVal e As BootModeCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class BootModeCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetHWKeyCompletedEventHandler(ByVal sender As Object, ByVal e As GetHWKeyCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetHWKeyCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property HwKey() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property SecurLevel() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property Release() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadVarWordCompletedEventHandler(ByVal sender As Object, ByVal e As ReadVarWordCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadVarWordCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As UShort()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadVarDoubleCompletedEventHandler(ByVal sender As Object, ByVal e As ReadVarDoubleCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadVarDoubleCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As Double()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Double())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub WriteVarWordCompletedEventHandler(ByVal sender As Object, ByVal e As WriteVarWordCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class WriteVarWordCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub WriteVarWordBitCompletedEventHandler(ByVal sender As Object, ByVal e As WriteVarWordBitCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class WriteVarWordBitCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub WriteVarDoubleCompletedEventHandler(ByVal sender As Object, ByVal e As WriteVarDoubleCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class WriteVarDoubleCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadVarTextCompletedEventHandler(ByVal sender As Object, ByVal e As ReadVarTextCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadVarTextCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Text() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub WriteVarTextCompletedEventHandler(ByVal sender As Object, ByVal e As WriteVarTextCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class WriteVarTextCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadNamedVarBoolCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarBoolCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadNamedVarBoolCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As Integer()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Integer())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadNamedVarByteCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarByteCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadNamedVarByteCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadNamedVarShortCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarShortCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadNamedVarShortCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As Short()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Short())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadNamedVarWordCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarWordCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadNamedVarWordCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As UShort()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadNamedVarLongCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarLongCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadNamedVarLongCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As Long()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Long())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadNamedVarDwordCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarDwordCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadNamedVarDwordCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As ULong()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),ULong())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadNamedVarDoubleCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarDoubleCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadNamedVarDoubleCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As Double()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Double())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadNamedVarStringCompletedEventHandler(ByVal sender As Object, ByVal e As ReadNamedVarStringCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadNamedVarStringCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub WriteNamedVarBoolCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarBoolCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class WriteNamedVarBoolCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub WriteNamedVarByteCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarByteCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class WriteNamedVarByteCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub WriteNamedVarShortCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarShortCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class WriteNamedVarShortCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub WriteNamedVarWordCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarWordCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class WriteNamedVarWordCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub WriteNamedVarLongCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarLongCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class WriteNamedVarLongCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub WriteNamedVarDwordCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarDwordCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class WriteNamedVarDwordCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub WriteNamedVarDoubleCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarDoubleCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class WriteNamedVarDoubleCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub WriteNamedVarStringCompletedEventHandler(ByVal sender As Object, ByVal e As WriteNamedVarStringCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class WriteNamedVarStringCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadWarningMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadWarningMsgCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadWarningMsgCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property WarningMsg() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ResetSingleTableIICompletedEventHandler(ByVal sender As Object, ByVal e As ResetSingleTableIICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ResetSingleTableIICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LockTableIICompletedEventHandler(ByVal sender As Object, ByVal e As LockTableIICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LockTableIICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub UnLockTableIICompletedEventHandler(ByVal sender As Object, ByVal e As UnLockTableIICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class UnLockTableIICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetOriginTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As GetOriginTabRecordIICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetOriginTabRecordIICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property RecordBuff() As ORIGINTABLEII
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),ORIGINTABLEII)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetOriginTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As SetOriginTabRecordIICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetOriginTabRecordIICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetToolTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As GetToolTabRecordIICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetToolTabRecordIICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property RecordBuff() As TOOLTABLEII
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),TOOLTABLEII)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetToolTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As SetToolTabRecordIICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetToolTabRecordIICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetOffsetTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As GetOffsetTabRecordIICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetOffsetTabRecordIICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property RecordBuff() As OFFSETTABLEII
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),OFFSETTABLEII)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetOffsetTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As SetOffsetTabRecordIICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetOffsetTabRecordIICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetUserTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As GetUserTabRecordIICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetUserTabRecordIICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property RecordBuff() As USERTABLEII
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),USERTABLEII)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetUserTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As SetUserTabRecordIICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetUserTabRecordIICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetMagazineTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As GetMagazineTabRecordIICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetMagazineTabRecordIICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property RecordBuff() As MAGAZINETABLEII
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MAGAZINETABLEII)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetMagazineTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As SetMagazineTabRecordIICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetMagazineTabRecordIICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetPocketTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As GetPocketTabRecordIICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetPocketTabRecordIICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property RecordBuff() As POCKETTABLEII
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),POCKETTABLEII)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetPocketTabRecordIICompletedEventHandler(ByVal sender As Object, ByVal e As SetPocketTabRecordIICompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetPocketTabRecordIICompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SaveTablesCompletedEventHandler(ByVal sender As Object, ByVal e As SaveTablesCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SaveTablesCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub RestoreSingleTableCompletedEventHandler(ByVal sender As Object, ByVal e As RestoreSingleTableCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class RestoreSingleTableCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SaveSingleTableCompletedEventHandler(ByVal sender As Object, ByVal e As SaveSingleTableCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SaveSingleTableCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SaveBackupMemoryCompletedEventHandler(ByVal sender As Object, ByVal e As SaveBackupMemoryCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SaveBackupMemoryCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub RestoreBackupMemoryCompletedEventHandler(ByVal sender As Object, ByVal e As RestoreBackupMemoryCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class RestoreBackupMemoryCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ToolSearchCompletedEventHandler(ByVal sender As Object, ByVal e As ToolSearchCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ToolSearchCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ToolIndex() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Pocket() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ToolSearchLifeCompletedEventHandler(ByVal sender As Object, ByVal e As ToolSearchLifeCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ToolSearchLifeCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ToolIndex() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Pocket() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ToolSearchDirCompletedEventHandler(ByVal sender As Object, ByVal e As ToolSearchDirCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ToolSearchDirCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ToolIndex() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Pocket() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ToolSearchLifeDirCompletedEventHandler(ByVal sender As Object, ByVal e As ToolSearchLifeDirCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ToolSearchLifeDirCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ToolIndex() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Pocket() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ToolSameFamilyCompletedEventHandler(ByVal sender As Object, ByVal e As ToolSameFamilyCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ToolSameFamilyCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ToolInMaga() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ToolsOutMaga() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ToolLoadCompletedEventHandler(ByVal sender As Object, ByVal e As ToolLoadCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ToolLoadCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ToolUnloadCompletedEventHandler(ByVal sender As Object, ByVal e As ToolUnloadCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ToolUnloadCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub PocketSearchCompletedEventHandler(ByVal sender As Object, ByVal e As PocketSearchCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class PocketSearchCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Pocket() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub PocketClosestCompletedEventHandler(ByVal sender As Object, ByVal e As PocketClosestCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class PocketClosestCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Direction() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Pocket() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property HorizontalDistance() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property VerticalDistance() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(6),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub PocketNearestCompletedEventHandler(ByVal sender As Object, ByVal e As PocketNearestCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class PocketNearestCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Pocket() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ToolLifeCompletedEventHandler(ByVal sender As Object, ByVal e As ToolLifeCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ToolLifeCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property RemLife() As Double
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Double)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ToolStatus() As Short
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Short)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LoadTableFromFileCompletedEventHandler(ByVal sender As Object, ByVal e As LoadTableFromFileCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LoadTableFromFileCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub MagConfigurePocketsCompletedEventHandler(ByVal sender As Object, ByVal e As MagConfigurePocketsCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class MagConfigurePocketsCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub CycleCompletedEventHandler(ByVal sender As Object, ByVal e As CycleCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class CycleCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SyncroCycleCompletedEventHandler(ByVal sender As Object, ByVal e As SyncroCycleCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SyncroCycleCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ResetCompletedEventHandler(ByVal sender As Object, ByVal e As ResetCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ResetCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub HoldCompletedEventHandler(ByVal sender As Object, ByVal e As HoldCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class HoldCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetFeedManOverCompletedEventHandler(ByVal sender As Object, ByVal e As SetFeedManOverCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetFeedManOverCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetFeedRateOverCompletedEventHandler(ByVal sender As Object, ByVal e As SetFeedRateOverCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetFeedRateOverCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetFeedRapidOverCompletedEventHandler(ByVal sender As Object, ByVal e As SetFeedRapidOverCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetFeedRapidOverCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetSpeedRateOverCompletedEventHandler(ByVal sender As Object, ByVal e As SetSpeedRateOverCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetSpeedRateOverCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetManMovDirectionCompletedEventHandler(ByVal sender As Object, ByVal e As SetManMovDirectionCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetManMovDirectionCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetVarJOGCompletedEventHandler(ByVal sender As Object, ByVal e As GetVarJOGCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetVarJOGCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As Double
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Double)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetVarJOGCompletedEventHandler(ByVal sender As Object, ByVal e As SetVarJOGCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetVarJOGCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetVarUASCompletedEventHandler(ByVal sender As Object, ByVal e As SetVarUASCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetVarUASCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetVarRCMCompletedEventHandler(ByVal sender As Object, ByVal e As GetVarRCMCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetVarRCMCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetVarRCMCompletedEventHandler(ByVal sender As Object, ByVal e As SetVarRCMCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetVarRCMCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetVarCYCTIMECompletedEventHandler(ByVal sender As Object, ByVal e As GetVarCYCTIMECompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetVarCYCTIMECompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetVarCYCTIMECompletedEventHandler(ByVal sender As Object, ByVal e As SetVarCYCTIMECompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetVarCYCTIMECompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetProcVarWordCompletedEventHandler(ByVal sender As Object, ByVal e As GetProcVarWordCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetProcVarWordCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetProcVarWordCompletedEventHandler(ByVal sender As Object, ByVal e As SetProcVarWordCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetProcVarWordCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetProcVarDoubleCompletedEventHandler(ByVal sender As Object, ByVal e As GetProcVarDoubleCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetProcVarDoubleCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As Double
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Double)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetProcVarDoubleCompletedEventHandler(ByVal sender As Object, ByVal e As SetProcVarDoubleCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetProcVarDoubleCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetMdiStringCompletedEventHandler(ByVal sender As Object, ByVal e As SetMdiStringCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetMdiStringCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetProcessModeCompletedEventHandler(ByVal sender As Object, ByVal e As SetProcessModeCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetProcessModeCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SelectProcessCompletedEventHandler(ByVal sender As Object, ByVal e As SelectProcessCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SelectProcessCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetSelectedProcessCompletedEventHandler(ByVal sender As Object, ByVal e As GetSelectedProcessCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetSelectedProcessCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ProcNum() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SelectProcAxisCompletedEventHandler(ByVal sender As Object, ByVal e As SelectProcAxisCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SelectProcAxisCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SelectPartProgramCompletedEventHandler(ByVal sender As Object, ByVal e As SelectPartProgramCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SelectPartProgramCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SelectPartProgramFromDriveCompletedEventHandler(ByVal sender As Object, ByVal e As SelectPartProgramFromDriveCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SelectPartProgramFromDriveCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetActivePartProgramCompletedEventHandler(ByVal sender As Object, ByVal e As GetActivePartProgramCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetActivePartProgramCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Level() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Main() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property [Sub]() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetActivePartProgramFullPathCompletedEventHandler(ByVal sender As Object, ByVal e As GetActivePartProgramFullPathCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetActivePartProgramFullPathCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Level() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Main() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property [Sub]() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetPartProgramLinesCompletedEventHandler(ByVal sender As Object, ByVal e As GetPartProgramLinesCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetPartProgramLinesCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine1() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine2() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine3() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine4() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine5() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine6() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(6),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine7() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(7),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine8() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(8),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(9),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(10),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetAxOriginNumCompletedEventHandler(ByVal sender As Object, ByVal e As GetAxOriginNumCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetAxOriginNumCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property AxesNum() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property AxOriginNum() As AXORIGNUM()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),AXORIGNUM())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetAxesPositionCompletedEventHandler(ByVal sender As Object, ByVal e As GetAxesPositionCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetAxesPositionCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property NumAxis() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property IntPos() As GETINTDATA()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),GETINTDATA())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetNcInfo1CompletedEventHandler(ByVal sender As Object, ByVal e As GetNcInfo1CompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetNcInfo1CompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property GetInfo() As GETINFO1DATA
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),GETINFO1DATA)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetNcInfo2CompletedEventHandler(ByVal sender As Object, ByVal e As GetNcInfo2CompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetNcInfo2CompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property GetInfo() As GETINFO2DATA
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),GETINFO2DATA)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetToolNamesCompletedEventHandler(ByVal sender As Object, ByVal e As GetToolNamesCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetToolNamesCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Tool() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ProgTool() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetProcessStatusCompletedEventHandler(ByVal sender As Object, ByVal e As GetProcessStatusCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetProcessStatusCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ProcStat() As PROCDATA
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),PROCDATA)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetBlkNumCompletedEventHandler(ByVal sender As Object, ByVal e As GetBlkNumCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetBlkNumCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property GetBlkNum1() As GETBLKNUMDATA
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),GETBLKNUMDATA)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadErrMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadErrMsgCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadErrMsgCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property SysErrMsg() As ERRMSG
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),ERRMSG)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadPartProgramMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadPartProgramMsgCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadPartProgramMsgCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property PartProgramMsg() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetGCodeCompletedEventHandler(ByVal sender As Object, ByVal e As GetGCodeCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetGCodeCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property GCode() As UShort()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetMCodeCompletedEventHandler(ByVal sender As Object, ByVal e As GetMCodeCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetMCodeCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property MCode() As UShort()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SkipPProgBlockCompletedEventHandler(ByVal sender As Object, ByVal e As SkipPProgBlockCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SkipPProgBlockCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub EseCompletedEventHandler(ByVal sender As Object, ByVal e As EseCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class EseCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub EseExCompletedEventHandler(ByVal sender As Object, ByVal e As EseExCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class EseExCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ExeCompletedEventHandler(ByVal sender As Object, ByVal e As ExeCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ExeCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub AxesRefCompletedEventHandler(ByVal sender As Object, ByVal e As AxesRefCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class AxesRefCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub DncInitCompletedEventHandler(ByVal sender As Object, ByVal e As DncInitCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class DncInitCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub DncDataCompletedEventHandler(ByVal sender As Object, ByVal e As DncDataCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class DncDataCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub DncEofCompletedEventHandler(ByVal sender As Object, ByVal e As DncEofCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class DncEofCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub DncStopCompletedEventHandler(ByVal sender As Object, ByVal e As DncStopCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class DncStopCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetAxesInfo3CompletedEventHandler(ByVal sender As Object, ByVal e As GetAxesInfo3CompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetAxesInfo3CompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property AxesNum() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property AxOwnerList() As UShort()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UShort())
End Get
End Property
'''<remarks/>
Public ReadOnly Property AxNameList() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property AxType() As UShort()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UShort())
End Get
End Property
'''<remarks/>
Public ReadOnly Property AxInterface() As UShort()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),UShort())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(6),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(7),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetCodeNumberCompletedEventHandler(ByVal sender As Object, ByVal e As GetCodeNumberCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetCodeNumberCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property CodeNumber() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property SwVersion() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetOptionsCompletedEventHandler(ByVal sender As Object, ByVal e As GetOptionsCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetOptionsCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property [Option]() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property SecurLevel() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property SwVersion() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetDateTimeCompletedEventHandler(ByVal sender As Object, ByVal e As GetDateTimeCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetDateTimeCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Year() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Month() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Day() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Hour() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Minute() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Second() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(6),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(7),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(8),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetDateTimeCompletedEventHandler(ByVal sender As Object, ByVal e As SetDateTimeCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetDateTimeCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetSerialNumberCompletedEventHandler(ByVal sender As Object, ByVal e As GetSerialNumberCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetSerialNumberCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property SerialNumber() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub PutFileCompletedEventHandler(ByVal sender As Object, ByVal e As PutFileCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class PutFileCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetFileCompletedEventHandler(ByVal sender As Object, ByVal e As GetFileCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetFileCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Size() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Data() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub PutBinaryFileCompletedEventHandler(ByVal sender As Object, ByVal e As PutBinaryFileCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class PutBinaryFileCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetBinaryFileCompletedEventHandler(ByVal sender As Object, ByVal e As GetBinaryFileCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetBinaryFileCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Data() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSSetSecurityLevelCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSSetSecurityLevelCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSSetSecurityLevelCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property OldSecurityLevel() As SECURITYLEVEL
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),SECURITYLEVEL)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSGetSecurityLevelCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetSecurityLevelCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSGetSecurityLevelCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property SecurityLevel() As SECURITYLEVEL
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),SECURITYLEVEL)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSLongFileNamesCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSLongFileNamesCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSLongFileNamesCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property UseLongFileNames() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSGetNumDriveCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetNumDriveCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSGetNumDriveCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property NumHiddenDrive() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property NumUserDrive() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSGetDriveListCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetDriveListCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSGetDriveListCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property DriveName() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSGetHiddenDriveListCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetHiddenDriveListCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSGetHiddenDriveListCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property DriveName() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSGetDrivePathCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetDrivePathCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSGetDrivePathCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property DrivePath() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSAddDriveCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSAddDriveCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSAddDriveCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSRemoveDriveCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSRemoveDriveCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSRemoveDriveCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSReloadDriveListCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSReloadDriveListCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSReloadDriveListCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSCreateDirCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSCreateDirCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSCreateDirCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSCreateFileCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSCreateFileCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSCreateFileCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSGetFileSizeCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetFileSizeCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSGetFileSizeCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Size() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSGetFileAttribCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetFileAttribCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSGetFileAttribCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Attrib() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSSetFileAttribCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSSetFileAttribCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSSetFileAttribCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSChangeFileAttribCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSChangeFileAttribCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSChangeFileAttribCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSFindFirstCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSFindFirstCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSFindFirstCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property FindData() As FILEFINDDATA
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),FILEFINDDATA)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Finder() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSFindNextCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSFindNextCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSFindNextCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property FindData() As FILEFINDDATA
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),FILEFINDDATA)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Found() As Boolean
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Boolean)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSFindCloseCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSFindCloseCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSFindCloseCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSRemoveFileCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSRemoveFileCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSRemoveFileCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSRemoveDirCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSRemoveDirCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSRemoveDirCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSRenameCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSRenameCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSRenameCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSCopyFileCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSCopyFileCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSCopyFileCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSGetInfoCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSGetInfoCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSGetInfoCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Buffer() As UInteger()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSOpenFileCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSOpenFileCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSOpenFileCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property FileID() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSCloseFileCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSCloseFileCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSCloseFileCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property FileID() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetSysTickCompletedEventHandler(ByVal sender As Object, ByVal e As GetSysTickCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetSysTickCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property SysTick() As Double
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Double)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetProcessConfNumCompletedEventHandler(ByVal sender As Object, ByVal e As GetProcessConfNumCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetProcessConfNumCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ProcessConfNum() As Byte
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Byte)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub CheckHistoryCompletedEventHandler(ByVal sender As Object, ByVal e As CheckHistoryCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class CheckHistoryCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ThisBootMsgCounter() As UInteger()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger())
End Get
End Property
'''<remarks/>
Public ReadOnly Property AllBootMsgCounter() As UInteger()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ThisBootID() As UInteger()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadHistoryEmergMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadHistoryEmergMsgCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadHistoryEmergMsgCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Data() As MSGEMERGENCY
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MSGEMERGENCY)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadHistoryErrorMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadHistoryErrorMsgCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadHistoryErrorMsgCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Data() As MSGERROR
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MSGERROR)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadHistoryLogMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadHistoryLogMsgCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadHistoryLogMsgCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Data() As MSGLOGS
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MSGLOGS)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadHistoryAnomalyMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadHistoryAnomalyMsgCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadHistoryAnomalyMsgCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Data() As MSGANOMALY
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MSGANOMALY)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadCurrentErrorMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadCurrentErrorMsgCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadCurrentErrorMsgCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Data() As MSGERROR
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MSGERROR)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadCurrentEmergMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadCurrentEmergMsgCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadCurrentEmergMsgCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Data() As MSGEMERGENCY
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MSGEMERGENCY)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadCurrentAnomalyMsgCompletedEventHandler(ByVal sender As Object, ByVal e As ReadCurrentAnomalyMsgCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadCurrentAnomalyMsgCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Data() As MSGANOMALY
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MSGANOMALY)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetPTechSizesCompletedEventHandler(ByVal sender As Object, ByVal e As GetPTechSizesCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetPTechSizesCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Ind1() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Ind2() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Ind3() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LoadPTechCompletedEventHandler(ByVal sender As Object, ByVal e As LoadPTechCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LoadPTechCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetMarkerInfoCompletedEventHandler(ByVal sender As Object, ByVal e As GetMarkerInfoCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetMarkerInfoCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property MarkerInfo() As MARKERINFO
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MARKERINFO)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ManagePartProgramCompletedEventHandler(ByVal sender As Object, ByVal e As ManagePartProgramCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ManagePartProgramCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrString() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSWriteRecordCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSWriteRecordCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSWriteRecordCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub LogFSReadRecordCompletedEventHandler(ByVal sender As Object, ByVal e As LogFSReadRecordCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class LogFSReadRecordCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property DataSize() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Record() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadRemapDefinitionsCompletedEventHandler(ByVal sender As Object, ByVal e As ReadRemapDefinitionsCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadRemapDefinitionsCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Array() As REMAPDEF()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),REMAPDEF())
End Get
End Property
'''<remarks/>
Public ReadOnly Property DefinitionsCnt() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Integer)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub WriteRemapDefinitionsCompletedEventHandler(ByVal sender As Object, ByVal e As WriteRemapDefinitionsCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class WriteRemapDefinitionsCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetServoParCompletedEventHandler(ByVal sender As Object, ByVal e As GetServoParCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetServoParCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As Double
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Double)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetServoParCompletedEventHandler(ByVal sender As Object, ByVal e As SetServoParCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetServoParCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetCNCRegKeyCompletedEventHandler(ByVal sender As Object, ByVal e As GetCNCRegKeyCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetCNCRegKeyCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ValueLen() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Integer)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetSecurityDataCompletedEventHandler(ByVal sender As Object, ByVal e As GetSecurityDataCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetSecurityDataCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Data() As SECURDATA
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),SECURDATA)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetSecurityDataCompletedEventHandler(ByVal sender As Object, ByVal e As SetSecurityDataCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetSecurityDataCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetIpAddressCompletedEventHandler(ByVal sender As Object, ByVal e As SetIpAddressCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetIpAddressCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetProcInInputCompletedEventHandler(ByVal sender As Object, ByVal e As GetProcInInputCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetProcInInputCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ProcInfo() As INPUTINFO
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),INPUTINFO)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SndProcInpDataCompletedEventHandler(ByVal sender As Object, ByVal e As SndProcInpDataCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SndProcInpDataCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetPartProgramLinesExCompletedEventHandler(ByVal sender As Object, ByVal e As GetPartProgramLinesExCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetPartProgramLinesExCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine1() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine2() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine3() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine4() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine5() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine6() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(6),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine7() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(7),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property PPLine8() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(8),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(9),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(10),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetMdiStringExCompletedEventHandler(ByVal sender As Object, ByVal e As SetMdiStringExCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetMdiStringExCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetExpireDataCompletedEventHandler(ByVal sender As Object, ByVal e As GetExpireDataCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetExpireDataCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Day() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Month() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Year() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetRemainingTimeCompletedEventHandler(ByVal sender As Object, ByVal e As GetRemainingTimeCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetRemainingTimeCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property remTime() As Long
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Long)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GenerateUserKeyCompletedEventHandler(ByVal sender As Object, ByVal e As GenerateUserKeyCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GenerateUserKeyCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property keyUser() As String()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub WriteActivationKeyCompletedEventHandler(ByVal sender As Object, ByVal e As WriteActivationKeyCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class WriteActivationKeyCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetAvailableCustomEventsCompletedEventHandler(ByVal sender As Object, ByVal e As GetAvailableCustomEventsCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetAvailableCustomEventsCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property NumEvents() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property EventData() As MONCUSTOMEVENTINFO()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),MONCUSTOMEVENTINFO())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub MonOpenChannelCompletedEventHandler(ByVal sender As Object, ByVal e As MonOpenChannelCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class MonOpenChannelCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ChannelID() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub MonCloseChannelCompletedEventHandler(ByVal sender As Object, ByVal e As MonCloseChannelCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class MonCloseChannelCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub MonAddVariableCompletedEventHandler(ByVal sender As Object, ByVal e As MonAddVariableCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class MonAddVariableCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property VariableID() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub MonDeleteVariableCompletedEventHandler(ByVal sender As Object, ByVal e As MonDeleteVariableCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class MonDeleteVariableCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub MonStartSamplingCompletedEventHandler(ByVal sender As Object, ByVal e As MonStartSamplingCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class MonStartSamplingCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub MonStopSamplingCompletedEventHandler(ByVal sender As Object, ByVal e As MonStopSamplingCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class MonStopSamplingCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub MonGetVariableCompletedEventHandler(ByVal sender As Object, ByVal e As MonGetVariableCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class MonGetVariableCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property NumSampleRead() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property DataBuffer() As Double()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Double())
End Get
End Property
'''<remarks/>
Public ReadOnly Property TimeBuffer() As Long()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),Long())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub MonGetVariableSCompletedEventHandler(ByVal sender As Object, ByVal e As MonGetVariableSCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class MonGetVariableSCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property DataBuffer() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property TimeBuffer() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Byte())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub MonGetDryRunCompletedEventHandler(ByVal sender As Object, ByVal e As MonGetDryRunCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class MonGetDryRunCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property numSampleRead() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property readData() As MONDRYRUN()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),MONDRYRUN())
End Get
End Property
'''<remarks/>
Public ReadOnly Property timeBuffer() As Long()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),Long())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub MonGetMovCompletedEventHandler(ByVal sender As Object, ByVal e As MonGetMovCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class MonGetMovCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property numSampleRead() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property readData() As MONENTEMOVI()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),MONENTEMOVI())
End Get
End Property
'''<remarks/>
Public ReadOnly Property timeBuffer() As Long()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),Long())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetDriveBasicInfoCompletedEventHandler(ByVal sender As Object, ByVal e As GetDriveBasicInfoCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetDriveBasicInfoCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property DriveBasicInfo() As DRIVEBASICINFO
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),DRIVEBASICINFO)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadStatisticsCompletedEventHandler(ByVal sender As Object, ByVal e As ReadStatisticsCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadStatisticsCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property Value() As Long()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Long())
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub ReadStatisticsBaseFrequencyCompletedEventHandler(ByVal sender As Object, ByVal e As ReadStatisticsBaseFrequencyCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class ReadStatisticsBaseFrequencyCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property baseFrequency() As Long
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Long)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub GetActiveAmpCompletedEventHandler(ByVal sender As Object, ByVal e As GetActiveAmpCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class GetActiveAmpCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ActiveAmp() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property RunningAmp() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),UInteger)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub SetActiveAmpCompletedEventHandler(ByVal sender As Object, ByVal e As SetActiveAmpCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class SetActiveAmpCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As UShort
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),UShort)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrClass() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),UInteger)
End Get
End Property
'''<remarks/>
Public ReadOnly Property ErrNum() As UInteger
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),UInteger)
End Get
End Property
End Class
End Namespace