VBS Template

zhaozj2021-02-16  80

Class NIC 'Creates a class named NIC

Private Wawavalue 'creates an internal private variable

Private sub coplass_initialize () 'Defines the initialization event of the class

Response.write ("NIC class is created
")

WAWAVALUE = 1

End Sub

Private sub coplass_terminate 'Set the Terminate event. 'Defining the empty event

Response.write ("
NIC class is emptied"))

End Sub

Public property letrynetynic (Byval NIC_ARG) 'Defines a list attribute of the class.

WAWAVALUE = NIC_ARG

End Property

Public property get protynic () 'Defines a Get property of a class.

Propertynic = nicvalue

End Property

Public Function Functionnic (BYVAL NIC_ARG) 'Defines a method of one class

DIM Name, Value

Name = "nn"

Functionnic = NIC_ARG NAME

END FUNCTION

END CLASS

转载请注明原文地址:https://www.9cbs.com/read-14096.html

New Post(0)