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