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' Licensed to the Apache Software Foundation (ASF) under one 13' or more contributor license agreements. See the NOTICE file 14' distributed with this work for additional information 15' regarding copyright ownership. The ASF licenses this file 16' to you under the Apache License, Version 2.0 (the 17' "License"); you may not use this file except in compliance 18' with the License. You may obtain a copy of the License at 19' 20' http://www.apache.org/licenses/LICENSE-2.0 21' 22' Unless required by applicable law or agreed to in writing, 23' software distributed under the License is distributed on an 24' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 25' KIND, either express or implied. See the License for the 26' specific language governing permissions and limitations 27' under the License. 28' 29'************************************************************************* 30 31Option Explicit 32 33Private mIssueID As Integer 34Private mIssueType As String 35Private mSubType As String 36Private mIssueTypeXML As String 37Private mSubTypeXML As String 38Private mLocationXML As String 39Private mLocation As String 40Private mSubLocation As Variant 41Private mLine As Long 42Private mColumn As Variant 43Private mAttributes As Collection 44Private mValues As Collection 45Private mPreparable As Boolean 46 47'General Constants 48Public Property Get CLocationDocument() As String 49 CLocationDocument = RID_STR_COMMON_RESULTS_LOCATION_TYPE_DOCUMENT 50End Property 51Public Property Get CLocationPage() As String 52 CLocationPage = RID_STR_COMMON_RESULTS_LOCATION_TYPE_PAGE 53End Property 54Public Property Get CLocationWorkBook() As String 55 CLocationWorkBook = RID_STR_COMMON_RESULTS_LOCATION_TYPE_WORKBOOK 56End Property 57Public Property Get CLocationSheet() As String 58 CLocationSheet = RID_STR_COMMON_RESULTS_LOCATION_TYPE_SHEET 59End Property 60Public Property Get CLocationPresentation() As String 61 CLocationPresentation = RID_STR_COMMON_RESULTS_LOCATION_TYPE_PRESENTATION 62End Property 63Public Property Get CLocationSlide() As String 64 CLocationSlide = RID_STR_COMMON_RESULTS_LOCATION_TYPE_SLIDE 65End Property 66 67'General XML Constants - NOT localised 68Public Property Get CXMLLocationDocument() As String 69 CXMLLocationDocument = "Document" 70End Property 71Public Property Get CXMLLocationPage() As String 72 CXMLLocationPage = "Page" 73End Property 74Public Property Get CXMLLocationWorkBook() As String 75 CXMLLocationWorkBook = "Workbook" 76End Property 77Public Property Get CXMLLocationSheet() As String 78 CXMLLocationSheet = "Sheet" 79End Property 80Public Property Get CXMLLocationPresentation() As String 81 CXMLLocationPresentation = "Presentation" 82End Property 83Public Property Get CXMLLocationSlide() As String 84 CXMLLocationSlide = "Slide" 85End Property 86 87'Settable Properties 88Public Property Get IssueID() As Integer 89 IssueID = mIssueID 90End Property 91 92Public Property Let IssueID(ByVal vNewValue As Integer) 93 mIssueID = vNewValue 94End Property 95Public Property Get IssueType() As String 96 IssueType = mIssueType 97End Property 98 99Public Property Let IssueType(ByVal vNewValue As String) 100 mIssueType = vNewValue 101End Property 102Public Property Get IssueTypeXML() As String 103 IssueTypeXML = mIssueTypeXML 104End Property 105 106Public Property Let IssueTypeXML(ByVal vNewValue As String) 107 mIssueTypeXML = vNewValue 108End Property 109Public Property Get SubType() As String 110 SubType = mSubType 111End Property 112 113Public Property Let SubType(ByVal vNewValue As String) 114 mSubType = vNewValue 115End Property 116Public Property Get SubTypeXML() As String 117 SubTypeXML = mSubTypeXML 118End Property 119 120Public Property Let SubTypeXML(ByVal vNewValue As String) 121 mSubTypeXML = vNewValue 122End Property 123 124Public Property Get Location() As String 125 Location = mLocation 126End Property 127 128Public Property Let Location(ByVal vNewValue As String) 129 mLocation = vNewValue 130End Property 131Public Property Get locationXML() As String 132 locationXML = mLocationXML 133End Property 134 135Public Property Let locationXML(ByVal vNewValue As String) 136 mLocationXML = vNewValue 137End Property 138 139Public Property Get SubLocation() As Variant 140 SubLocation = mSubLocation 141End Property 142 143Public Property Let SubLocation(ByVal vNewValue As Variant) 144 mSubLocation = vNewValue 145End Property 146 147Public Property Get Line() As Long 148 Line = mLine 149End Property 150 151Public Property Let Line(ByVal vNewValue As Long) 152 mLine = vNewValue 153End Property 154Public Property Get column() As Variant 155 column = mColumn 156End Property 157 158Public Property Let column(ByVal vNewValue As Variant) 159 mColumn = vNewValue 160End Property 161 162Public Property Get Attributes() As Collection 163 Set Attributes = mAttributes 164End Property 165 166Public Property Let Attributes(ByVal vNewValue As Collection) 167 Set mAttributes = vNewValue 168End Property 169Public Property Get Values() As Collection 170 Set Values = mValues 171End Property 172 173Public Property Let Values(ByVal vNewValue As Collection) 174 Set mValues = vNewValue 175End Property 176 177Public Property Get Preparable() As Boolean 178 Preparable = mPreparable 179End Property 180 181Public Property Let Preparable(ByVal vNewValue As Boolean) 182 mPreparable = vNewValue 183End Property 184 185 186 187Private Sub Class_Initialize() 188 Set mAttributes = New Collection 189 Set mValues = New Collection 190 mIssueID = -1 191 mLine = -1 192 mColumn = "" 193 mSubLocation = "" 194 mPreparable = False 195End Sub 196Private Sub Class_Terminate() 197 Set mAttributes = Nothing 198 Set mValues = Nothing 199End Sub 200 201