VBScript Reference Manual for InduSoft Web Studio

InduSoft Web Studio VBScript Reference Manual
Class
Description Declares the name of a class, as well as a definition of the variables, properties, and methods
that comprise the class
Usage Class classname
statements
End Class
Arguments classname
Required. Name of the Class; follows standard variable naming conventions.
statements
Required. One or more statements that define the variables, properties, and methods of the
Class.
Remarks Within a Class block, members are declared as either Private or Public using the appropriate
declaration statements. Anything declared as Private is visible only within the Class block.
Anything declared as Public is visible within the Class block, as well as by code outside the
Class block. Anything not explicitly declared as either Private or Public is Public by default.
Procedures (either Sub or Function) declared Public within the class block become methods of
the class. Public variables serve as properties of the class, as do properties explicitly declared
using Property Get, Property Let, and Property Set. Default properties and methods for the
class are specified in their declarations using the Default keyword. See the individual declaration
statement topics for information on how this keyword is used. You must instantiate an object to
use it, using the Set command; i.e. Set objname = New classname
See Also Property Get, Property Let, Property Set
Example Class SignOn
Private MyName, MyLevel ‘Variable declaration
Public Property Let UsrName(strName) ‘Set the property value for user name
MyName = strName
End Property
Public Property Let UsrLevel(strLevel) ‘Set the property value for user level
MyLevel = strLevel
End Property
Public Property Get UsrName ‘Return the property value
UsrName = MyName
End Property
Public Property Get UsrLevel ‘Return the property value
UsrLevel = MyLevel
End Property
Public Sub LogOnMsg ‘LogOnMsg is a method. No parameters passed
MsgBox MakeMsg(MyLevel)
EndSub
Private Function MakeMsg(strLevel)
Select Case StrLevel
Case “User”
MakeMsg = “Hello “ & MyName & vbCrLf & “Logged on as “ & MyLevel
Case “Supervisor”
MakeMsg = “Welcome “ & MyName & vbCrLf & “Your level is “ & MyLevel
End Select
End Function
End Class
Dim LogOn
Set LogOn = New SignOn ‘Instantiate the object
With LogOn
.UsrName = “Joe” ‘Set the name property
.UsrLevel = “Supervisor” ‘Set the level property
.LogOnMsg ‘Invoke logon method
End With
Set LogOn = Nothing
InduSoft, Ltd. 173