Comment permettre à l'utilisateur de taper du texte dans une flexgrid

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 264 fois - Téléchargée 34 fois

Contenu du snippet

Ce programme ajoute dans la cellule courante les caractères au fur et à mesure qu'ils sont tapés. Une autre manière de faire consiste à placer un textbox qui recouvre la cellule courante, et de transférer le texte du textbox dans la cellule chaque fois que l'on quitte le textbox (évènement lostfocus).

Source / Exemple :


Dim strTexte

strTexte = MSFlexGrid1.Text
If KeyAscii = 8 Then 
    'Touche d'effacement
    If Len(strTexte) > 0 Then MSFlexGrid1.Text = Left(strTexte, Len(strTexte) - 1) 
ElseIf KeyAscii <> 13 Then
    MSFlexGrid1.Text = strTexte & Chr(KeyAscii)
End If

A voir également

Ajouter un commentaire

Commentaire

Messages postés
1134
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
1
C'est ta première source, je vais donc essayer d'être indulgeant...

Mais

- ce n'est pas un programme que tu mets là, juste quelques lignes de code;

- de plus, tu n'expliques pas où doivent être mises ces lignes (ce n'est pas n'importe où qu'il faut taper cela) ;

- tu évoques la possibilité d'utiliser un textbox, mais en aucune manière tu expliques la manière de le faire (surtout pour le positionner);

- et enfin, cette source existe déjà sur le site et, hélas pour toi, de manière plus complète. Ce serait quand même de vérifier qu'on ne met pas un Xème exemplaire d'une source avant de poster (mais cela vaut pour d'autres également).

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.