moonhk

Hi All

How to initial class to run initial procedure ?

class Account
dim Username
dim Usernamepassword
dim Domain
dim objshell
sub init
Set objshell = CreateObject("Wscript.shell")
Username = objshell.ExpandEnvironmentStrings("%me%")
Usernamepassword = objshell.ExpandEnvironmentStrings("%mepw%")
end class


set myAccount = new Account
myAccount.init() <= can able to skip this line ?

When set xxx = new Account , the auto run initial procedure

al dunbar

I'm a bit rusty, but I think all you need do is to create a sub with no
parameters named class_initialize, and it will be invoked whenever a new
instance is created.

/Al

moonhk

Thank. it works.