'------------------------------------------------------------------------------
'
' This code was generated by a tool.
' Runtime Version:2.0.50727.42
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
'
'------------------------------------------------------------------------------
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
'
'This source code was auto-generated by Microsoft.VSDesigner, Version 2.0.50727.42.
'
Namespace DragNet
'''
_
Partial Public Class DragnetWebService
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
Private dragnetAuthValueField As DragnetAuth
Private AddUserOperationCompleted As System.Threading.SendOrPostCallback
Private GetPublicKeyOperationCompleted As System.Threading.SendOrPostCallback
Private LoginOperationCompleted As System.Threading.SendOrPostCallback
Private LoginPlainTextOperationCompleted As System.Threading.SendOrPostCallback
Private CheckLoggedInOperationCompleted As System.Threading.SendOrPostCallback
Private LogoutOperationCompleted As System.Threading.SendOrPostCallback
Private ListProjectsOperationCompleted As System.Threading.SendOrPostCallback
Private ListUsersOperationCompleted As System.Threading.SendOrPostCallback
Private ListMilestonesOperationCompleted As System.Threading.SendOrPostCallback
Private ListCategoriesOperationCompleted As System.Threading.SendOrPostCallback
Private ListGroupsOperationCompleted As System.Threading.SendOrPostCallback
Private ListPrioritiesOperationCompleted As System.Threading.SendOrPostCallback
Private ListStatusValuesOperationCompleted As System.Threading.SendOrPostCallback
Private ListPlatformsOperationCompleted As System.Threading.SendOrPostCallback
Private ListTypesOperationCompleted As System.Threading.SendOrPostCallback
Private ListTimeEstimateValuesOperationCompleted As System.Threading.SendOrPostCallback
Private ListCustomLabelsOperationCompleted As System.Threading.SendOrPostCallback
Private ListSummariesOperationCompleted As System.Threading.SendOrPostCallback
Private ListAtAGlanceOperationCompleted As System.Threading.SendOrPostCallback
Private IsItemIDValidOperationCompleted As System.Threading.SendOrPostCallback
Private ListItemForEditOperationCompleted As System.Threading.SendOrPostCallback
Private ListItemFullDetailsOperationCompleted As System.Threading.SendOrPostCallback
Private ListOpenItemsOperationCompleted As System.Threading.SendOrPostCallback
Private ListMyOpenItemsOperationCompleted As System.Threading.SendOrPostCallback
Private ListAttachmentInfoOperationCompleted As System.Threading.SendOrPostCallback
Private ListItemAuditOperationCompleted As System.Threading.SendOrPostCallback
Private QueryItemsOperationCompleted As System.Threading.SendOrPostCallback
Private ModifyItemFromSCCOperationCompleted As System.Threading.SendOrPostCallback
Private ModifyItemOperationCompleted As System.Threading.SendOrPostCallback
Private AddItemOperationCompleted As System.Threading.SendOrPostCallback
Private AddItemExternalOperationCompleted As System.Threading.SendOrPostCallback
Private UpdateItemsFromSCCOperationCompleted As System.Threading.SendOrPostCallback
Private BatchModifyItemsOperationCompleted As System.Threading.SendOrPostCallback
Private AddCheckinCommentsOperationCompleted As System.Threading.SendOrPostCallback
Private AddItemCommentOperationCompleted As System.Threading.SendOrPostCallback
Private ModifyItemCommentOperationCompleted As System.Threading.SendOrPostCallback
Private DeleteItemCommentOperationCompleted As System.Threading.SendOrPostCallback
Private useDefaultCredentialsSetExplicitly As Boolean
'''
Public Sub New()
MyBase.New
Me.Url = Global.DragNetClient.My.MySettings.Default.DragNetClient_DragNet_DragnetWebService
If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then
Me.UseDefaultCredentials = true
Me.useDefaultCredentialsSetExplicitly = false
Else
Me.useDefaultCredentialsSetExplicitly = true
End If
End Sub
Public Property DragnetAuthValue() As DragnetAuth
Get
Return Me.dragnetAuthValueField
End Get
Set
Me.dragnetAuthValueField = value
End Set
End Property
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
'''
Public Event AddUserCompleted As AddUserCompletedEventHandler
'''
Public Event GetPublicKeyCompleted As GetPublicKeyCompletedEventHandler
'''
Public Event LoginCompleted As LoginCompletedEventHandler
'''
Public Event LoginPlainTextCompleted As LoginPlainTextCompletedEventHandler
'''
Public Event CheckLoggedInCompleted As CheckLoggedInCompletedEventHandler
'''
Public Event LogoutCompleted As LogoutCompletedEventHandler
'''
Public Event ListProjectsCompleted As ListProjectsCompletedEventHandler
'''
Public Event ListUsersCompleted As ListUsersCompletedEventHandler
'''
Public Event ListMilestonesCompleted As ListMilestonesCompletedEventHandler
'''
Public Event ListCategoriesCompleted As ListCategoriesCompletedEventHandler
'''
Public Event ListGroupsCompleted As ListGroupsCompletedEventHandler
'''
Public Event ListPrioritiesCompleted As ListPrioritiesCompletedEventHandler
'''
Public Event ListStatusValuesCompleted As ListStatusValuesCompletedEventHandler
'''
Public Event ListPlatformsCompleted As ListPlatformsCompletedEventHandler
'''
Public Event ListTypesCompleted As ListTypesCompletedEventHandler
'''
Public Event ListTimeEstimateValuesCompleted As ListTimeEstimateValuesCompletedEventHandler
'''
Public Event ListCustomLabelsCompleted As ListCustomLabelsCompletedEventHandler
'''
Public Event ListSummariesCompleted As ListSummariesCompletedEventHandler
'''
Public Event ListAtAGlanceCompleted As ListAtAGlanceCompletedEventHandler
'''
Public Event IsItemIDValidCompleted As IsItemIDValidCompletedEventHandler
'''
Public Event ListItemForEditCompleted As ListItemForEditCompletedEventHandler
'''
Public Event ListItemFullDetailsCompleted As ListItemFullDetailsCompletedEventHandler
'''
Public Event ListOpenItemsCompleted As ListOpenItemsCompletedEventHandler
'''
Public Event ListMyOpenItemsCompleted As ListMyOpenItemsCompletedEventHandler
'''
Public Event ListAttachmentInfoCompleted As ListAttachmentInfoCompletedEventHandler
'''
Public Event ListItemAuditCompleted As ListItemAuditCompletedEventHandler
'''
Public Event QueryItemsCompleted As QueryItemsCompletedEventHandler
'''
Public Event ModifyItemFromSCCCompleted As ModifyItemFromSCCCompletedEventHandler
'''
Public Event ModifyItemCompleted As ModifyItemCompletedEventHandler
'''
Public Event AddItemCompleted As AddItemCompletedEventHandler
'''
Public Event AddItemExternalCompleted As AddItemExternalCompletedEventHandler
'''
Public Event UpdateItemsFromSCCCompleted As UpdateItemsFromSCCCompletedEventHandler
'''
Public Event BatchModifyItemsCompleted As BatchModifyItemsCompletedEventHandler
'''
Public Event AddCheckinCommentsCompleted As AddCheckinCommentsCompletedEventHandler
'''
Public Event AddItemCommentCompleted As AddItemCommentCompletedEventHandler
'''
Public Event ModifyItemCommentCompleted As ModifyItemCommentCompletedEventHandler
'''
Public Event DeleteItemCommentCompleted As DeleteItemCommentCompletedEventHandler
'''
_
Public Function AddUser(ByVal user As MantisUser) As Integer
Dim results() As Object = Me.Invoke("AddUser", New Object() {user})
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub AddUserAsync(ByVal user As MantisUser)
Me.AddUserAsync(user, Nothing)
End Sub
'''
Public Overloads Sub AddUserAsync(ByVal user As MantisUser, ByVal userState As Object)
If (Me.AddUserOperationCompleted Is Nothing) Then
Me.AddUserOperationCompleted = AddressOf Me.OnAddUserOperationCompleted
End If
Me.InvokeAsync("AddUser", New Object() {user}, Me.AddUserOperationCompleted, userState)
End Sub
Private Sub OnAddUserOperationCompleted(ByVal arg As Object)
If (Not (Me.AddUserCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent AddUserCompleted(Me, New AddUserCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetPublicKey( ByRef publicKey() As Byte, ByRef exponent() As Byte) As Integer
Dim results() As Object = Me.Invoke("GetPublicKey", New Object() {publicKey, exponent})
publicKey = CType(results(1),Byte())
exponent = CType(results(2),Byte())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub GetPublicKeyAsync(ByVal publicKey() As Byte, ByVal exponent() As Byte)
Me.GetPublicKeyAsync(publicKey, exponent, Nothing)
End Sub
'''
Public Overloads Sub GetPublicKeyAsync(ByVal publicKey() As Byte, ByVal exponent() As Byte, ByVal userState As Object)
If (Me.GetPublicKeyOperationCompleted Is Nothing) Then
Me.GetPublicKeyOperationCompleted = AddressOf Me.OnGetPublicKeyOperationCompleted
End If
Me.InvokeAsync("GetPublicKey", New Object() {publicKey, exponent}, Me.GetPublicKeyOperationCompleted, userState)
End Sub
Private Sub OnGetPublicKeyOperationCompleted(ByVal arg As Object)
If (Not (Me.GetPublicKeyCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetPublicKeyCompleted(Me, New GetPublicKeyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function Login(ByVal strLogin As String, ByVal strEncryptedPassword As String, ByVal strRMKey As String, ByRef strAuthTicket As String) As Integer
Dim results() As Object = Me.Invoke("Login", New Object() {strLogin, strEncryptedPassword, strRMKey})
strAuthTicket = CType(results(1),String)
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub LoginAsync(ByVal strLogin As String, ByVal strEncryptedPassword As String, ByVal strRMKey As String)
Me.LoginAsync(strLogin, strEncryptedPassword, strRMKey, Nothing)
End Sub
'''
Public Overloads Sub LoginAsync(ByVal strLogin As String, ByVal strEncryptedPassword As String, ByVal strRMKey As String, ByVal userState As Object)
If (Me.LoginOperationCompleted Is Nothing) Then
Me.LoginOperationCompleted = AddressOf Me.OnLoginOperationCompleted
End If
Me.InvokeAsync("Login", New Object() {strLogin, strEncryptedPassword, strRMKey}, Me.LoginOperationCompleted, userState)
End Sub
Private Sub OnLoginOperationCompleted(ByVal arg As Object)
If (Not (Me.LoginCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LoginCompleted(Me, New LoginCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function LoginPlainText(ByVal strLogin As String, ByVal strPassword As String, ByRef strAuthTicket As String) As Integer
Dim results() As Object = Me.Invoke("LoginPlainText", New Object() {strLogin, strPassword})
strAuthTicket = CType(results(1),String)
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub LoginPlainTextAsync(ByVal strLogin As String, ByVal strPassword As String)
Me.LoginPlainTextAsync(strLogin, strPassword, Nothing)
End Sub
'''
Public Overloads Sub LoginPlainTextAsync(ByVal strLogin As String, ByVal strPassword As String, ByVal userState As Object)
If (Me.LoginPlainTextOperationCompleted Is Nothing) Then
Me.LoginPlainTextOperationCompleted = AddressOf Me.OnLoginPlainTextOperationCompleted
End If
Me.InvokeAsync("LoginPlainText", New Object() {strLogin, strPassword}, Me.LoginPlainTextOperationCompleted, userState)
End Sub
Private Sub OnLoginPlainTextOperationCompleted(ByVal arg As Object)
If (Not (Me.LoginPlainTextCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LoginPlainTextCompleted(Me, New LoginPlainTextCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function CheckLoggedIn() As Boolean
Dim results() As Object = Me.Invoke("CheckLoggedIn", New Object(-1) {})
Return CType(results(0),Boolean)
End Function
'''
Public Overloads Sub CheckLoggedInAsync()
Me.CheckLoggedInAsync(Nothing)
End Sub
'''
Public Overloads Sub CheckLoggedInAsync(ByVal userState As Object)
If (Me.CheckLoggedInOperationCompleted Is Nothing) Then
Me.CheckLoggedInOperationCompleted = AddressOf Me.OnCheckLoggedInOperationCompleted
End If
Me.InvokeAsync("CheckLoggedIn", New Object(-1) {}, Me.CheckLoggedInOperationCompleted, userState)
End Sub
Private Sub OnCheckLoggedInOperationCompleted(ByVal arg As Object)
If (Not (Me.CheckLoggedInCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent CheckLoggedInCompleted(Me, New CheckLoggedInCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Sub Logout()
Me.Invoke("Logout", New Object(-1) {})
End Sub
'''
Public Overloads Sub LogoutAsync()
Me.LogoutAsync(Nothing)
End Sub
'''
Public Overloads Sub LogoutAsync(ByVal userState As Object)
If (Me.LogoutOperationCompleted Is Nothing) Then
Me.LogoutOperationCompleted = AddressOf Me.OnLogoutOperationCompleted
End If
Me.InvokeAsync("Logout", New Object(-1) {}, Me.LogoutOperationCompleted, userState)
End Sub
Private Sub OnLogoutOperationCompleted(ByVal arg As Object)
If (Not (Me.LogoutCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LogoutCompleted(Me, New System.ComponentModel.AsyncCompletedEventArgs(invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListProjects(ByRef mProjects() As MantisProject) As Integer
Dim results() As Object = Me.Invoke("ListProjects", New Object(-1) {})
mProjects = CType(results(1),MantisProject())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListProjectsAsync()
Me.ListProjectsAsync(Nothing)
End Sub
'''
Public Overloads Sub ListProjectsAsync(ByVal userState As Object)
If (Me.ListProjectsOperationCompleted Is Nothing) Then
Me.ListProjectsOperationCompleted = AddressOf Me.OnListProjectsOperationCompleted
End If
Me.InvokeAsync("ListProjects", New Object(-1) {}, Me.ListProjectsOperationCompleted, userState)
End Sub
Private Sub OnListProjectsOperationCompleted(ByVal arg As Object)
If (Not (Me.ListProjectsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListProjectsCompleted(Me, New ListProjectsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListUsers(ByVal pid As Integer, ByRef mUsers() As MantisUser) As Integer
Dim results() As Object = Me.Invoke("ListUsers", New Object() {pid})
mUsers = CType(results(1),MantisUser())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListUsersAsync(ByVal pid As Integer)
Me.ListUsersAsync(pid, Nothing)
End Sub
'''
Public Overloads Sub ListUsersAsync(ByVal pid As Integer, ByVal userState As Object)
If (Me.ListUsersOperationCompleted Is Nothing) Then
Me.ListUsersOperationCompleted = AddressOf Me.OnListUsersOperationCompleted
End If
Me.InvokeAsync("ListUsers", New Object() {pid}, Me.ListUsersOperationCompleted, userState)
End Sub
Private Sub OnListUsersOperationCompleted(ByVal arg As Object)
If (Not (Me.ListUsersCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListUsersCompleted(Me, New ListUsersCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListMilestones(ByVal pid As Integer, ByRef mMilestones() As MantisMilestone) As Integer
Dim results() As Object = Me.Invoke("ListMilestones", New Object() {pid})
mMilestones = CType(results(1),MantisMilestone())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListMilestonesAsync(ByVal pid As Integer)
Me.ListMilestonesAsync(pid, Nothing)
End Sub
'''
Public Overloads Sub ListMilestonesAsync(ByVal pid As Integer, ByVal userState As Object)
If (Me.ListMilestonesOperationCompleted Is Nothing) Then
Me.ListMilestonesOperationCompleted = AddressOf Me.OnListMilestonesOperationCompleted
End If
Me.InvokeAsync("ListMilestones", New Object() {pid}, Me.ListMilestonesOperationCompleted, userState)
End Sub
Private Sub OnListMilestonesOperationCompleted(ByVal arg As Object)
If (Not (Me.ListMilestonesCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListMilestonesCompleted(Me, New ListMilestonesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListCategories(ByVal pid As Integer, ByRef mCategories() As MantisCategory) As Integer
Dim results() As Object = Me.Invoke("ListCategories", New Object() {pid})
mCategories = CType(results(1),MantisCategory())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListCategoriesAsync(ByVal pid As Integer)
Me.ListCategoriesAsync(pid, Nothing)
End Sub
'''
Public Overloads Sub ListCategoriesAsync(ByVal pid As Integer, ByVal userState As Object)
If (Me.ListCategoriesOperationCompleted Is Nothing) Then
Me.ListCategoriesOperationCompleted = AddressOf Me.OnListCategoriesOperationCompleted
End If
Me.InvokeAsync("ListCategories", New Object() {pid}, Me.ListCategoriesOperationCompleted, userState)
End Sub
Private Sub OnListCategoriesOperationCompleted(ByVal arg As Object)
If (Not (Me.ListCategoriesCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListCategoriesCompleted(Me, New ListCategoriesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListGroups(ByVal pid As Integer, ByRef mGroups() As MantisGroup) As Integer
Dim results() As Object = Me.Invoke("ListGroups", New Object() {pid})
mGroups = CType(results(1),MantisGroup())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListGroupsAsync(ByVal pid As Integer)
Me.ListGroupsAsync(pid, Nothing)
End Sub
'''
Public Overloads Sub ListGroupsAsync(ByVal pid As Integer, ByVal userState As Object)
If (Me.ListGroupsOperationCompleted Is Nothing) Then
Me.ListGroupsOperationCompleted = AddressOf Me.OnListGroupsOperationCompleted
End If
Me.InvokeAsync("ListGroups", New Object() {pid}, Me.ListGroupsOperationCompleted, userState)
End Sub
Private Sub OnListGroupsOperationCompleted(ByVal arg As Object)
If (Not (Me.ListGroupsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListGroupsCompleted(Me, New ListGroupsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListPriorities(ByRef priorities() As MantisPriority) As Integer
Dim results() As Object = Me.Invoke("ListPriorities", New Object(-1) {})
priorities = CType(results(1),MantisPriority())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListPrioritiesAsync()
Me.ListPrioritiesAsync(Nothing)
End Sub
'''
Public Overloads Sub ListPrioritiesAsync(ByVal userState As Object)
If (Me.ListPrioritiesOperationCompleted Is Nothing) Then
Me.ListPrioritiesOperationCompleted = AddressOf Me.OnListPrioritiesOperationCompleted
End If
Me.InvokeAsync("ListPriorities", New Object(-1) {}, Me.ListPrioritiesOperationCompleted, userState)
End Sub
Private Sub OnListPrioritiesOperationCompleted(ByVal arg As Object)
If (Not (Me.ListPrioritiesCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListPrioritiesCompleted(Me, New ListPrioritiesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListStatusValues(ByRef statusValues() As MantisStatus) As Integer
Dim results() As Object = Me.Invoke("ListStatusValues", New Object(-1) {})
statusValues = CType(results(1),MantisStatus())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListStatusValuesAsync()
Me.ListStatusValuesAsync(Nothing)
End Sub
'''
Public Overloads Sub ListStatusValuesAsync(ByVal userState As Object)
If (Me.ListStatusValuesOperationCompleted Is Nothing) Then
Me.ListStatusValuesOperationCompleted = AddressOf Me.OnListStatusValuesOperationCompleted
End If
Me.InvokeAsync("ListStatusValues", New Object(-1) {}, Me.ListStatusValuesOperationCompleted, userState)
End Sub
Private Sub OnListStatusValuesOperationCompleted(ByVal arg As Object)
If (Not (Me.ListStatusValuesCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListStatusValuesCompleted(Me, New ListStatusValuesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListPlatforms(ByRef platforms() As MantisPlatform) As Integer
Dim results() As Object = Me.Invoke("ListPlatforms", New Object(-1) {})
platforms = CType(results(1),MantisPlatform())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListPlatformsAsync()
Me.ListPlatformsAsync(Nothing)
End Sub
'''
Public Overloads Sub ListPlatformsAsync(ByVal userState As Object)
If (Me.ListPlatformsOperationCompleted Is Nothing) Then
Me.ListPlatformsOperationCompleted = AddressOf Me.OnListPlatformsOperationCompleted
End If
Me.InvokeAsync("ListPlatforms", New Object(-1) {}, Me.ListPlatformsOperationCompleted, userState)
End Sub
Private Sub OnListPlatformsOperationCompleted(ByVal arg As Object)
If (Not (Me.ListPlatformsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListPlatformsCompleted(Me, New ListPlatformsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListTypes(ByRef types() As MantisItemType) As Integer
Dim results() As Object = Me.Invoke("ListTypes", New Object(-1) {})
types = CType(results(1),MantisItemType())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListTypesAsync()
Me.ListTypesAsync(Nothing)
End Sub
'''
Public Overloads Sub ListTypesAsync(ByVal userState As Object)
If (Me.ListTypesOperationCompleted Is Nothing) Then
Me.ListTypesOperationCompleted = AddressOf Me.OnListTypesOperationCompleted
End If
Me.InvokeAsync("ListTypes", New Object(-1) {}, Me.ListTypesOperationCompleted, userState)
End Sub
Private Sub OnListTypesOperationCompleted(ByVal arg As Object)
If (Not (Me.ListTypesCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListTypesCompleted(Me, New ListTypesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListTimeEstimateValues(ByRef timeEstimates() As MantisTimeEstimate) As Integer
Dim results() As Object = Me.Invoke("ListTimeEstimateValues", New Object(-1) {})
timeEstimates = CType(results(1),MantisTimeEstimate())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListTimeEstimateValuesAsync()
Me.ListTimeEstimateValuesAsync(Nothing)
End Sub
'''
Public Overloads Sub ListTimeEstimateValuesAsync(ByVal userState As Object)
If (Me.ListTimeEstimateValuesOperationCompleted Is Nothing) Then
Me.ListTimeEstimateValuesOperationCompleted = AddressOf Me.OnListTimeEstimateValuesOperationCompleted
End If
Me.InvokeAsync("ListTimeEstimateValues", New Object(-1) {}, Me.ListTimeEstimateValuesOperationCompleted, userState)
End Sub
Private Sub OnListTimeEstimateValuesOperationCompleted(ByVal arg As Object)
If (Not (Me.ListTimeEstimateValuesCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListTimeEstimateValuesCompleted(Me, New ListTimeEstimateValuesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListCustomLabels(ByRef values() As MantisCustomLabel) As Integer
Dim results() As Object = Me.Invoke("ListCustomLabels", New Object(-1) {})
values = CType(results(1),MantisCustomLabel())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListCustomLabelsAsync()
Me.ListCustomLabelsAsync(Nothing)
End Sub
'''
Public Overloads Sub ListCustomLabelsAsync(ByVal userState As Object)
If (Me.ListCustomLabelsOperationCompleted Is Nothing) Then
Me.ListCustomLabelsOperationCompleted = AddressOf Me.OnListCustomLabelsOperationCompleted
End If
Me.InvokeAsync("ListCustomLabels", New Object(-1) {}, Me.ListCustomLabelsOperationCompleted, userState)
End Sub
Private Sub OnListCustomLabelsOperationCompleted(ByVal arg As Object)
If (Not (Me.ListCustomLabelsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListCustomLabelsCompleted(Me, New ListCustomLabelsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListSummaries(ByVal pid As Integer, ByVal summaryColumn As String, ByRef summaries() As MilestoneSummary) As Integer
Dim results() As Object = Me.Invoke("ListSummaries", New Object() {pid, summaryColumn})
summaries = CType(results(1),MilestoneSummary())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListSummariesAsync(ByVal pid As Integer, ByVal summaryColumn As String)
Me.ListSummariesAsync(pid, summaryColumn, Nothing)
End Sub
'''
Public Overloads Sub ListSummariesAsync(ByVal pid As Integer, ByVal summaryColumn As String, ByVal userState As Object)
If (Me.ListSummariesOperationCompleted Is Nothing) Then
Me.ListSummariesOperationCompleted = AddressOf Me.OnListSummariesOperationCompleted
End If
Me.InvokeAsync("ListSummaries", New Object() {pid, summaryColumn}, Me.ListSummariesOperationCompleted, userState)
End Sub
Private Sub OnListSummariesOperationCompleted(ByVal arg As Object)
If (Not (Me.ListSummariesCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListSummariesCompleted(Me, New ListSummariesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListAtAGlance(ByVal pid As Integer, ByRef ataglance() As MilestoneAaG) As Integer
Dim results() As Object = Me.Invoke("ListAtAGlance", New Object() {pid})
ataglance = CType(results(1),MilestoneAaG())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListAtAGlanceAsync(ByVal pid As Integer)
Me.ListAtAGlanceAsync(pid, Nothing)
End Sub
'''
Public Overloads Sub ListAtAGlanceAsync(ByVal pid As Integer, ByVal userState As Object)
If (Me.ListAtAGlanceOperationCompleted Is Nothing) Then
Me.ListAtAGlanceOperationCompleted = AddressOf Me.OnListAtAGlanceOperationCompleted
End If
Me.InvokeAsync("ListAtAGlance", New Object() {pid}, Me.ListAtAGlanceOperationCompleted, userState)
End Sub
Private Sub OnListAtAGlanceOperationCompleted(ByVal arg As Object)
If (Not (Me.ListAtAGlanceCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListAtAGlanceCompleted(Me, New ListAtAGlanceCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function IsItemIDValid(ByVal itemid As Integer) As Boolean
Dim results() As Object = Me.Invoke("IsItemIDValid", New Object() {itemid})
Return CType(results(0),Boolean)
End Function
'''
Public Overloads Sub IsItemIDValidAsync(ByVal itemid As Integer)
Me.IsItemIDValidAsync(itemid, Nothing)
End Sub
'''
Public Overloads Sub IsItemIDValidAsync(ByVal itemid As Integer, ByVal userState As Object)
If (Me.IsItemIDValidOperationCompleted Is Nothing) Then
Me.IsItemIDValidOperationCompleted = AddressOf Me.OnIsItemIDValidOperationCompleted
End If
Me.InvokeAsync("IsItemIDValid", New Object() {itemid}, Me.IsItemIDValidOperationCompleted, userState)
End Sub
Private Sub OnIsItemIDValidOperationCompleted(ByVal arg As Object)
If (Not (Me.IsItemIDValidCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent IsItemIDValidCompleted(Me, New IsItemIDValidCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListItemForEdit(ByVal itemid As Integer, ByRef item As MantisItem) As Integer
Dim results() As Object = Me.Invoke("ListItemForEdit", New Object() {itemid})
item = CType(results(1),MantisItem)
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListItemForEditAsync(ByVal itemid As Integer)
Me.ListItemForEditAsync(itemid, Nothing)
End Sub
'''
Public Overloads Sub ListItemForEditAsync(ByVal itemid As Integer, ByVal userState As Object)
If (Me.ListItemForEditOperationCompleted Is Nothing) Then
Me.ListItemForEditOperationCompleted = AddressOf Me.OnListItemForEditOperationCompleted
End If
Me.InvokeAsync("ListItemForEdit", New Object() {itemid}, Me.ListItemForEditOperationCompleted, userState)
End Sub
Private Sub OnListItemForEditOperationCompleted(ByVal arg As Object)
If (Not (Me.ListItemForEditCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListItemForEditCompleted(Me, New ListItemForEditCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListItemFullDetails(ByVal itemID As Integer, ByRef mItem As MantisItemFullDetail) As Integer
Dim results() As Object = Me.Invoke("ListItemFullDetails", New Object() {itemID})
mItem = CType(results(1),MantisItemFullDetail)
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListItemFullDetailsAsync(ByVal itemID As Integer)
Me.ListItemFullDetailsAsync(itemID, Nothing)
End Sub
'''
Public Overloads Sub ListItemFullDetailsAsync(ByVal itemID As Integer, ByVal userState As Object)
If (Me.ListItemFullDetailsOperationCompleted Is Nothing) Then
Me.ListItemFullDetailsOperationCompleted = AddressOf Me.OnListItemFullDetailsOperationCompleted
End If
Me.InvokeAsync("ListItemFullDetails", New Object() {itemID}, Me.ListItemFullDetailsOperationCompleted, userState)
End Sub
Private Sub OnListItemFullDetailsOperationCompleted(ByVal arg As Object)
If (Not (Me.ListItemFullDetailsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListItemFullDetailsCompleted(Me, New ListItemFullDetailsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListOpenItems(ByVal pid As Integer, ByVal bSendDetails As Boolean, ByRef meiColl() As MantisItemExpanded) As Integer
Dim results() As Object = Me.Invoke("ListOpenItems", New Object() {pid, bSendDetails})
meiColl = CType(results(1),MantisItemExpanded())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListOpenItemsAsync(ByVal pid As Integer, ByVal bSendDetails As Boolean)
Me.ListOpenItemsAsync(pid, bSendDetails, Nothing)
End Sub
'''
Public Overloads Sub ListOpenItemsAsync(ByVal pid As Integer, ByVal bSendDetails As Boolean, ByVal userState As Object)
If (Me.ListOpenItemsOperationCompleted Is Nothing) Then
Me.ListOpenItemsOperationCompleted = AddressOf Me.OnListOpenItemsOperationCompleted
End If
Me.InvokeAsync("ListOpenItems", New Object() {pid, bSendDetails}, Me.ListOpenItemsOperationCompleted, userState)
End Sub
Private Sub OnListOpenItemsOperationCompleted(ByVal arg As Object)
If (Not (Me.ListOpenItemsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListOpenItemsCompleted(Me, New ListOpenItemsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListMyOpenItems(ByVal pid As Integer, ByVal bSendDetails As Boolean, ByRef meiColl() As MantisItemExpanded) As Integer
Dim results() As Object = Me.Invoke("ListMyOpenItems", New Object() {pid, bSendDetails})
meiColl = CType(results(1),MantisItemExpanded())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListMyOpenItemsAsync(ByVal pid As Integer, ByVal bSendDetails As Boolean)
Me.ListMyOpenItemsAsync(pid, bSendDetails, Nothing)
End Sub
'''
Public Overloads Sub ListMyOpenItemsAsync(ByVal pid As Integer, ByVal bSendDetails As Boolean, ByVal userState As Object)
If (Me.ListMyOpenItemsOperationCompleted Is Nothing) Then
Me.ListMyOpenItemsOperationCompleted = AddressOf Me.OnListMyOpenItemsOperationCompleted
End If
Me.InvokeAsync("ListMyOpenItems", New Object() {pid, bSendDetails}, Me.ListMyOpenItemsOperationCompleted, userState)
End Sub
Private Sub OnListMyOpenItemsOperationCompleted(ByVal arg As Object)
If (Not (Me.ListMyOpenItemsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListMyOpenItemsCompleted(Me, New ListMyOpenItemsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListAttachmentInfo(ByVal msgID As Integer, ByVal attId As Integer, ByRef maifd As MantisItemAttachmentFullDetail) As Integer
Dim results() As Object = Me.Invoke("ListAttachmentInfo", New Object() {msgID, attId})
maifd = CType(results(1),MantisItemAttachmentFullDetail)
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListAttachmentInfoAsync(ByVal msgID As Integer, ByVal attId As Integer)
Me.ListAttachmentInfoAsync(msgID, attId, Nothing)
End Sub
'''
Public Overloads Sub ListAttachmentInfoAsync(ByVal msgID As Integer, ByVal attId As Integer, ByVal userState As Object)
If (Me.ListAttachmentInfoOperationCompleted Is Nothing) Then
Me.ListAttachmentInfoOperationCompleted = AddressOf Me.OnListAttachmentInfoOperationCompleted
End If
Me.InvokeAsync("ListAttachmentInfo", New Object() {msgID, attId}, Me.ListAttachmentInfoOperationCompleted, userState)
End Sub
Private Sub OnListAttachmentInfoOperationCompleted(ByVal arg As Object)
If (Not (Me.ListAttachmentInfoCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListAttachmentInfoCompleted(Me, New ListAttachmentInfoCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ListItemAudit(ByVal itemid As Integer, ByRef auditTrail() As AuditTrail) As Integer
Dim results() As Object = Me.Invoke("ListItemAudit", New Object() {itemid})
auditTrail = CType(results(1),AuditTrail())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ListItemAuditAsync(ByVal itemid As Integer)
Me.ListItemAuditAsync(itemid, Nothing)
End Sub
'''
Public Overloads Sub ListItemAuditAsync(ByVal itemid As Integer, ByVal userState As Object)
If (Me.ListItemAuditOperationCompleted Is Nothing) Then
Me.ListItemAuditOperationCompleted = AddressOf Me.OnListItemAuditOperationCompleted
End If
Me.InvokeAsync("ListItemAudit", New Object() {itemid}, Me.ListItemAuditOperationCompleted, userState)
End Sub
Private Sub OnListItemAuditOperationCompleted(ByVal arg As Object)
If (Not (Me.ListItemAuditCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ListItemAuditCompleted(Me, New ListItemAuditCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function QueryItems(ByVal qf As MantisItemQueryFilter, ByVal sendDetails As Boolean, ByRef items() As MantisItemExpanded) As Integer
Dim results() As Object = Me.Invoke("QueryItems", New Object() {qf, sendDetails})
items = CType(results(1),MantisItemExpanded())
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub QueryItemsAsync(ByVal qf As MantisItemQueryFilter, ByVal sendDetails As Boolean)
Me.QueryItemsAsync(qf, sendDetails, Nothing)
End Sub
'''
Public Overloads Sub QueryItemsAsync(ByVal qf As MantisItemQueryFilter, ByVal sendDetails As Boolean, ByVal userState As Object)
If (Me.QueryItemsOperationCompleted Is Nothing) Then
Me.QueryItemsOperationCompleted = AddressOf Me.OnQueryItemsOperationCompleted
End If
Me.InvokeAsync("QueryItems", New Object() {qf, sendDetails}, Me.QueryItemsOperationCompleted, userState)
End Sub
Private Sub OnQueryItemsOperationCompleted(ByVal arg As Object)
If (Not (Me.QueryItemsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent QueryItemsCompleted(Me, New QueryItemsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ModifyItemFromSCC(ByVal mItem As MantisItemFullDetail, ByVal comment As MantisItemComment) As Integer
Dim results() As Object = Me.Invoke("ModifyItemFromSCC", New Object() {mItem, comment})
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ModifyItemFromSCCAsync(ByVal mItem As MantisItemFullDetail, ByVal comment As MantisItemComment)
Me.ModifyItemFromSCCAsync(mItem, comment, Nothing)
End Sub
'''
Public Overloads Sub ModifyItemFromSCCAsync(ByVal mItem As MantisItemFullDetail, ByVal comment As MantisItemComment, ByVal userState As Object)
If (Me.ModifyItemFromSCCOperationCompleted Is Nothing) Then
Me.ModifyItemFromSCCOperationCompleted = AddressOf Me.OnModifyItemFromSCCOperationCompleted
End If
Me.InvokeAsync("ModifyItemFromSCC", New Object() {mItem, comment}, Me.ModifyItemFromSCCOperationCompleted, userState)
End Sub
Private Sub OnModifyItemFromSCCOperationCompleted(ByVal arg As Object)
If (Not (Me.ModifyItemFromSCCCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ModifyItemFromSCCCompleted(Me, New ModifyItemFromSCCCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ModifyItem(ByVal mItem As MantisItem) As Integer
Dim results() As Object = Me.Invoke("ModifyItem", New Object() {mItem})
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ModifyItemAsync(ByVal mItem As MantisItem)
Me.ModifyItemAsync(mItem, Nothing)
End Sub
'''
Public Overloads Sub ModifyItemAsync(ByVal mItem As MantisItem, ByVal userState As Object)
If (Me.ModifyItemOperationCompleted Is Nothing) Then
Me.ModifyItemOperationCompleted = AddressOf Me.OnModifyItemOperationCompleted
End If
Me.InvokeAsync("ModifyItem", New Object() {mItem}, Me.ModifyItemOperationCompleted, userState)
End Sub
Private Sub OnModifyItemOperationCompleted(ByVal arg As Object)
If (Not (Me.ModifyItemCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ModifyItemCompleted(Me, New ModifyItemCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function AddItem(ByVal item As MantisItem) As Integer
Dim results() As Object = Me.Invoke("AddItem", New Object() {item})
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub AddItemAsync(ByVal item As MantisItem)
Me.AddItemAsync(item, Nothing)
End Sub
'''
Public Overloads Sub AddItemAsync(ByVal item As MantisItem, ByVal userState As Object)
If (Me.AddItemOperationCompleted Is Nothing) Then
Me.AddItemOperationCompleted = AddressOf Me.OnAddItemOperationCompleted
End If
Me.InvokeAsync("AddItem", New Object() {item}, Me.AddItemOperationCompleted, userState)
End Sub
Private Sub OnAddItemOperationCompleted(ByVal arg As Object)
If (Not (Me.AddItemCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent AddItemCompleted(Me, New AddItemCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function AddItemExternal(ByVal item As MantisItem) As Integer
Dim results() As Object = Me.Invoke("AddItemExternal", New Object() {item})
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub AddItemExternalAsync(ByVal item As MantisItem)
Me.AddItemExternalAsync(item, Nothing)
End Sub
'''
Public Overloads Sub AddItemExternalAsync(ByVal item As MantisItem, ByVal userState As Object)
If (Me.AddItemExternalOperationCompleted Is Nothing) Then
Me.AddItemExternalOperationCompleted = AddressOf Me.OnAddItemExternalOperationCompleted
End If
Me.InvokeAsync("AddItemExternal", New Object() {item}, Me.AddItemExternalOperationCompleted, userState)
End Sub
Private Sub OnAddItemExternalOperationCompleted(ByVal arg As Object)
If (Not (Me.AddItemExternalCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent AddItemExternalCompleted(Me, New AddItemExternalCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function UpdateItemsFromSCC(ByVal itemIDs() As Integer, ByVal comment As MantisItemComment, ByVal bResolve As Boolean) As Integer()
Dim results() As Object = Me.Invoke("UpdateItemsFromSCC", New Object() {itemIDs, comment, bResolve})
Return CType(results(0),Integer())
End Function
'''
Public Overloads Sub UpdateItemsFromSCCAsync(ByVal itemIDs() As Integer, ByVal comment As MantisItemComment, ByVal bResolve As Boolean)
Me.UpdateItemsFromSCCAsync(itemIDs, comment, bResolve, Nothing)
End Sub
'''
Public Overloads Sub UpdateItemsFromSCCAsync(ByVal itemIDs() As Integer, ByVal comment As MantisItemComment, ByVal bResolve As Boolean, ByVal userState As Object)
If (Me.UpdateItemsFromSCCOperationCompleted Is Nothing) Then
Me.UpdateItemsFromSCCOperationCompleted = AddressOf Me.OnUpdateItemsFromSCCOperationCompleted
End If
Me.InvokeAsync("UpdateItemsFromSCC", New Object() {itemIDs, comment, bResolve}, Me.UpdateItemsFromSCCOperationCompleted, userState)
End Sub
Private Sub OnUpdateItemsFromSCCOperationCompleted(ByVal arg As Object)
If (Not (Me.UpdateItemsFromSCCCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent UpdateItemsFromSCCCompleted(Me, New UpdateItemsFromSCCCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function BatchModifyItems(ByVal items() As MantisItem, ByVal comment As MantisItemComment) As Integer
Dim results() As Object = Me.Invoke("BatchModifyItems", New Object() {items, comment})
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub BatchModifyItemsAsync(ByVal items() As MantisItem, ByVal comment As MantisItemComment)
Me.BatchModifyItemsAsync(items, comment, Nothing)
End Sub
'''
Public Overloads Sub BatchModifyItemsAsync(ByVal items() As MantisItem, ByVal comment As MantisItemComment, ByVal userState As Object)
If (Me.BatchModifyItemsOperationCompleted Is Nothing) Then
Me.BatchModifyItemsOperationCompleted = AddressOf Me.OnBatchModifyItemsOperationCompleted
End If
Me.InvokeAsync("BatchModifyItems", New Object() {items, comment}, Me.BatchModifyItemsOperationCompleted, userState)
End Sub
Private Sub OnBatchModifyItemsOperationCompleted(ByVal arg As Object)
If (Not (Me.BatchModifyItemsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent BatchModifyItemsCompleted(Me, New BatchModifyItemsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function AddCheckinComments(ByVal mItems() As MantisItem, ByVal comment As MantisItemComment) As Integer()
Dim results() As Object = Me.Invoke("AddCheckinComments", New Object() {mItems, comment})
Return CType(results(0),Integer())
End Function
'''
Public Overloads Sub AddCheckinCommentsAsync(ByVal mItems() As MantisItem, ByVal comment As MantisItemComment)
Me.AddCheckinCommentsAsync(mItems, comment, Nothing)
End Sub
'''
Public Overloads Sub AddCheckinCommentsAsync(ByVal mItems() As MantisItem, ByVal comment As MantisItemComment, ByVal userState As Object)
If (Me.AddCheckinCommentsOperationCompleted Is Nothing) Then
Me.AddCheckinCommentsOperationCompleted = AddressOf Me.OnAddCheckinCommentsOperationCompleted
End If
Me.InvokeAsync("AddCheckinComments", New Object() {mItems, comment}, Me.AddCheckinCommentsOperationCompleted, userState)
End Sub
Private Sub OnAddCheckinCommentsOperationCompleted(ByVal arg As Object)
If (Not (Me.AddCheckinCommentsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent AddCheckinCommentsCompleted(Me, New AddCheckinCommentsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function AddItemComment(ByVal item As MantisItem, ByVal comment As MantisItemComment) As Integer
Dim results() As Object = Me.Invoke("AddItemComment", New Object() {item, comment})
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub AddItemCommentAsync(ByVal item As MantisItem, ByVal comment As MantisItemComment)
Me.AddItemCommentAsync(item, comment, Nothing)
End Sub
'''
Public Overloads Sub AddItemCommentAsync(ByVal item As MantisItem, ByVal comment As MantisItemComment, ByVal userState As Object)
If (Me.AddItemCommentOperationCompleted Is Nothing) Then
Me.AddItemCommentOperationCompleted = AddressOf Me.OnAddItemCommentOperationCompleted
End If
Me.InvokeAsync("AddItemComment", New Object() {item, comment}, Me.AddItemCommentOperationCompleted, userState)
End Sub
Private Sub OnAddItemCommentOperationCompleted(ByVal arg As Object)
If (Not (Me.AddItemCommentCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent AddItemCommentCompleted(Me, New AddItemCommentCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ModifyItemComment(ByVal comment As MantisItemComment) As Integer
Dim results() As Object = Me.Invoke("ModifyItemComment", New Object() {comment})
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub ModifyItemCommentAsync(ByVal comment As MantisItemComment)
Me.ModifyItemCommentAsync(comment, Nothing)
End Sub
'''
Public Overloads Sub ModifyItemCommentAsync(ByVal comment As MantisItemComment, ByVal userState As Object)
If (Me.ModifyItemCommentOperationCompleted Is Nothing) Then
Me.ModifyItemCommentOperationCompleted = AddressOf Me.OnModifyItemCommentOperationCompleted
End If
Me.InvokeAsync("ModifyItemComment", New Object() {comment}, Me.ModifyItemCommentOperationCompleted, userState)
End Sub
Private Sub OnModifyItemCommentOperationCompleted(ByVal arg As Object)
If (Not (Me.ModifyItemCommentCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ModifyItemCommentCompleted(Me, New ModifyItemCommentCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function DeleteItemComment(ByVal itemid As Integer, ByVal commentid As Integer) As Integer
Dim results() As Object = Me.Invoke("DeleteItemComment", New Object() {itemid, commentid})
Return CType(results(0),Integer)
End Function
'''
Public Overloads Sub DeleteItemCommentAsync(ByVal itemid As Integer, ByVal commentid As Integer)
Me.DeleteItemCommentAsync(itemid, commentid, Nothing)
End Sub
'''
Public Overloads Sub DeleteItemCommentAsync(ByVal itemid As Integer, ByVal commentid As Integer, ByVal userState As Object)
If (Me.DeleteItemCommentOperationCompleted Is Nothing) Then
Me.DeleteItemCommentOperationCompleted = AddressOf Me.OnDeleteItemCommentOperationCompleted
End If
Me.InvokeAsync("DeleteItemComment", New Object() {itemid, commentid}, Me.DeleteItemCommentOperationCompleted, userState)
End Sub
Private Sub OnDeleteItemCommentOperationCompleted(ByVal arg As Object)
If (Not (Me.DeleteItemCommentCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent DeleteItemCommentCompleted(Me, New DeleteItemCommentCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
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
'''
_
Partial Public Class DragnetAuth
Inherits System.Web.Services.Protocols.SoapHeader
Private tokenField As String
'''
Public Property Token() As String
Get
Return Me.tokenField
End Get
Set
Me.tokenField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisItemQuerySort
End Class
'''
_
Partial Public Class MantisItemQueryFilter
Private dateItemAreasField As Byte
Private rowLimitField As Integer
Private caseSensitiveKeywordsField As Boolean
Private allInclusiveKeywordsField As Boolean
Private dateFromField As Date
Private dateToField As Date
Private keywordsField As String
Private keywordAreasField As Byte
Private typesField() As Integer
Private statusesField() As Integer
Private prioritiesField() As Integer
Private assigneesField() As Integer
Private resolversField() As Integer
Private reportersField() As Integer
Private timeEstimatesField() As Integer
Private projectsField() As Integer
Private platformsField() As Integer
Private versionField As String
Private customLabel1Field As String
Private customLabel2Field As String
Private itemAccessTypeField As AccessType
Private projectLevelFilterIDField As Integer
Private categoriesField() As Integer
Private milestonesField() As Integer
Private sortsField() As MantisItemQuerySort
'''
Public Property DateItemAreas() As Byte
Get
Return Me.dateItemAreasField
End Get
Set
Me.dateItemAreasField = value
End Set
End Property
'''
Public Property RowLimit() As Integer
Get
Return Me.rowLimitField
End Get
Set
Me.rowLimitField = value
End Set
End Property
'''
Public Property CaseSensitiveKeywords() As Boolean
Get
Return Me.caseSensitiveKeywordsField
End Get
Set
Me.caseSensitiveKeywordsField = value
End Set
End Property
'''
Public Property AllInclusiveKeywords() As Boolean
Get
Return Me.allInclusiveKeywordsField
End Get
Set
Me.allInclusiveKeywordsField = value
End Set
End Property
'''
Public Property DateFrom() As Date
Get
Return Me.dateFromField
End Get
Set
Me.dateFromField = value
End Set
End Property
'''
Public Property DateTo() As Date
Get
Return Me.dateToField
End Get
Set
Me.dateToField = value
End Set
End Property
'''
Public Property Keywords() As String
Get
Return Me.keywordsField
End Get
Set
Me.keywordsField = value
End Set
End Property
'''
Public Property KeywordAreas() As Byte
Get
Return Me.keywordAreasField
End Get
Set
Me.keywordAreasField = value
End Set
End Property
'''
Public Property Types() As Integer()
Get
Return Me.typesField
End Get
Set
Me.typesField = value
End Set
End Property
'''
Public Property Statuses() As Integer()
Get
Return Me.statusesField
End Get
Set
Me.statusesField = value
End Set
End Property
'''
Public Property Priorities() As Integer()
Get
Return Me.prioritiesField
End Get
Set
Me.prioritiesField = value
End Set
End Property
'''
Public Property Assignees() As Integer()
Get
Return Me.assigneesField
End Get
Set
Me.assigneesField = value
End Set
End Property
'''
Public Property Resolvers() As Integer()
Get
Return Me.resolversField
End Get
Set
Me.resolversField = value
End Set
End Property
'''
Public Property Reporters() As Integer()
Get
Return Me.reportersField
End Get
Set
Me.reportersField = value
End Set
End Property
'''
Public Property TimeEstimates() As Integer()
Get
Return Me.timeEstimatesField
End Get
Set
Me.timeEstimatesField = value
End Set
End Property
'''
Public Property Projects() As Integer()
Get
Return Me.projectsField
End Get
Set
Me.projectsField = value
End Set
End Property
'''
Public Property Platforms() As Integer()
Get
Return Me.platformsField
End Get
Set
Me.platformsField = value
End Set
End Property
'''
Public Property Version() As String
Get
Return Me.versionField
End Get
Set
Me.versionField = value
End Set
End Property
'''
Public Property CustomLabel1() As String
Get
Return Me.customLabel1Field
End Get
Set
Me.customLabel1Field = value
End Set
End Property
'''
Public Property CustomLabel2() As String
Get
Return Me.customLabel2Field
End Get
Set
Me.customLabel2Field = value
End Set
End Property
'''
Public Property ItemAccessType() As AccessType
Get
Return Me.itemAccessTypeField
End Get
Set
Me.itemAccessTypeField = value
End Set
End Property
'''
Public Property ProjectLevelFilterID() As Integer
Get
Return Me.projectLevelFilterIDField
End Get
Set
Me.projectLevelFilterIDField = value
End Set
End Property
'''
Public Property Categories() As Integer()
Get
Return Me.categoriesField
End Get
Set
Me.categoriesField = value
End Set
End Property
'''
Public Property Milestones() As Integer()
Get
Return Me.milestonesField
End Get
Set
Me.milestonesField = value
End Set
End Property
'''
Public Property Sorts() As MantisItemQuerySort()
Get
Return Me.sortsField
End Get
Set
Me.sortsField = value
End Set
End Property
End Class
'''
_
Public Enum AccessType
'''
Undefined
'''
[Public]
'''
[Private]
End Enum
'''
_
Partial Public Class AuditTrail
Private idField As Integer
Private uIDField As Integer
Private userLoginField As String
Private whenChangedField As Date
Private fieldNameField As String
Private oldValueField As String
Private newValueField As String
'''
Public Property ID() As Integer
Get
Return Me.idField
End Get
Set
Me.idField = value
End Set
End Property
'''
Public Property UID() As Integer
Get
Return Me.uIDField
End Get
Set
Me.uIDField = value
End Set
End Property
'''
Public Property UserLogin() As String
Get
Return Me.userLoginField
End Get
Set
Me.userLoginField = value
End Set
End Property
'''
Public Property WhenChanged() As Date
Get
Return Me.whenChangedField
End Get
Set
Me.whenChangedField = value
End Set
End Property
'''
Public Property FieldName() As String
Get
Return Me.fieldNameField
End Get
Set
Me.fieldNameField = value
End Set
End Property
'''
Public Property OldValue() As String
Get
Return Me.oldValueField
End Get
Set
Me.oldValueField = value
End Set
End Property
'''
Public Property NewValue() As String
Get
Return Me.newValueField
End Get
Set
Me.newValueField = value
End Set
End Property
End Class
'''
_
Partial Public Class VaultChangeSetItem
Private fullPathField As String
Private idField As Long
Private versionField As Long
Private objVerIDField As Long
'''
Public Property FullPath() As String
Get
Return Me.fullPathField
End Get
Set
Me.fullPathField = value
End Set
End Property
'''
Public Property ID() As Long
Get
Return Me.idField
End Get
Set
Me.idField = value
End Set
End Property
'''
Public Property Version() As Long
Get
Return Me.versionField
End Get
Set
Me.versionField = value
End Set
End Property
'''
Public Property ObjVerID() As Long
Get
Return Me.objVerIDField
End Get
Set
Me.objVerIDField = value
End Set
End Property
End Class
'''
_
Partial Public Class VaultChangeSet
Private repIDField As Integer
Private txIDField As Long
Private vaultChangeSetItemsField() As VaultChangeSetItem
Private statusCodeField As Integer
'''
Public Property RepID() As Integer
Get
Return Me.repIDField
End Get
Set
Me.repIDField = value
End Set
End Property
'''
Public Property TxID() As Long
Get
Return Me.txIDField
End Get
Set
Me.txIDField = value
End Set
End Property
'''
Public Property VaultChangeSetItems() As VaultChangeSetItem()
Get
Return Me.vaultChangeSetItemsField
End Get
Set
Me.vaultChangeSetItemsField = value
End Set
End Property
'''
Public Property StatusCode() As Integer
Get
Return Me.statusCodeField
End Get
Set
Me.statusCodeField = value
End Set
End Property
End Class
'''
_
Partial Public MustInherit Class MarshalByRefObject
End Class
'''
_
Partial Public MustInherit Class Stream
Inherits MarshalByRefObject
Private positionField As Long
'''
Public Property Position() As Long
Get
Return Me.positionField
End Get
Set
Me.positionField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisItemAttachment
Private msgIDField As Integer
Private attIDField As Integer
Private fileNameField As String
Private descriptionField As String
Private statusCodeField As Integer
'''
Public Property MsgID() As Integer
Get
Return Me.msgIDField
End Get
Set
Me.msgIDField = value
End Set
End Property
'''
Public Property AttID() As Integer
Get
Return Me.attIDField
End Get
Set
Me.attIDField = value
End Set
End Property
'''
Public Property FileName() As String
Get
Return Me.fileNameField
End Get
Set
Me.fileNameField = value
End Set
End Property
'''
Public Property Description() As String
Get
Return Me.descriptionField
End Get
Set
Me.descriptionField = value
End Set
End Property
'''
Public Property StatusCode() As Integer
Get
Return Me.statusCodeField
End Get
Set
Me.statusCodeField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisItemAttachmentFullDetail
Inherits MantisItemAttachment
Private fileCRCField As Integer
Private fileLengthField As Long
Private contentTypeField As String
Private attStreamField As Stream
'''
Public Property FileCRC() As Integer
Get
Return Me.fileCRCField
End Get
Set
Me.fileCRCField = value
End Set
End Property
'''
Public Property FileLength() As Long
Get
Return Me.fileLengthField
End Get
Set
Me.fileLengthField = value
End Set
End Property
'''
Public Property ContentType() As String
Get
Return Me.contentTypeField
End Get
Set
Me.contentTypeField = value
End Set
End Property
'''
Public Property AttStream() As Stream
Get
Return Me.attStreamField
End Get
Set
Me.attStreamField = value
End Set
End Property
End Class
'''
_
Partial Public Class ItemPost
Private idField As Integer
Private msgIDField As Integer
Private htmlField As Boolean
Private subjectField As String
Private contentField As String
'''
Public Property ID() As Integer
Get
Return Me.idField
End Get
Set
Me.idField = value
End Set
End Property
'''
Public Property MsgID() As Integer
Get
Return Me.msgIDField
End Get
Set
Me.msgIDField = value
End Set
End Property
'''
Public Property Html() As Boolean
Get
Return Me.htmlField
End Get
Set
Me.htmlField = value
End Set
End Property
'''
Public Property Subject() As String
Get
Return Me.subjectField
End Get
Set
Me.subjectField = value
End Set
End Property
'''
Public Property Content() As String
Get
Return Me.contentField
End Get
Set
Me.contentField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisItemComment
Inherits ItemPost
Private uIDField As Integer
Private userLoginField As String
Private postedField As Date
Private attachmentsField() As MantisItemAttachment
Private addedAttachmentsField() As MantisItemAttachmentFullDetail
Private deletedAttachmentsField() As MantisItemAttachment
Private vaultChangeSetField As VaultChangeSet
'''
Public Property UID() As Integer
Get
Return Me.uIDField
End Get
Set
Me.uIDField = value
End Set
End Property
'''
Public Property UserLogin() As String
Get
Return Me.userLoginField
End Get
Set
Me.userLoginField = value
End Set
End Property
'''
Public Property Posted() As Date
Get
Return Me.postedField
End Get
Set
Me.postedField = value
End Set
End Property
'''
Public Property Attachments() As MantisItemAttachment()
Get
Return Me.attachmentsField
End Get
Set
Me.attachmentsField = value
End Set
End Property
'''
Public Property AddedAttachments() As MantisItemAttachmentFullDetail()
Get
Return Me.addedAttachmentsField
End Get
Set
Me.addedAttachmentsField = value
End Set
End Property
'''
Public Property DeletedAttachments() As MantisItemAttachment()
Get
Return Me.deletedAttachmentsField
End Get
Set
Me.deletedAttachmentsField = value
End Set
End Property
'''
Public Property VaultChangeSet() As VaultChangeSet
Get
Return Me.vaultChangeSetField
End Get
Set
Me.vaultChangeSetField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisItemBase
Inherits ItemPost
Private typeIDField As Integer
Private platformIDField As Integer
Private descriptionField As String
Private statusIDField As Integer
Private assigneeIDField As Integer
Private resolverIDField As Integer
Private projectIDField As Integer
Private categoryIDField As Integer
Private milestoneIDField As Integer
Private priorityIDField As Integer
Private timeEstimateIDField As Integer
Private createdField As Date
Private lastModifiedField As Date
Private reporterIDField As Integer
Private detailsField As String
Private versionField As String
Private custom1Field As String
Private custom2Field As String
Private lastModifiedUIDField As Integer
Private lastModifiedUserField As String
Private lastCommentedField As Date
Private lastCommentedUIDField As Integer
Private lastCommentedUserField As String
Private itemAccessTypeField As AccessType
'''
Public Property TypeID() As Integer
Get
Return Me.typeIDField
End Get
Set
Me.typeIDField = value
End Set
End Property
'''
Public Property PlatformID() As Integer
Get
Return Me.platformIDField
End Get
Set
Me.platformIDField = value
End Set
End Property
'''
Public Property Description() As String
Get
Return Me.descriptionField
End Get
Set
Me.descriptionField = value
End Set
End Property
'''
Public Property StatusID() As Integer
Get
Return Me.statusIDField
End Get
Set
Me.statusIDField = value
End Set
End Property
'''
Public Property AssigneeID() As Integer
Get
Return Me.assigneeIDField
End Get
Set
Me.assigneeIDField = value
End Set
End Property
'''
Public Property ResolverID() As Integer
Get
Return Me.resolverIDField
End Get
Set
Me.resolverIDField = value
End Set
End Property
'''
Public Property ProjectID() As Integer
Get
Return Me.projectIDField
End Get
Set
Me.projectIDField = value
End Set
End Property
'''
Public Property CategoryID() As Integer
Get
Return Me.categoryIDField
End Get
Set
Me.categoryIDField = value
End Set
End Property
'''
Public Property MilestoneID() As Integer
Get
Return Me.milestoneIDField
End Get
Set
Me.milestoneIDField = value
End Set
End Property
'''
Public Property PriorityID() As Integer
Get
Return Me.priorityIDField
End Get
Set
Me.priorityIDField = value
End Set
End Property
'''
Public Property TimeEstimateID() As Integer
Get
Return Me.timeEstimateIDField
End Get
Set
Me.timeEstimateIDField = value
End Set
End Property
'''
Public Property Created() As Date
Get
Return Me.createdField
End Get
Set
Me.createdField = value
End Set
End Property
'''
Public Property LastModified() As Date
Get
Return Me.lastModifiedField
End Get
Set
Me.lastModifiedField = value
End Set
End Property
'''
Public Property ReporterID() As Integer
Get
Return Me.reporterIDField
End Get
Set
Me.reporterIDField = value
End Set
End Property
'''
Public Property Details() As String
Get
Return Me.detailsField
End Get
Set
Me.detailsField = value
End Set
End Property
'''
Public Property Version() As String
Get
Return Me.versionField
End Get
Set
Me.versionField = value
End Set
End Property
'''
Public Property Custom1() As String
Get
Return Me.custom1Field
End Get
Set
Me.custom1Field = value
End Set
End Property
'''
Public Property Custom2() As String
Get
Return Me.custom2Field
End Get
Set
Me.custom2Field = value
End Set
End Property
'''
Public Property LastModifiedUID() As Integer
Get
Return Me.lastModifiedUIDField
End Get
Set
Me.lastModifiedUIDField = value
End Set
End Property
'''
Public Property LastModifiedUser() As String
Get
Return Me.lastModifiedUserField
End Get
Set
Me.lastModifiedUserField = value
End Set
End Property
'''
Public Property LastCommented() As Date
Get
Return Me.lastCommentedField
End Get
Set
Me.lastCommentedField = value
End Set
End Property
'''
Public Property LastCommentedUID() As Integer
Get
Return Me.lastCommentedUIDField
End Get
Set
Me.lastCommentedUIDField = value
End Set
End Property
'''
Public Property LastCommentedUser() As String
Get
Return Me.lastCommentedUserField
End Get
Set
Me.lastCommentedUserField = value
End Set
End Property
'''
Public Property ItemAccessType() As AccessType
Get
Return Me.itemAccessTypeField
End Get
Set
Me.itemAccessTypeField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisItemExpanded
Inherits MantisItemBase
Private typeField As String
Private statusField As String
Private assigneeField As String
Private resolverField As String
Private projectField As String
Private categoryField As String
Private milestoneField As String
Private priorityField As String
Private platformField As String
Private timeEstimateField As String
Private reporterField As String
Private milestoneDateField As Date
Private timeEstimateHoursField As Integer
'''
Public Property Type() As String
Get
Return Me.typeField
End Get
Set
Me.typeField = value
End Set
End Property
'''
Public Property Status() As String
Get
Return Me.statusField
End Get
Set
Me.statusField = value
End Set
End Property
'''
Public Property Assignee() As String
Get
Return Me.assigneeField
End Get
Set
Me.assigneeField = value
End Set
End Property
'''
Public Property Resolver() As String
Get
Return Me.resolverField
End Get
Set
Me.resolverField = value
End Set
End Property
'''
Public Property Project() As String
Get
Return Me.projectField
End Get
Set
Me.projectField = value
End Set
End Property
'''
Public Property Category() As String
Get
Return Me.categoryField
End Get
Set
Me.categoryField = value
End Set
End Property
'''
Public Property Milestone() As String
Get
Return Me.milestoneField
End Get
Set
Me.milestoneField = value
End Set
End Property
'''
Public Property Priority() As String
Get
Return Me.priorityField
End Get
Set
Me.priorityField = value
End Set
End Property
'''
Public Property Platform() As String
Get
Return Me.platformField
End Get
Set
Me.platformField = value
End Set
End Property
'''
Public Property TimeEstimate() As String
Get
Return Me.timeEstimateField
End Get
Set
Me.timeEstimateField = value
End Set
End Property
'''
Public Property Reporter() As String
Get
Return Me.reporterField
End Get
Set
Me.reporterField = value
End Set
End Property
'''
Public Property MilestoneDate() As Date
Get
Return Me.milestoneDateField
End Get
Set
Me.milestoneDateField = value
End Set
End Property
'''
Public Property TimeEstimateHours() As Integer
Get
Return Me.timeEstimateHoursField
End Get
Set
Me.timeEstimateHoursField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisItemFullDetail
Inherits MantisItemExpanded
Private attachmentsField() As MantisItemAttachment
Private commentsField() As MantisItemComment
'''
Public Property Attachments() As MantisItemAttachment()
Get
Return Me.attachmentsField
End Get
Set
Me.attachmentsField = value
End Set
End Property
'''
Public Property Comments() As MantisItemComment()
Get
Return Me.commentsField
End Get
Set
Me.commentsField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisItem
Inherits MantisItemBase
Private changeCommentField As MantisItemComment
Private addedAttachmentsField() As MantisItemAttachmentFullDetail
Private deletedAttachmentsField() As MantisItemAttachment
'''
Public Property ChangeComment() As MantisItemComment
Get
Return Me.changeCommentField
End Get
Set
Me.changeCommentField = value
End Set
End Property
'''
Public Property AddedAttachments() As MantisItemAttachmentFullDetail()
Get
Return Me.addedAttachmentsField
End Get
Set
Me.addedAttachmentsField = value
End Set
End Property
'''
Public Property DeletedAttachments() As MantisItemAttachment()
Get
Return Me.deletedAttachmentsField
End Get
Set
Me.deletedAttachmentsField = value
End Set
End Property
End Class
'''
_
Partial Public Class MilestoneAaG
Private milestoneIDField As Integer
Private milestoneField As String
Private openItemsField As Integer
Private unresolvedItemsField As Integer
Private hoursRemainingField As Long
Private notEstimatedField As Integer
Private urgentField As Integer
Private unassignedAssigneeField As Integer
Private unassignedResolverField As Integer
Private myOpenItemsField As Integer
Private myUnresolvedItemsField As Integer
'''
Public Property MilestoneID() As Integer
Get
Return Me.milestoneIDField
End Get
Set
Me.milestoneIDField = value
End Set
End Property
'''
Public Property Milestone() As String
Get
Return Me.milestoneField
End Get
Set
Me.milestoneField = value
End Set
End Property
'''
Public Property OpenItems() As Integer
Get
Return Me.openItemsField
End Get
Set
Me.openItemsField = value
End Set
End Property
'''
Public Property UnresolvedItems() As Integer
Get
Return Me.unresolvedItemsField
End Get
Set
Me.unresolvedItemsField = value
End Set
End Property
'''
Public Property HoursRemaining() As Long
Get
Return Me.hoursRemainingField
End Get
Set
Me.hoursRemainingField = value
End Set
End Property
'''
Public Property NotEstimated() As Integer
Get
Return Me.notEstimatedField
End Get
Set
Me.notEstimatedField = value
End Set
End Property
'''
Public Property Urgent() As Integer
Get
Return Me.urgentField
End Get
Set
Me.urgentField = value
End Set
End Property
'''
Public Property UnassignedAssignee() As Integer
Get
Return Me.unassignedAssigneeField
End Get
Set
Me.unassignedAssigneeField = value
End Set
End Property
'''
Public Property UnassignedResolver() As Integer
Get
Return Me.unassignedResolverField
End Get
Set
Me.unassignedResolverField = value
End Set
End Property
'''
Public Property MyOpenItems() As Integer
Get
Return Me.myOpenItemsField
End Get
Set
Me.myOpenItemsField = value
End Set
End Property
'''
Public Property MyUnresolvedItems() As Integer
Get
Return Me.myUnresolvedItemsField
End Get
Set
Me.myUnresolvedItemsField = value
End Set
End Property
End Class
'''
_
Partial Public Class SummaryItem
End Class
'''
_
Partial Public Class MilestoneSummary
Private milestoneIDField As Integer
Private milestoneField As String
Private goalDateField As Date
Private summaryRowsField() As SummaryItem
'''
Public Property MilestoneID() As Integer
Get
Return Me.milestoneIDField
End Get
Set
Me.milestoneIDField = value
End Set
End Property
'''
Public Property Milestone() As String
Get
Return Me.milestoneField
End Get
Set
Me.milestoneField = value
End Set
End Property
'''
Public Property GoalDate() As Date
Get
Return Me.goalDateField
End Get
Set
Me.goalDateField = value
End Set
End Property
'''
Public Property SummaryRows() As SummaryItem()
Get
Return Me.summaryRowsField
End Get
Set
Me.summaryRowsField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisCustomLabel
Private idField As Integer
Private labelField As String
Private useWithExternalSubmissionField As Boolean
Private requiredFieldField As Boolean
'''
Public Property ID() As Integer
Get
Return Me.idField
End Get
Set
Me.idField = value
End Set
End Property
'''
Public Property Label() As String
Get
Return Me.labelField
End Get
Set
Me.labelField = value
End Set
End Property
'''
Public Property UseWithExternalSubmission() As Boolean
Get
Return Me.useWithExternalSubmissionField
End Get
Set
Me.useWithExternalSubmissionField = value
End Set
End Property
'''
Public Property RequiredField() As Boolean
Get
Return Me.requiredFieldField
End Get
Set
Me.requiredFieldField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisTimeEstimate
Private hoursField As Integer
Private idField As Integer
Private labelField As String
Private statusField As DbStatus
'''
Public Property Hours() As Integer
Get
Return Me.hoursField
End Get
Set
Me.hoursField = value
End Set
End Property
'''
Public Property ID() As Integer
Get
Return Me.idField
End Get
Set
Me.idField = value
End Set
End Property
'''
Public Property Label() As String
Get
Return Me.labelField
End Get
Set
Me.labelField = value
End Set
End Property
'''
Public Property Status() As DbStatus
Get
Return Me.statusField
End Get
Set
Me.statusField = value
End Set
End Property
End Class
'''
_
Public Enum DbStatus
'''
Inactive
'''
System
'''
User
End Enum
'''
_
Partial Public Class MantisItemType
Private idField As Integer
Private labelField As String
Private statusField As DbStatus
'''
Public Property ID() As Integer
Get
Return Me.idField
End Get
Set
Me.idField = value
End Set
End Property
'''
Public Property Label() As String
Get
Return Me.labelField
End Get
Set
Me.labelField = value
End Set
End Property
'''
Public Property Status() As DbStatus
Get
Return Me.statusField
End Get
Set
Me.statusField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisPlatform
Private idField As Integer
Private labelField As String
Private statusField As DbStatus
'''
Public Property ID() As Integer
Get
Return Me.idField
End Get
Set
Me.idField = value
End Set
End Property
'''
Public Property Label() As String
Get
Return Me.labelField
End Get
Set
Me.labelField = value
End Set
End Property
'''
Public Property Status() As DbStatus
Get
Return Me.statusField
End Get
Set
Me.statusField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisStatus
Private idField As Integer
Private labelField As String
Private statusField As DbStatus
'''
Public Property ID() As Integer
Get
Return Me.idField
End Get
Set
Me.idField = value
End Set
End Property
'''
Public Property Label() As String
Get
Return Me.labelField
End Get
Set
Me.labelField = value
End Set
End Property
'''
Public Property Status() As DbStatus
Get
Return Me.statusField
End Get
Set
Me.statusField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisPriority
Private idField As Integer
Private labelField As String
Private statusField As DbStatus
'''
Public Property ID() As Integer
Get
Return Me.idField
End Get
Set
Me.idField = value
End Set
End Property
'''
Public Property Label() As String
Get
Return Me.labelField
End Get
Set
Me.labelField = value
End Set
End Property
'''
Public Property Status() As DbStatus
Get
Return Me.statusField
End Get
Set
Me.statusField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisCategory
Private idField As Integer
Private labelField As String
Private developerIDField As Integer
Private resolverIDField As Integer
Private projectIDField As Integer
Private projectNameField As String
Private developerNameField As String
Private resolverNameField As String
'''
Public Property ID() As Integer
Get
Return Me.idField
End Get
Set
Me.idField = value
End Set
End Property
'''
Public Property Label() As String
Get
Return Me.labelField
End Get
Set
Me.labelField = value
End Set
End Property
'''
Public Property DeveloperID() As Integer
Get
Return Me.developerIDField
End Get
Set
Me.developerIDField = value
End Set
End Property
'''
Public Property ResolverID() As Integer
Get
Return Me.resolverIDField
End Get
Set
Me.resolverIDField = value
End Set
End Property
'''
Public Property ProjectID() As Integer
Get
Return Me.projectIDField
End Get
Set
Me.projectIDField = value
End Set
End Property
'''
Public Property ProjectName() As String
Get
Return Me.projectNameField
End Get
Set
Me.projectNameField = value
End Set
End Property
'''
Public Property DeveloperName() As String
Get
Return Me.developerNameField
End Get
Set
Me.developerNameField = value
End Set
End Property
'''
Public Property ResolverName() As String
Get
Return Me.resolverNameField
End Get
Set
Me.resolverNameField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisMilestone
Private idField As Integer
Private nameField As String
Private descriptionField As String
Private goalDateField As Date
Private activeField As Boolean
Private projectIDField As Integer
'''
Public Property ID() As Integer
Get
Return Me.idField
End Get
Set
Me.idField = value
End Set
End Property
'''
Public Property Name() As String
Get
Return Me.nameField
End Get
Set
Me.nameField = value
End Set
End Property
'''
Public Property Description() As String
Get
Return Me.descriptionField
End Get
Set
Me.descriptionField = value
End Set
End Property
'''
Public Property GoalDate() As Date
Get
Return Me.goalDateField
End Get
Set
Me.goalDateField = value
End Set
End Property
'''
Public Property Active() As Boolean
Get
Return Me.activeField
End Get
Set
Me.activeField = value
End Set
End Property
'''
Public Property ProjectID() As Integer
Get
Return Me.projectIDField
End Get
Set
Me.projectIDField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisProject
Private nameField As String
Private descriptionField As String
Private publicGroupsField() As MantisGroup
Private activeField As Boolean
Private allowPublicItemsField As Boolean
Private allowExternalSubmissionField As Boolean
Private idField As Integer
'''
Public Property Name() As String
Get
Return Me.nameField
End Get
Set
Me.nameField = value
End Set
End Property
'''
Public Property Description() As String
Get
Return Me.descriptionField
End Get
Set
Me.descriptionField = value
End Set
End Property
'''
Public Property PublicGroups() As MantisGroup()
Get
Return Me.publicGroupsField
End Get
Set
Me.publicGroupsField = value
End Set
End Property
'''
Public Property Active() As Boolean
Get
Return Me.activeField
End Get
Set
Me.activeField = value
End Set
End Property
'''
Public Property AllowPublicItems() As Boolean
Get
Return Me.allowPublicItemsField
End Get
Set
Me.allowPublicItemsField = value
End Set
End Property
'''
Public Property AllowExternalSubmission() As Boolean
Get
Return Me.allowExternalSubmissionField
End Get
Set
Me.allowExternalSubmissionField = value
End Set
End Property
'''
Public Property ID() As Integer
Get
Return Me.idField
End Get
Set
Me.idField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisGroup
Private idField As Integer
Private nameField As String
Private descriptionField As String
Private membersField() As MantisUser
Private projectIDField As Integer
Private projectNameField As String
Private statusField As DbStatus
'''
Public Property ID() As Integer
Get
Return Me.idField
End Get
Set
Me.idField = value
End Set
End Property
'''
Public Property Name() As String
Get
Return Me.nameField
End Get
Set
Me.nameField = value
End Set
End Property
'''
Public Property Description() As String
Get
Return Me.descriptionField
End Get
Set
Me.descriptionField = value
End Set
End Property
'''
Public Property Members() As MantisUser()
Get
Return Me.membersField
End Get
Set
Me.membersField = value
End Set
End Property
'''
Public Property ProjectID() As Integer
Get
Return Me.projectIDField
End Get
Set
Me.projectIDField = value
End Set
End Property
'''
Public Property ProjectName() As String
Get
Return Me.projectNameField
End Get
Set
Me.projectNameField = value
End Set
End Property
'''
Public Property Status() As DbStatus
Get
Return Me.statusField
End Get
Set
Me.statusField = value
End Set
End Property
End Class
'''
_
Partial Public Class MantisUser
Private idField As Integer
Private loginField As String
Private nameField As String
Private emailField As String
Private passwordField As String
Private authSchemeField As Integer
Private htmlEmailField As Boolean
Private defaultProjectField As Integer
Private activeField As Boolean
Private groupsField() As MantisGroup
'''
Public Property ID() As Integer
Get
Return Me.idField
End Get
Set
Me.idField = value
End Set
End Property
'''
Public Property Login() As String
Get
Return Me.loginField
End Get
Set
Me.loginField = value
End Set
End Property
'''
Public Property Name() As String
Get
Return Me.nameField
End Get
Set
Me.nameField = value
End Set
End Property
'''
Public Property Email() As String
Get
Return Me.emailField
End Get
Set
Me.emailField = value
End Set
End Property
'''
Public Property Password() As String
Get
Return Me.passwordField
End Get
Set
Me.passwordField = value
End Set
End Property
'''
Public Property AuthScheme() As Integer
Get
Return Me.authSchemeField
End Get
Set
Me.authSchemeField = value
End Set
End Property
'''
Public Property HtmlEmail() As Boolean
Get
Return Me.htmlEmailField
End Get
Set
Me.htmlEmailField = value
End Set
End Property
'''
Public Property DefaultProject() As Integer
Get
Return Me.defaultProjectField
End Get
Set
Me.defaultProjectField = value
End Set
End Property
'''
Public Property Active() As Boolean
Get
Return Me.activeField
End Get
Set
Me.activeField = value
End Set
End Property
'''
Public Property Groups() As MantisGroup()
Get
Return Me.groupsField
End Get
Set
Me.groupsField = value
End Set
End Property
End Class
'''
_
Public Delegate Sub AddUserCompletedEventHandler(ByVal sender As Object, ByVal e As AddUserCompletedEventArgs)
'''
_
Partial Public Class AddUserCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
End Class
'''
_
Public Delegate Sub GetPublicKeyCompletedEventHandler(ByVal sender As Object, ByVal e As GetPublicKeyCompletedEventArgs)
'''
_
Partial Public Class GetPublicKeyCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property publicKey() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Byte())
End Get
End Property
'''
Public ReadOnly Property exponent() As Byte()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),Byte())
End Get
End Property
End Class
'''
_
Public Delegate Sub LoginCompletedEventHandler(ByVal sender As Object, ByVal e As LoginCompletedEventArgs)
'''
_
Partial Public Class LoginCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property strAuthTicket() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String)
End Get
End Property
End Class
'''
_
Public Delegate Sub LoginPlainTextCompletedEventHandler(ByVal sender As Object, ByVal e As LoginPlainTextCompletedEventArgs)
'''
_
Partial Public Class LoginPlainTextCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property strAuthTicket() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String)
End Get
End Property
End Class
'''
_
Public Delegate Sub CheckLoggedInCompletedEventHandler(ByVal sender As Object, ByVal e As CheckLoggedInCompletedEventArgs)
'''
_
Partial Public Class CheckLoggedInCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Boolean
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Boolean)
End Get
End Property
End Class
'''
_
Public Delegate Sub LogoutCompletedEventHandler(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
'''
_
Public Delegate Sub ListProjectsCompletedEventHandler(ByVal sender As Object, ByVal e As ListProjectsCompletedEventArgs)
'''
_
Partial Public Class ListProjectsCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property mProjects() As MantisProject()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisProject())
End Get
End Property
End Class
'''
_
Public Delegate Sub ListUsersCompletedEventHandler(ByVal sender As Object, ByVal e As ListUsersCompletedEventArgs)
'''
_
Partial Public Class ListUsersCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property mUsers() As MantisUser()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisUser())
End Get
End Property
End Class
'''
_
Public Delegate Sub ListMilestonesCompletedEventHandler(ByVal sender As Object, ByVal e As ListMilestonesCompletedEventArgs)
'''
_
Partial Public Class ListMilestonesCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property mMilestones() As MantisMilestone()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisMilestone())
End Get
End Property
End Class
'''
_
Public Delegate Sub ListCategoriesCompletedEventHandler(ByVal sender As Object, ByVal e As ListCategoriesCompletedEventArgs)
'''
_
Partial Public Class ListCategoriesCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property mCategories() As MantisCategory()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisCategory())
End Get
End Property
End Class
'''
_
Public Delegate Sub ListGroupsCompletedEventHandler(ByVal sender As Object, ByVal e As ListGroupsCompletedEventArgs)
'''
_
Partial Public Class ListGroupsCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property mGroups() As MantisGroup()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisGroup())
End Get
End Property
End Class
'''
_
Public Delegate Sub ListPrioritiesCompletedEventHandler(ByVal sender As Object, ByVal e As ListPrioritiesCompletedEventArgs)
'''
_
Partial Public Class ListPrioritiesCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property priorities() As MantisPriority()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisPriority())
End Get
End Property
End Class
'''
_
Public Delegate Sub ListStatusValuesCompletedEventHandler(ByVal sender As Object, ByVal e As ListStatusValuesCompletedEventArgs)
'''
_
Partial Public Class ListStatusValuesCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property statusValues() As MantisStatus()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisStatus())
End Get
End Property
End Class
'''
_
Public Delegate Sub ListPlatformsCompletedEventHandler(ByVal sender As Object, ByVal e As ListPlatformsCompletedEventArgs)
'''
_
Partial Public Class ListPlatformsCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property platforms() As MantisPlatform()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisPlatform())
End Get
End Property
End Class
'''
_
Public Delegate Sub ListTypesCompletedEventHandler(ByVal sender As Object, ByVal e As ListTypesCompletedEventArgs)
'''
_
Partial Public Class ListTypesCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property types() As MantisItemType()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisItemType())
End Get
End Property
End Class
'''
_
Public Delegate Sub ListTimeEstimateValuesCompletedEventHandler(ByVal sender As Object, ByVal e As ListTimeEstimateValuesCompletedEventArgs)
'''
_
Partial Public Class ListTimeEstimateValuesCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property timeEstimates() As MantisTimeEstimate()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisTimeEstimate())
End Get
End Property
End Class
'''
_
Public Delegate Sub ListCustomLabelsCompletedEventHandler(ByVal sender As Object, ByVal e As ListCustomLabelsCompletedEventArgs)
'''
_
Partial Public Class ListCustomLabelsCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property values() As MantisCustomLabel()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisCustomLabel())
End Get
End Property
End Class
'''
_
Public Delegate Sub ListSummariesCompletedEventHandler(ByVal sender As Object, ByVal e As ListSummariesCompletedEventArgs)
'''
_
Partial Public Class ListSummariesCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property summaries() As MilestoneSummary()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MilestoneSummary())
End Get
End Property
End Class
'''
_
Public Delegate Sub ListAtAGlanceCompletedEventHandler(ByVal sender As Object, ByVal e As ListAtAGlanceCompletedEventArgs)
'''
_
Partial Public Class ListAtAGlanceCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property ataglance() As MilestoneAaG()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MilestoneAaG())
End Get
End Property
End Class
'''
_
Public Delegate Sub IsItemIDValidCompletedEventHandler(ByVal sender As Object, ByVal e As IsItemIDValidCompletedEventArgs)
'''
_
Partial Public Class IsItemIDValidCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Boolean
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Boolean)
End Get
End Property
End Class
'''
_
Public Delegate Sub ListItemForEditCompletedEventHandler(ByVal sender As Object, ByVal e As ListItemForEditCompletedEventArgs)
'''
_
Partial Public Class ListItemForEditCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property item() As MantisItem
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisItem)
End Get
End Property
End Class
'''
_
Public Delegate Sub ListItemFullDetailsCompletedEventHandler(ByVal sender As Object, ByVal e As ListItemFullDetailsCompletedEventArgs)
'''
_
Partial Public Class ListItemFullDetailsCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property mItem() As MantisItemFullDetail
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisItemFullDetail)
End Get
End Property
End Class
'''
_
Public Delegate Sub ListOpenItemsCompletedEventHandler(ByVal sender As Object, ByVal e As ListOpenItemsCompletedEventArgs)
'''
_
Partial Public Class ListOpenItemsCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property meiColl() As MantisItemExpanded()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisItemExpanded())
End Get
End Property
End Class
'''
_
Public Delegate Sub ListMyOpenItemsCompletedEventHandler(ByVal sender As Object, ByVal e As ListMyOpenItemsCompletedEventArgs)
'''
_
Partial Public Class ListMyOpenItemsCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property meiColl() As MantisItemExpanded()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisItemExpanded())
End Get
End Property
End Class
'''
_
Public Delegate Sub ListAttachmentInfoCompletedEventHandler(ByVal sender As Object, ByVal e As ListAttachmentInfoCompletedEventArgs)
'''
_
Partial Public Class ListAttachmentInfoCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property maifd() As MantisItemAttachmentFullDetail
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisItemAttachmentFullDetail)
End Get
End Property
End Class
'''
_
Public Delegate Sub ListItemAuditCompletedEventHandler(ByVal sender As Object, ByVal e As ListItemAuditCompletedEventArgs)
'''
_
Partial Public Class ListItemAuditCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property auditTrail() As AuditTrail()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),AuditTrail())
End Get
End Property
End Class
'''
_
Public Delegate Sub QueryItemsCompletedEventHandler(ByVal sender As Object, ByVal e As QueryItemsCompletedEventArgs)
'''
_
Partial Public Class QueryItemsCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''
Public ReadOnly Property items() As MantisItemExpanded()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),MantisItemExpanded())
End Get
End Property
End Class
'''
_
Public Delegate Sub ModifyItemFromSCCCompletedEventHandler(ByVal sender As Object, ByVal e As ModifyItemFromSCCCompletedEventArgs)
'''
_
Partial Public Class ModifyItemFromSCCCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
End Class
'''
_
Public Delegate Sub ModifyItemCompletedEventHandler(ByVal sender As Object, ByVal e As ModifyItemCompletedEventArgs)
'''
_
Partial Public Class ModifyItemCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
End Class
'''
_
Public Delegate Sub AddItemCompletedEventHandler(ByVal sender As Object, ByVal e As AddItemCompletedEventArgs)
'''
_
Partial Public Class AddItemCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
End Class
'''
_
Public Delegate Sub AddItemExternalCompletedEventHandler(ByVal sender As Object, ByVal e As AddItemExternalCompletedEventArgs)
'''
_
Partial Public Class AddItemExternalCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
End Class
'''
_
Public Delegate Sub UpdateItemsFromSCCCompletedEventHandler(ByVal sender As Object, ByVal e As UpdateItemsFromSCCCompletedEventArgs)
'''
_
Partial Public Class UpdateItemsFromSCCCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer())
End Get
End Property
End Class
'''
_
Public Delegate Sub BatchModifyItemsCompletedEventHandler(ByVal sender As Object, ByVal e As BatchModifyItemsCompletedEventArgs)
'''
_
Partial Public Class BatchModifyItemsCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
End Class
'''
_
Public Delegate Sub AddCheckinCommentsCompletedEventHandler(ByVal sender As Object, ByVal e As AddCheckinCommentsCompletedEventArgs)
'''
_
Partial Public Class AddCheckinCommentsCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer()
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer())
End Get
End Property
End Class
'''
_
Public Delegate Sub AddItemCommentCompletedEventHandler(ByVal sender As Object, ByVal e As AddItemCommentCompletedEventArgs)
'''
_
Partial Public Class AddItemCommentCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
End Class
'''
_
Public Delegate Sub ModifyItemCommentCompletedEventHandler(ByVal sender As Object, ByVal e As ModifyItemCommentCompletedEventArgs)
'''
_
Partial Public Class ModifyItemCommentCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
End Class
'''
_
Public Delegate Sub DeleteItemCommentCompletedEventHandler(ByVal sender As Object, ByVal e As DeleteItemCommentCompletedEventArgs)
'''
_
Partial Public Class DeleteItemCommentCompletedEventArgs
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
'''
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
End Class
End Namespace