|
' ******************************************************************************
' **
' ** Yahoo Finance Managed
' ** Written by Marius Häusler 2010
' ** It would be pleasant, if you contact me when you are using this code.
' ** Contact: YahooFinanceManaged@gmail.com
' ** Project Home: http://code.google.com/p/yahoo-finance-managed/
' **
' ******************************************************************************
' **
' ** Copyright 2010 Marius Häusler
' **
' ** Licensed under the Apache License, Version 2.0 (the "License");
' ** you may not use this file except in compliance with the License.
' ** You may obtain a copy of the License at
' **
' ** http://www.apache.org/licenses/LICENSE-2.0
' **
' ** Unless required by applicable law or agreed to in writing, software
' ** distributed under the License is distributed on an "AS IS" BASIS,
' ** WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
' ** See the License for the specific language governing permissions and
' ** limitations under the License.
' **
' ******************************************************************************
Namespace Finance
''' <summary>
''' Stores the range of an alphabetical list
''' </summary>
''' <remarks></remarks>
Public Class IDListRangeData
Private mValue As String = String.Empty
Private mLink As String = String.Empty
Private mServer As Server = Server.USA
''' <summary>
''' The range of the list
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Value() As String
Get
Return mValue
End Get
End Property
Friend ReadOnly Property Link() As String
Get
Return mLink
End Get
End Property
Friend ReadOnly Property Server() As Server
Get
Return mServer
End Get
End Property
Friend Sub New(ByVal value As String, ByVal link As String, ByVal server As Server)
mValue = value
mLink = link
mServer = server
End Sub
End Class
''' <summary>
''' Stores the subrange of an alphabetical list
''' </summary>
''' <remarks></remarks>
Public Class IDListSubRangeData
Private mValue As String = String.Empty
Private mLink As String = String.Empty
Private mServer As Server = Server.USA
''' <summary>
''' The sub range of the list
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Value() As String
Get
Return mValue
End Get
End Property
Friend ReadOnly Property Link() As String
Get
Return mLink
End Get
End Property
Friend ReadOnly Property Server() As Server
Get
Return mServer
End Get
End Property
Friend Sub New(ByVal value As String, ByVal link As String, ByVal server As Server)
mValue = value
mLink = link
mServer = server
End Sub
End Class
End Namespace
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.