Exemple de saisie semie-automatique

Télécharger le projet
Commenter

Description

Voici un ptit bout de code simple permettant des saisies semie-automatiques...

Source / Exemple : 


'Voici la fonction qui permet de le faire... Vous trouverez dans le ZIP un exemple d'application...

Public Function Saisie()

If st = True Then

 If Len(Text1.Text) <> 0 Then

    For i = 0 To List1.ListCount - 1
    'Analyse et comparaison du texte de la textbox aux elements de la listbox
    If LCase(Text1.Text) = LCase(Mid(List1.List(i), 1, Len(Text1.Text))) Then
    fin = Len(Text1.Text)
    Text1.Text = List1.List(i)
    Text1.SelStart = fin
    Text1.SelLength = Len(Text1.Text) - fin
    Exit Function
    End If
    
    Next i

  End If

End If

End Function

Conclusion :


Merci par avance pour vos commentaires ... Et pas d'injures ou quoi que se soit dans le genre ...
Thx
A++

DeAtH_-_CrASH
Télécharger le projet

Codes Sources

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.

Du même auteur (DeAtHCrAsH)