help!!! j'ai besoin d'aide pour les keypress

Question

bonjour j'ai un probleme geant :
je doit faire en sorte que mon ordi prenne la date, heure , minute,segonde,millisegondes des que je clikke sur espace
j'ai esseyer sa:


Private
Sub Form2_keyPress(
ByVal sender 
As
Object, 
ByVal e 
As System.Windows.Forms.KeyPressEventArgs) 
Handles
Me.KeyPress



If
 Val(e.KeyChar) = Keys.Space 

Then



Label6.Text Label6.Text 




""

Label6.Text = TimeOfDay & 




":"
 & TimeOfDay.Now.Millisecond


End



If






End



Sub

mais quand je clik sur "space sa marche pas...
sa fait des jour que je cherche mais j'ai rien trouvé
pourrie vous m'aider svp

merci 

ps : excuse-moi pour l'ortographe....

cs_casy · Answer

peut-etre quelque chose comme ça :

        If e.KeyChar = " "c Then
            Label6.Text = Now.TimeOfDay.ToString
        End If

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

cs_casy · Answer

et n'oublie pas de mettre la propriété Keypreview de ta form à True

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

gillardg · Answer

Bonjour,

Private
Sub Form1_KeyDown(
ByVal sender 
As
Object, 
ByVal e 
As System.Windows.Forms.KeyEventArgs) 
Handles
Me.KeyDown

If e.KeyCode = Keys.Space 
ThenMsgBox(

"voila")

End
If

End
Suba+

Help!!! j'ai besoin d'aide pour les keypress

3 réponses

Votre réponse

Discussions similaires