Extraire la lettre du millieu d'un mot

Commenter

Contenu du snippet

Ceci est une façon d' inscrire la lettre du millieu d'un textbox dans un label.
Ce code est de moi.

Source / Exemple : 


Option Explicit
Dim Chaine As String
Dim PositionPair As Integer
Dim PositionImpair As Integer

Private Sub cmdMillieu_Click()

    PositionPair = 0
    PositionImpair = 0
    Chaine = txtChaine.Text
    PositionPair = (Len(Chaine) / 2)
    PositionImpair = (Len(Chaine) / 2) + 0.5
    
    If PositionPair + PositionPair = Len(Chaine) Then
        lblMillieu.Caption = Mid(Chaine, PositionPair, 1) + " et " + Mid(Chaine,  PositionPair + 1, 1)

    Else
        lblMillieu.Caption = Mid(Chaine, PositionImpair, 1)
    End If
        
    
End Sub

Conclusion :


Soyez brillant en découvrant le fonctionnement du code! Il serait trop long à expliquer.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.