Cet exemple vous permettra de vous familiariser avec les classes.
Vous créez votre classe, alimentez les propriétés et faites appel à une méthode, etc...
Source / Exemple :
<%
' Création de la classe
class Personne
' Variables locales contenant les valeurs de m_Nom et m_Prenom
Private m_Nom
Private m_Prenom
' Executée pour définir la propriété m_Nom
Public Property Let Nom (vData)
m_Nom = vData
End Property
' Utilisée pour retournée la propriété m_Nom
Public Property Get Nom()
Nom = m_Nom
End Property
' Executée pour définir la propriété m_Prenom
Public Property Let Prenom (vData)
m_Prenom = vData
End Property
' Utilisée pour retournée la propriété m_Prenom
Public Property Get Prenom()
Prenom = m_Prenom
End Property
' On définit la méthode qui permettra d'afficher le nom et prénom de la personne
Public Function Info_Personne()
Info_Personne = m_Nom & " " & m_Prenom
End Function
end Class
' On onstancie l'objet unobjet
set objPersonne = new Personne
with objPersonne
.Nom = "Toto"
.Prenom = "Alain"
end with
response.write "Nom : " & objPersonne.Nom & "<br>"
response.write "Prénom : " & objPersonne.Prenom & "<br><br>"
response.write "Appel de la méthode : " & objPersonne.Info_Personne & "<br><br>"
%>
Conclusion :
Bon courage !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.