Saisie de texte dans un msflexgrid

Commenter

Contenu du snippet

Ce code permet de taper du texte dans la cellule d'un MSFlexGrid ou MSHFlexGrid comme dans une feuille Excel.
Au début j'utilisais un textbox qui venait audessus de la cellule mais cea pose un problème lorsqu'il y a une scrollbar. Voici donc la solution :

Source / Exemple : 


Private Sub flex_KeyDown(KeyCode As Integer, Shift As Integer) 
If flex.Text <> "" Then 
Select Case KeyCode 
Case 8 'backspace 
flex.Text = Left(flex.Text, (Len(flex.Text) - 1)) 
Case 46 'suppr 
flex.Text = "" 
End Select 
End If 
End Sub 

Private Sub flex_KeyPress(KeyAscii As Integer) 

If KeyAscii > 28 Then  'av cette condition on peut restreindre les entrées utilisateurs en autorisant seulement les chiffres par ex. la on interdit juste les caracteres non gérés par windows 
flex.Text = flex.Text & Chr(KeyAscii) 
End If 

End Sub

Conclusion :


Merci à www.developpez.com , y sont plus doué que sur VBfrance .. mais bon .. je tiens à déposer ma pierre à l'édifice .

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 (cs_davyboy)