Keyascii non reconnu

**escape** · 15/12/2006, 09h43

Bonjour, j'ai un problème avec keyascii.

Sur une appli, je l'utilise nickel, sur une autre appli il ne reconnait pas la variable.. Savez vous pourquoi?

**Najdar** · 15/12/2006, 09h49

Bonjour Escape,

Sans plus d'informations tu n'auras pas beaucoup de réponses...

Montre-nous ton code !

**escape** · 15/12/2006, 09h57

http://vb.developpez.com/faq/?page=C...s#flex_ou_data

j'utilise ce code.

Mais déjà quand je tape keyascii, dans un programme ca me met automatiquement KeyAscii alors que dans l'autre ca reste en mini

code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
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

**Najdar** · 15/12/2006, 10h02

Envoyé par escape

Mais déjà quand je tape keyascii, dans un programme ca me met automatiquement KeyAscii alors que dans l'autre ca reste en mini

Désolé, mais je ne comprends pas

De plus, pourrais-tu nous montrer TON code "complet" ? Là tu indique du code sorti de son contexte. Dans quel événement as-tu mis ce code? Quels sont les controles mis en jeux ? ... ?

**escape** · 15/12/2006, 10h08

le problème c'est que dans un si je tape keyascii il me reconnais KeyAscii
et dans l'autre il me reconnait pas.. il le laisse en mini et il me dit que c'est pas défini
le code c'est celui de
http://vb.developpez.com/faq/?page=C...aisie_flexgrid

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
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