'------------------------------------------------------------------------------ ' ' 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