<html> <head> <title>ThaiCreate.Com ASP Class</title> </head> <body> <% Class MyClass Private strFullName Private strFirstName Private strLastName '*** Let Property (รับตัวแปรจาก Properties) ***' Public Property Let FirstName(sFirstName) '*** Property FirstName ***' strFirstName = sFirstName End Property Public Property Let LastName(sLastName) '*** Property LastName ***' strLastName = sLastName End Property '*** Get Property (อ่านตัวแปรจาก Property (strFirstName,strLastName) ) ***' Public Property Get vFirstName vFirstName = strFirstName End Property Public Property Get vLastName vLastName = strLastName End Property '*** Method MyName ***' Public Function MyName strFullName = strFirstName & " " & strLastName Call WriteMyName() MyName = strFullName End Function '*** Method WriteMyName ***' Private Sub WriteMyName Response.write strFullName Response.write "<br>" & vFirstName & " " & vLastName End Sub End Class '*** New Class ***' Dim MyCls,strMyFullName Set MyCls = New MyClass MyCls.FirstName = "Mr.Weerachai" MyCls.LastName = "Nukitram" strMyFullName = MyCls.MyName() 'MyCls.WriteMyName() '*** ไม่สามารถเรียกใช้งานได้ เนื่องจากภายใน Class Private ไว้ ***' Response.write("<hr>") Response.write "strMyFullName = " & strMyFullName %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 00
