Bonjour,

je dois faire un exercisse qui demande l instruction suivante :

l usager rentre dans 1 textbox son nom suivie de son prenom.
En clickquant sur le bouton un messagebox apparait et fait afficher les initial de la personne.

EX: luc canard ---> messagebox affichant L.C.

Mon probleme ? Je n arrive pas a faire afficher la 2eme lettre....

voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
  Dim stPlettre, stDlettre, stNom, tbTableau(2), b As String
 
        Dim espace As Char = (" ")
 
        stNom = txtbox.Text
 
        For i = 1 To stNom.Length
 
            tbTableau(2) = txtbox.Text
 
            stPlettre = GetChar(stNom.ToUpper, 1)
 
        Next

J avais ecris ca comme code pour afficher la 2eme lettre mais bref ca ne fonctionne vrm pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
        For i = 1 To stNom.Length
 
            If tbTableau(i) = espace Then
                stDlettre = GetChar(stNom.ToUpper, 2)
            End If
 
        Next
 
 
        MessageBox.Show(stPlettre & "." & stDlettre & ".")