Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre du Club
    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 :Sélectionner tout -Visualiser dans une fenêtre à part
    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

  2. #2
    Rédacteur/Modérateur

    Salut

    Que t'affiche Me.txtcodep ?
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Membre chevronné
    Bonjour,

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

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    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 ...

###raw>template_hook.ano_emploi###