1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
   | Public Sub New()
 
        End Sub
        Public Sub New(ByVal ContactId As String, _
                       ByVal Nom As String, _
                       ByVal Prenom As String, _
                       ByVal Adresse As String, _
                       ByVal CodePostal As String, _
                       ByVal Ville As String, _
                       ByVal Email As String, _
                       ByVal Telephone As String, _
                       ByVal Fax As String, _
                       ByVal Gsm As String, _
                       ByVal Photo As String)
            m_strContactId = ContactId
            m_strNom = Nom
            m_strPrenom = Prenom
            m_strAdresse = Adresse
            m_strCodePostal = CodePostal
            m_strVille = Ville
            m_strEmail = Email
            m_strTelephone = Telephone
            m_strFax = Fax
            m_strGsm = Gsm
            m_strPhoto = Photo
 
        End Sub | 
Partager