Skip to content

Instantly share code, notes, and snippets.

Created June 19, 2011 12:52
  • Star 9 You must be signed in to star a gist
  • Fork 2 You must be signed in to fork a gist
Star You must be signed in to star a gist
What would you like to do?
VBScript class constructor parameters
Class Person
Private m_Age
Private m_Name
Public Default Function Init(Name, Age)
m_Name = Name
m_Age = Age
Set Init = Me
End Function
Public Property Get Name
Name = m_Name
End Property
Public Property Let Name(v)
m_Name = v
End Property
Public Property Get Age
Age = m_Age
End Property
Public Property Let Age(v)
m_Age = v
End Property
End Class
Dim TheDude : Set TheDude = (New Person)("John",40)
Copy link

gwarah commented Feb 3, 2017

difference between init() and class_initialize()

option explicit

dim TheDude : Set TheDude = (New foo)("Hendrix",50)

class foo

    private name
    private age

    public Sub show
        wscript.echo "name: " & name
        wscript.echo "age:  " & cstr(age)
    End Sub

    ' runs after Class_Initialize method
    Public default function init(pNome,pAge)
        wscript.echo "debug: init"
        Set Init = Me
    end function

    runs first but arguments are not allowed
    Private Sub Class_Initialize()
        wscript.echo "debug: Class_Initialize"
    End Sub
end class


F:\snippets\vbscripts>cscript teste_class01.vbs
debug: Class_Initialize
debug: init
name: Hendrix
age:  50

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment