Code ASCIIRésolu

Question

Salut...

Je suis &#224; la recherche (et je ne sais pas si ca l'existe) tu code ASCII de la touche ENTER et de la touche Tab (tabulation)  Je veux que quand j'appuis sur Enter ca fasse une tabulation

Merci d'avance

ScSami · Accepted Answer

Mais pour r&#233;pondre &#224; ta question, Tab = 9 et Entr&#233;
(Retour chariot) = 13... En fait, pour ce dernier, &#231;a peut aussi &#234;tre
10 car un retour chariot se fait toujours via CrLf... Sinon, cherche
sur Google "AINSI"...



Mais comme l'a dit Dragon, ton probl&#232;me n'est pas l&#224;...

D&#233;j&#224;, codes-tu en VB6 ou en .NET (ou encore en VBA) ???  [Pr&#233;cise le toujours, c'est important pour nous!!!]



Il vaut mieux utiliser les constantes du VB comme, pour ton cas,
vbKeyReturn qui est &#233;gale &#224; 13, et vbKeyTab &#224; 9... ainsi, tu seras
certain que &#231;a fonctionnera toujours pi t'aura pas &#224; m&#233;moriser le
num&#233;ro... Toutes les constantes de VB commencent par "vb", puis, celles
des touches, suivent par "Key" puis le nom de la touche. C'est pas
compliqu&#233; !!!



Comme Dragon, je te propose d'utiliser la proc&#233;dure &#233;venementielle
"_KeyPress" afin d'interc&#233;pter la frappe pour pouvoir la remplacer par
une autre... si ce que j'ai compris est bien ce que tu cerches &#224; faire
(d'ailleurs, soit dit en passant, faut &#234;tre plus clair dans tes posts
!!!)... Donc, ce code devrait r&#233;pondre &#224; tes besoins :



Private Sub Text1_KeyPress(KeyAscii As Integer)

 If KeyAscii vbKeyReturn Then KeyAscii vbKeyTab

End Sub



Note que l&#224; j'ai utilis&#233; une zone de texte (avec la propri&#233;t&#233; "Multiline" &#224; "True"... mais &#231;a, c'est pas obligatoire!!!
)...



Si ma r&#233;ponse te convient, clique sur le bouton "Accepter"...



Sinon, dit nous en plus...



Enjoy

cs_dragon · Answer

si tu veux savoir un asc voici comment faire

met toi un textbox avec l'&#233;v&#234;nement on key press
ensuite faire un msgbox(asc(e.key)) <- c'est de m&#233;moire

tu vas avoir un msgbox avec le code asc de la touche appuyer, &#231;a amrche toujours sauf pour la touche windows

sinon tu as le site www.ascii-table.com

------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

ScSami · Answer

Dit donc Jack, &#231;a se voit que tu poses pas souvent de
questions parce que mettre celle l&#224; dans la rubrique "Syst&#232;me" plut&#244;t
que "A propos de VBF", c'est plut&#244;t bizarre !!!

A mois que comme &#231;a tu comptes &#233;viter que Nix tombe dessus et te prenne pour un "petit joueur" ;-) lol

Moi je lui ai justement demand&#233; ce matin m&#234;me ce que voulait dire "RSS"... et pour tout te dire... ben j'ai d&#233;j&#224; oubli&#233;!!!



++ 



(Et n'oublie pas de cliquer toi aussi sur le fameux bouton "Accepter"... On compte sur toi )

cs_dragon · Answer

eille, je t'ai r&#233;pondu lol  ScSami 

------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

ScSami · Answer

Oops... d&#233;sol&#233;... je me suis tromp&#233; de fen&#234;tre et n'ait pas r&#233;pondu au bon post   
!!! C'est la premi&#232;re fois que &#231;a m'arrive tient!!! (Faut toujours
savoir reconnaitre lorsque c'est la premi&#232;re fois... les premi&#232;res
fois, la joie de la vie )

cs_JeffC1977 · Answer

lol  Je t'avouerai que je me demandais vraiment de quoi tu parlais.... mais enfin  c'est juste dr&#244;le..


h&#233;h&#233;h&#233;h&#233;

bye bye

cs_JeffC1977 · Answer

Mais ca m'aide pas pour le code ASCII de la touche ENTER et TAb :(


Merci d'avance de votre aide

cs_JeffC1977 · Answer

C'est vari que j'avais oubli&#233; de dire que je suis en VB6


et bien ton code est exatement ce que je voulais

 Private Sub Text1_KeyPress(KeyAscii As Integer)
 If KeyAscii vbKeyReturn Then KeyAscii vbKeyTab
End Sub

Mais je ne veux pas le mettre dans un textbox mais partout dans le programme

J'ai 5 texbox dans mon prog et je ne veux pas utiliser l;a touche TAB pour passer d'un textbox &#224; un autre. Je veux appuyer sur ENTER pour passer d'un textbox &#224; un autre....

Je ne sais pas ou mettre le code j'ai essay&#233; &#231;a

 Private Sub Form1_KeyPress(KeyAscii As Integer)
 If KeyAscii vbKeyReturn Then KeyAscii vbKeyTab
End Sub

Mais ca ne fonctionne pas...

J'attends de tes nouvelles merci d'avance...

Gobillot · Answer

Private Sub Text1_KeyPress(KeyAscii As Integer)
     If KeyAscii = vbKeyReturn Then Text2.SetFocus
 End Sub


 Private Sub Text2_KeyPress(KeyAscii As Integer)
      If KeyAscii = vbKeyReturn Then Text3.SetFocus
 End Sub




etc ...


Daniel

ScSami · Answer

Ah ben voil&#224;, nous y sommes... Ce que tu cherches &#224;
faire, c'est pas remplacer le Enter par un Tab mais passer d'un textbox
&#224; un autre de mani&#232;re automatique... c'est bien &#231;a ???

Alors c'est :



Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then Text2.SetFocus
 End Sub



cel&#224; qu'il faut utiliser !!!



Est-ce que cela r&#233;pond &#224; ton probl&#232;me maintenant ???



Si oui, n'oublie pas de cliquer sur "Accepter", sinon, essaie d'&#234;tre
encore plus clair sur ce que tu cherches &#224; faire exactement !!!



Enjoy

ScSami · Answer

Excuse Gobillot... D&#233;cid&#233;ment, c'est ma journ&#233;e aujourd'hui !!! Vous z'ettes trop rapide pour moi l&#224; 



Enjoy


(Je sais, &#231;a n'a rien &#224; voir, mais... Plus les pauvres se d&#233;chirent, plus les riches s'engraissent !

Cf. http://www.fzm.fr/radiofzm/index.php chanson "Ya Basta :  Toujours Debout")

cs_JeffC1977 · Answer

Salut ca fonctionne le code... en partie
et c'est pour ca que je ne pouvais pas &#234;tre clair h&#233;h&#233;h&#233;h je ris de moi...Enfin 

J'ai ce code:

Private Sub txtTempsDossier_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
    txtTempsTemps.SetFocus
End If
End Sub

Private Sub txtTempsTemps_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
    txtTempsDate.SetFocus
End If
End Sub

Private Sub txtTempsDate_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
    txtTempsDossier.SetFocus
End If
End Sub

Mais Qaund je d&#233;mare le prog ca me donne un erreur &#224; la ligne Private Sub txtTempsTemps_KeyPress(KeyAscii As Integer). Ca me sort comme erreur Erreur de compilation: Nom ambigu d&#233;tect&#233;: txtTempsTemps_Keypress

Et je n'ai aps de faute de frappe ... 

Peux-tu toujours m'aider ????

Merci d'avance

Gobillot · Answer

t'aurais pas mis 2 fois la même procédure (?) c'est le seul truc qui me donne la même erreur !!! Private Sub txtTempsTemps_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then txtTempsDate.SetFocus End If End Sub ~~Private Sub txtTempsTemps_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then txtTempsDate.SetFocus End If End Sub~~ Daniel

ScSami · Answer

C'est que tu dois avoir une variable de m&#234;me nom ou un truc du genre... V&#233;rifie bien ton code...

Mais moi, perso, je te conseille vivement d'utiliser d'autres r&#232;gles de nommage :

ctl pour Control

var pour les variables locales

obj pour Objet

..., ..., ...

Regarde la MSDN (l'aide du VB) dans la rubrique... c'est vite lu et tr&#232;s instructif!!!

varTxtTempsTemps

ctlTxtTempsTemps

...

ou alors

varTxtTempsTmp

txtTempsTmp

...



V&#233;rifie bien ton code et au pire, copie-le en entier ici... (Mais met
bien les retours &#224; la ligne parce que c'est p&#233;nible tout sur une m&#234;me
linge!!!)

cs_JeffC1977 · Answer

Non je n'ai pas de r&#233;p&#233;tition d'une m&#234;me 
proc&#233;dure....

Je t'ai mis mon code dans mon message pr&#233;c&#233;dent mais pour une raison que j'ignor le  text ne s'affiche pas correctement dans mes messages... Je fais des Enter et il &#233;crit mon text en un seul bloc...


Enfin Mon probl&#232;me ne vients pas de ca.. ????  Je comprend pas pourquoi....  Au pire que r&#233;inscrirai mon code chez moi &#224; la maison mon message ne sera pas dans un seule bloc et donc plus facile &#224; lire...

Merci encore

ScSami · Answer

Ben dit donc Gobillot... bon alors, on se d&#233;cide, qui va traiter ce client, toi ou moi ??? 
mdr  

T'es plus rapide que moi en tous cas...



Mais non, d&#233;sol&#233; de te contredire sur ce soup mais, apr&#232;s remise en
volume du code de notre d&#233;sormais ami JeffC1977, il s'av&#232;re qu'il n'y a
pas de doublons dans ses proc&#233;dures... En revanche, je le soup&#231;one, &#224;
la vu des "End If", de ne pas nous avoir mis tout son code... h&#233;h&#233;, tu
peux rien nous cacher ...



Voici le code qu'il nous a donn&#233; :




Private Sub txtTempsDossier_KeyPress(KeyAscii As Integer)

    If KeyAscii =
vbKeyReturn Then

        txtTempsTemps.SetFocus

    End If

End Sub

Private Sub
txtTempsTemps_KeyPress(KeyAscii As Integer)

    If KeyAscii = vbKeyReturn
Then

        txtTempsDate.SetFocus

    End If

End Sub

Private Sub
txtTempsDate_KeyPress(KeyAscii As Integer)

    If KeyAscii = vbKeyReturn
Then

        txtTempsDossier.SetFocus

    End If

End Sub

ScSami · Answer

Non mais attends l&#224;... ce que tu nous dis est
parfaitement normal !!! Vi, quand tu tape la touche "Enter", &#231;a le
marque et &#231;a passe &#224; une autre zone de texte, c'est pas ce que tu
voulais !?!?!?

Gobillot · Answer

"Nom ambigu d&#233;tect&#233;"



&#231;a veut bien dire qu'il un nom identique quelque part non ?

peut &#234;tre dans une forme ou dans un module en Public

Ctrl F

recherche "txtTempsTemps" dans tout le projet si existe d&#233;j&#224; 

????


Daniel

Gobillot · Answer

il voulait parlait du site, les retours charriots ne se font pas ...

par contre son programme ne doit pas tourner puisqu'il y a une erreur &#224; la compilation.


Daniel

ScSami · Answer

Oui, chuit b&#232;te parfois!!! Oul&#224;, moi je suis fatigu&#233;... vais pas tard&#233; &#224; aller me coucher...  Mais dis moi, tu utilises quel navigateur Internet Jeff ???



Mais c'est vrai que tu as raison Gobillot, il a forc&#233;ment un nom identique quelque part... reste &#224; nous fournir le code complet s'il est pas trop grand pour qu'on y jete un coup d'oeil ( lol) !!!

Code ASCII

22 réponses

Discussions similaires