Extration et Concaténation des chaines de caractères en vb

Bonjour
J’ai un problème de débutant sur un formulaire, je ne sais pas si c’est la bonne méthode, mais c’est ce que j’essaie de faire.
Au fait j’ai un formulaire dont les contrôles txtcodep, txtnomp et txtprenomp m’intéressent. Ce que je souhaite faire c’est que si je tape le nom et le prénom, à la sortie du contrôle txtprenomp , le programme me compose le codep en prenant les trois premières lettres du nom (txtnomp), qu’il concatène avec les trois premières lettres du prénom(txtprenomp), et avec la date du jour et le résultat de la concaténation est renvoyé dans le contrôle txtcodep.
Je pense que j’ai été explicite. voici le code que j'ai pu écrire.
Merci pour les éclairages

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub txtprenomp_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtprenomp.Validating Dim t, t1, t3 As String Dim t2 As Date t = Left(Me.txtnomp, 3) t1 = Left(Me.txtprenomp, 3) t2 = CType(Now, String) t3 = t + t1 + t2 Me.txtcodep = t3 End Sub

---

Salut

Que t'affiche Me.txtcodep ?

Bonjour,

Le code suivant (en VB.Net) devrait faire ce que tu demandes :

Code:

---

1 2 3 4

Private Sub txtprenomp_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtprenomp.Validating Me.txtcodep.text = Me.txtnomp.text.substring(3) & Me.txtprenomp.text.substring(3) & Now.ToShortDateString End Sub

---

Je ne sais pas s'il est bien de le placer sous l'événement Validating ..., faudrait en savoir plus sur ton dispositif d'encodage ...

Attention, ton code mélange du VB6.0 et du VB.Net : c'est une source de problèmes.

J'espère que ceci t'aidera ... :D

Bonjour
Merci à Phil Rob pour l'avancé. Ce code marche mais extrait les champs à partir de le troisième lettre.
Je voudrais extraire les trois premières lettres de chaque champ.
merci pour l'assistance.

Pardonne-moi cette erreur d'inattention ! :oops:

Voici le code corrigé :

Code:

---

1 2 3

Private Sub txtprenomp_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtprenomp.Validating Me.txtcodep.text = Me.txtnomp.text.substring(0,3) & Me.txtprenomp.text.substring(0,3) & Now.ToShortDateString End Sub

---

Le premier paramètre de SubString est l'indice de départ et le second est le nombre de caractères à considérer. Si ce dernier est absent, ce sont tous les caractères de la chaine qui sont retournés, à partir de celui désigné par le premier paramètre.

:)

Bonjour
ce code marche

Code:

---

1 2 3

Private Sub txtprenomp_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtprenomp.Validating Me.txtcodep.Text = Me.txtnomp.Text.Substring(0, 4) & Me.txtprenomp.Text.Substring(0, 4) & Now.ToShortDateString End Sub

---

Cela permet d'extraire les quatre premières lettres de chaque champ.
et j'ai tout en miniscule par .ToLower

Code:

---

1 2 3 4

Private Sub txtprenomp_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtprenomp.Validating Me.txtcodep.Text = (Me.txtnomp.Text.Substring(0, 4) & Me.txtprenomp.Text.Substring(0, 4) & Now.ToShortDateString).ToLower   End Sub

---

et ça marche
grand merci à phil rob