VB icon

Classes in VBScript

Submitted on: 1/5/2015 7:30:00 PM
By: jgitfgoh (from psc cd)  
Level: Beginner
User Rating: By 6 Users
Compatibility: ASP (Active Server Pages), VbScript (browser/client side)
Views: 4423
     This code will allow you to use classes in VBSccript versions 5.0 and higher
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
' Name: Classes in VBScript
' Description:This code will allow you to use classes in VBSccript versions 5.0 and higher
' By: jgitfgoh (from psc cd)

'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

Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Beginner category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)

Other User Comments

 There are no comments on this submission.

Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)

To post feedback, first please login.