Classes in VBScript

				
'**************************************
' Name: Classes in VBScript
' Description:This code will allow you to use classes in VBSccript versions 5.0 and higher
' By: jgitfgoh
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=6930&lngWId=4'for details.'**************************************

'Declare and define a class using the Class statement:
Class cls
	'Private variable to store data:
	Private m_Prop1
	
	'Propety Prop1:
	'Peoperty Let executes when setting the property
	Public Property Let Prop1(ByVal newVal)
		m_Prop1 = newVal
	End Property
	
	'Property Get executes when reading it
	Public Property Get Prop1()
		Prop1 = m_Prop1
	End Property
	
	'If the type of the property was class type (and not primitive type) we'd use Property Set instead of Property Get. 
Property Let souldn't change.
	
	'Property Prop2:
	'Just a public memeber
	'Can't do range-check, or execute code of any kind
	Public Prop2
	
	'Declare and define methods just as you'd write normal functions:'Method F
	Sub foo(msg)
		MsgBox msg
	End Sub
'End the Class statement
End Class
Sub Main()
	'make o a "New cls", like in VB5/6
	Dim o
	Set o = New cls
	
	'Call a method
	o.foo "my message!"
	
	o.Prop1 = "hello"
	o.Prop2 = "world"
	MsgBox o.Prop1 & " " & o.Prop2 & "!"
End Sub
Main