Salut tout le monde,
Voila j'ai un mshflexgrid et je voudrais que l'utilisateur puisse y saisir des données. J'ai trouvé une source dans la FAQ, mais le problème est qu'elle ne fonctionne pas avec moi!je comprend pas d'ou vient mon erreur, voici mon code:
Private Sub Form_Load()
Dim strTexte As String
MSHFlexGrid1.Text = "test"
strTexte = MSHFlexGrid1.Text
If KeyAscii = 8 Then
'Touche d'effacement
If Len(strTexte) > 0 Then MSHFlexGrid1.Text = Left(strTexte, Len(strTexte) - 1)
ElseIf KeyAscii <> 13 Then
MSHFlexGrid1.Text = strTexte & Chr(KeyAscii)
End If
End Sub
Voila, merci pour votre aide
Partager