1VERSION 1.0 CLASS 2BEGIN 3 MultiUse = -1 'True 4END 5Attribute VB_Name = "IssueInfo" 6Attribute VB_GlobalNameSpace = False 7Attribute VB_Creatable = False 8Attribute VB_PredeclaredId = False 9Attribute VB_Exposed = False 10'/************************************************************************* 11' * 12' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 13' 14' Copyright 2000, 2010 Oracle and/or its affiliates. 15' 16' OpenOffice.org - a multi-platform office productivity suite 17' 18' This file is part of OpenOffice.org. 19' 20' OpenOffice.org is free software: you can redistribute it and/or modify 21' it under the terms of the GNU Lesser General Public License version 3 22' only, as published by the Free Software Foundation. 23' 24' OpenOffice.org is distributed in the hope that it will be useful, 25' but WITHOUT ANY WARRANTY; without even the implied warranty of 26' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 27' GNU Lesser General Public License version 3 for more details 28' (a copy is included in the LICENSE file that accompanied this code). 29' 30' You should have received a copy of the GNU Lesser General Public License 31' version 3 along with OpenOffice.org. If not, see 32' <http://www.openoffice.org/license.html> 33' for a copy of the LGPLv3 License. 34' 35' ************************************************************************/ 36 37Option Explicit 38 39Private mIssueID As Integer 40Private mIssueType As String 41Private mSubType As String 42Private mIssueTypeXML As String 43Private mSubTypeXML As String 44Private mLocationXML As String 45Private mLocation As String 46Private mSubLocation As Variant 47Private mLine As Long 48Private mColumn As Variant 49Private mAttributes As Collection 50Private mValues As Collection 51Private mPreparable As Boolean 52 53'General Constants 54Public Property Get CLocationDocument() As String 55 CLocationDocument = RID_STR_COMMON_RESULTS_LOCATION_TYPE_DOCUMENT 56End Property 57Public Property Get CLocationPage() As String 58 CLocationPage = RID_STR_COMMON_RESULTS_LOCATION_TYPE_PAGE 59End Property 60Public Property Get CLocationWorkBook() As String 61 CLocationWorkBook = RID_STR_COMMON_RESULTS_LOCATION_TYPE_WORKBOOK 62End Property 63Public Property Get CLocationSheet() As String 64 CLocationSheet = RID_STR_COMMON_RESULTS_LOCATION_TYPE_SHEET 65End Property 66Public Property Get CLocationPresentation() As String 67 CLocationPresentation = RID_STR_COMMON_RESULTS_LOCATION_TYPE_PRESENTATION 68End Property 69Public Property Get CLocationSlide() As String 70 CLocationSlide = RID_STR_COMMON_RESULTS_LOCATION_TYPE_SLIDE 71End Property 72 73'General XML Constants - NOT localised 74Public Property Get CXMLLocationDocument() As String 75 CXMLLocationDocument = "Document" 76End Property 77Public Property Get CXMLLocationPage() As String 78 CXMLLocationPage = "Page" 79End Property 80Public Property Get CXMLLocationWorkBook() As String 81 CXMLLocationWorkBook = "Workbook" 82End Property 83Public Property Get CXMLLocationSheet() As String 84 CXMLLocationSheet = "Sheet" 85End Property 86Public Property Get CXMLLocationPresentation() As String 87 CXMLLocationPresentation = "Presentation" 88End Property 89Public Property Get CXMLLocationSlide() As String 90 CXMLLocationSlide = "Slide" 91End Property 92 93'Settable Properties 94Public Property Get IssueID() As Integer 95 IssueID = mIssueID 96End Property 97 98Public Property Let IssueID(ByVal vNewValue As Integer) 99 mIssueID = vNewValue 100End Property 101Public Property Get IssueType() As String 102 IssueType = mIssueType 103End Property 104 105Public Property Let IssueType(ByVal vNewValue As String) 106 mIssueType = vNewValue 107End Property 108Public Property Get IssueTypeXML() As String 109 IssueTypeXML = mIssueTypeXML 110End Property 111 112Public Property Let IssueTypeXML(ByVal vNewValue As String) 113 mIssueTypeXML = vNewValue 114End Property 115Public Property Get SubType() As String 116 SubType = mSubType 117End Property 118 119Public Property Let SubType(ByVal vNewValue As String) 120 mSubType = vNewValue 121End Property 122Public Property Get SubTypeXML() As String 123 SubTypeXML = mSubTypeXML 124End Property 125 126Public Property Let SubTypeXML(ByVal vNewValue As String) 127 mSubTypeXML = vNewValue 128End Property 129 130Public Property Get Location() As String 131 Location = mLocation 132End Property 133 134Public Property Let Location(ByVal vNewValue As String) 135 mLocation = vNewValue 136End Property 137Public Property Get locationXML() As String 138 locationXML = mLocationXML 139End Property 140 141Public Property Let locationXML(ByVal vNewValue As String) 142 mLocationXML = vNewValue 143End Property 144 145Public Property Get SubLocation() As Variant 146 SubLocation = mSubLocation 147End Property 148 149Public Property Let SubLocation(ByVal vNewValue As Variant) 150 mSubLocation = vNewValue 151End Property 152 153Public Property Get Line() As Long 154 Line = mLine 155End Property 156 157Public Property Let Line(ByVal vNewValue As Long) 158 mLine = vNewValue 159End Property 160Public Property Get column() As Variant 161 column = mColumn 162End Property 163 164Public Property Let column(ByVal vNewValue As Variant) 165 mColumn = vNewValue 166End Property 167 168Public Property Get Attributes() As Collection 169 Set Attributes = mAttributes 170End Property 171 172Public Property Let Attributes(ByVal vNewValue As Collection) 173 Set mAttributes = vNewValue 174End Property 175Public Property Get Values() As Collection 176 Set Values = mValues 177End Property 178 179Public Property Let Values(ByVal vNewValue As Collection) 180 Set mValues = vNewValue 181End Property 182 183Public Property Get Preparable() As Boolean 184 Preparable = mPreparable 185End Property 186 187Public Property Let Preparable(ByVal vNewValue As Boolean) 188 mPreparable = vNewValue 189End Property 190 191 192 193Private Sub Class_Initialize() 194 Set mAttributes = New Collection 195 Set mValues = New Collection 196 mIssueID = -1 197 mLine = -1 198 mColumn = "" 199 mSubLocation = "" 200 mPreparable = False 201End Sub 202Private Sub Class_Terminate() 203 Set mAttributes = Nothing 204 Set mValues = Nothing 205End Sub 206 207