Discussion :

[taoufik007]

je suis un débutant de vb.net et voudrais savoir le code de validation d'un bouton ok et cancel avec respectivement entrer et esc du clavier. c'est à dire
Il y a sur la fenêtre un bouton "Ok" qui doit être enfoncé quand l'utilisateur tape 'Enter' au clavier, c'est le bouton qui 'valide' ( et qui le ferme souvent) et de même un bouton cancel.

Comment faire?

merci

[hunteshiva]

hésite pas a publier la réponse si tu l'a,
sa m'intéresse

[nasty]

Bonjour

Je peux te passer un code un peu crade qui simule le click sur le bouton.

Code :

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

1
2
3
4
public sub keyboard_KeyPress(byval sender as object, byval e as eventargs) handle me.KeyPress
 
If e.Key = Key.Enter then btn_click()
'btn_Click etant la methode appelé lorsque le bouton est cliqué

c'est juste une esquisse et c'est pas particulierement beau. Mais avec quelques controles tout autour, et une verification comme quoi l'utilisateur ne clique pas a tout bout de champs, ca doit passer

En esperant vous avoir un peu eclairé

Nasty

[oyigit]

Pour une application web, tu dois passer par du javascript

[methylene]

Pour une application web, tu dois passer par du javascript

Qui a parlé d'application Web ?

A noter que tu peux utiliser Keydown comme Keypress comme évènement, perso je préfère Keydown.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Private Sub Maform_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
If e.KeyCode = Keys.Enter Then
 
     'tonsub, c'est à dire le sub que tu veux qui s'éxecute après appui de la  touche entrée ou click sur le bouton OK
     Call tonsub()
     taform.hide()
 
ElseIf e.KeyCode = Keys.Escape Then
 
     'Ce que tu veux qu'il se passe quand tu clique sur "Cancel", soit Exit, End, ...
 
End If
 
    End Sub

[nasty]

J'ai dit que c'etait un code un peu crade!

Et je n'ai jamais vraiment saisi le difference entre KeyPress, KeyDown, KeyUp...

Nasty

[methylene]

Hum en quoi c'est crade ?
Perso je vois pas d'autres façons de faire, sans passer par les évènements de la form.

Ensuite, la différence entre Keydown, Keypress, et Keyup est la suivante :

KeyDown : dès que l'on clique sur la touche, détecte l'évènement
KeyPress : détecte un appui prolongé (bien évidement de l'ordre de la seconde) sans le relacher
KeyUp : Détecte le relâchement après appui de la touche

[taoufik007]

Il y a sur la fenêtre un bouton "Ok" qui doit être enfoncé quand l'utilisateur tape 'Enter' au clavier, c'est le bouton qui 'valide' le questionnaire ( et qui le ferme souvent).

Comment faire?

Définissez la propriété AcceptButton de la Form en lui donnant le nom du bouton.

Cela permet au formulaire d'avoir le comportement d'une boîte de dialogue.


La propriété CancelButton de la Form permet de la même manière de créer un bouton 'Annuler'( qui répond à la touche 'Echap'(ESC).
sources cours Dr LASSERRE Philippe
http://nevez29920.free.fr/cours_inte...z.com/v3-3.htm
merci

[yasmine_m]

Qui a parlé d'application Web ?

A noter que tu peux utiliser Keydown comme Keypress comme évènement, perso je préfère Keydown.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Private Sub Maform_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
If e.KeyCode = Keys.Enter Then
 
     'tonsub, c'est à dire le sub que tu veux qui s'éxecute après appui de la  touche entrée ou click sur le bouton OK
     Call tonsub()
     taform.hide()
 
ElseIf e.KeyCode = Keys.Escape Then
 
     'Ce que tu veux qu'il se passe quand tu clique sur "Cancel", soit Exit, End, ...
 
End If
 
    End Sub

ca ne marche pas pour moi je comprend pas
voila mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Taprocedure()
        Me.Hide()
        Gestion_des_Personnes3.Show()
 
    End Sub
 
    Private Sub Maform_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        If e.KeyCode = Keys.Enter Then
 
            Call Taprocedure()
 
        End If
    End Sub