Pb pour fermer programme avec touche clavier. (VB)

Pb pour fermer programme avec touche clavier. (VB) - VB/VBA/VBS - Programmation

Marsh Posté le 13-03-2013 à 16:28:49    

Bonjours,
 
Voila, j'ai créé un programme, mais je veux afficher une autre form si je clic sur la croix . J'ai donc desactivé la fermeture du programme par la croix. Cependent, je veus pouvoir le fermer en appuyant sur une touche du clavier. Quand je fais Alt+F4 cela ne marche pas non plus. Et je ne veus pas cree de boutons close. Est il possible d'entrer un code du style : Si l'utilisateur press une touche alors le programme se ferme? :??:  
 
Je n'ai pas trouvé de solutions sur internet...
 
Merci de m'aider a en trouver une.

Reply

Marsh Posté le 13-03-2013 à 16:28:49   

Reply

Marsh Posté le 13-03-2013 à 18:39:58    

Plus de présisions.
Voici le code que j'ai fait :
 
Public Class Form1
    Dim seconde = 15
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If e.CloseReason = CloseReason.UserClosing Then e.Cancel = True
        Dim fenetre As New Form1
        fenetre.Show()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fenetre As New Form1
        fenetre.Show()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim fenetre As New Form1
        fenetre.Show()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim fenetre As New Form1
        fenetre.Show()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If seconde = True Then
            Dim fenetre As New Form1
            fenetre.Show()
            seconde = 15
        End If
        Label2.Text = "Ce logiciel se reproduira dans " & seconde & " secondes."
        If seconde = 1 Then
            Label2.Text = "Ce logiciel se reproduira dans 1 seconde"
        End If
        seconde = seconde - 1
    End Sub
 
    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress   )
        If KeyPreview = "1" Then                                                                                                                                                        )  Le problème est la. Quand je tappe sur 1 sa fait comme  
            Me.Close()                                                                                                                                                                         ) si je clic sur la croix, mais sa ne ferme pas le programme
        End If                                                                                                                                                                                    )et sa ouvre une autre fenetre. Moi je voudrais que le  
    End Sub                                                                                                                                                                                    )programme s'arret.
 
End Class
 
 
Pourriez vous me dire quoi faire?
 
Merci.

Reply

Marsh Posté le 13-03-2013 à 18:44:05    

En rempacant Me.close() par Me.Hide() sa a l'aire de marcher, mais cela arret vraiement le programme ou cela ne fait que le cacher?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed