Classes

(Home)
Top 4 Resources
Resource  
Resource  
Resource  
Resource  
Quick Reference
Access Option Compare Database
Option Explicit

Public UserID as String
Public password as String
Public Application as Integer
ASp.Net  Public Class clsVariable

Private Shared m_myValue1 As Integer
Private Shared m_myValue2 As Integer
Private Shared m_myValue3 As Integer
Private Shared m_myValue4 As String
Private Shared m_myValue5 As String
Private Shared m_myValue6 As Integer
Private Shared m_myValue7 As Integer
Private Shared m_myValue8 As Integer
Private Shared m_myValue9 As String
Private Shared m_myValue10 As Integer

Public Property ModPointer() As Integer
Get
Return m_myValue1
End Get
Set(ByVal Value As Integer)
m_myValue1 = Value
End Set
End Property

Public Property InPointer() As Integer
Get
Return m_myValue6
End Get
Set(ByVal Value As Integer)
m_myValue6 = Value
End Set
End Property

Public Property ExtPointer() As Integer
Get
Return m_myValue7
End Get
Set(ByVal Value As Integer)
m_myValue7 = Value
End Set
End Property

Public Property TekPointer() As Integer
Get
Return m_myValue8
End Get
Set(ByVal Value As Integer)
m_myValue8 = Value
End Set
End Property

Public Property PcPointer() As String
Get
Return m_myValue9
End Get
Set(ByVal Value As String)
m_myValue9 = Value
End Set
End Property

Public Property EcPointer() As Integer
Get
Return m_myValue10
End Get
Set(ByVal Value As Integer)
m_myValue10 = Value
End Set
End Property


Public Property Report_ProblemCode() As String
Get
Return m_myValue4
End Get
Set(ByVal Value As String)
m_myValue4 = Value
End Set
End Property

Public Property Report_Tech() As String
Get
Return m_myValue5
End Get
Set(ByVal Value As String)
m_myValue5 = Value
End Set
End Property

Public Property SortBy() As Integer
Get
Return m_myValue2
End Get
Set(ByVal Value As Integer)
m_myValue2 = Value
End Set
End Property

Public Property ReportNumber() As Integer
Get
Return m_myValue3
End Get
Set(ByVal Value As Integer)
m_myValue3 = Value
End Set
End Property

End Class
Errors