Détection d'une touche appuyée au démarrage de l'application [Résolu]
cs_dragon
- Messages postés
- 2336
- Date d'inscription
- samedi 14 juillet 2001
- Dernière intervention
- 5 mai 2009
- Messages postés
- 444
- Date d'inscription
- mardi 27 mars 2007
- Dernière intervention
- 1 mars 2011
A voir également:
- Python detecter touche clavier
- Detecter touche appuyée... ✓ - Forum - Javascript / DHTML
- ASM : Hook sans dll détecter le démarrage d'une application registershellhookwindow - - Guide
- Touche appuyée ✓ - Forum - VB.NET
- Détecter si la touche Maj de verouillage est enfoncée en pw ✓ - Forum - IRC
- Afficher les astuces au démarrage d'une application - Codes sources - ASP / ASP.NET (Composants)
4 réponses
Meilleure réponse
- Messages postés
- 2336
- Date d'inscription
- samedi 14 juillet 2001
- Dernière intervention
- 5 mai 2009
voici la solution
Public Class Main
Inherits System.Windows.Forms.Form
Implements IMessageFilter
Const WM_KEYDOWN As Integer = &H100
Public Sub New()
Application.AddMessageFilter(Me)
Application.DoEvents()
Try
Dim temp As New Form1(True)
temp.Owner = Me
Application.Run(temp)
Try
temp.NotifyIcon1.Visible = False
Catch
End Try
Catch ex As Exception
Dim temp As New frmErreur
temp.Erreur = ex
temp.ShowDialog()
End Try
End
End Sub
Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements System.Windows.Forms.IMessageFilter.PreF<wbr>ilterMessa<wbr>ge
Select Case m.Msg
Case WM_KEYDOWN
Dim keyCode As Keys = m.WParam
If keyCode = Keys.F12 Then
VerifActivation.securityBypass = True
End If
End Select
End Function
End Class
-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------
</wbr></wbr>
Public Class Main
Inherits System.Windows.Forms.Form
Implements IMessageFilter
Const WM_KEYDOWN As Integer = &H100
Public Sub New()
Application.AddMessageFilter(Me)
Application.DoEvents()
Try
Dim temp As New Form1(True)
temp.Owner = Me
Application.Run(temp)
Try
temp.NotifyIcon1.Visible = False
Catch
End Try
Catch ex As Exception
Dim temp As New frmErreur
temp.Erreur = ex
temp.ShowDialog()
End Try
End
End Sub
Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements System.Windows.Forms.IMessageFilter.PreF<wbr>ilterMessa<wbr>ge
Select Case m.Msg
Case WM_KEYDOWN
Dim keyCode As Keys = m.WParam
If keyCode = Keys.F12 Then
VerifActivation.securityBypass = True
End If
End Select
End Function
End Class
-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------
</wbr></wbr>
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 14010
- Date d'inscription
- samedi 29 décembre 2001
- Dernière intervention
- 28 août 2015
Salut
Comme expliqué dans l'aide de.Net, il te suffit d'utiliser ceci au moment où tu veux l'info, au démarrage de ton appli ou plus tard :
If My.Computer.Keyboard.ShiftKeyDown Then MsgBox("SHFT key down")
Pour tes histoires de double EXE, je n'ai rien compris
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Comme expliqué dans l'aide de.Net, il te suffit d'utiliser ceci au moment où tu veux l'info, au démarrage de ton appli ou plus tard :
If My.Computer.Keyboard.ShiftKeyDown Then MsgBox("SHFT key down")
Pour tes histoires de double EXE, je n'ai rien compris
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
- Messages postés
- 60
- Date d'inscription
- mercredi 9 novembre 2005
- Dernière intervention
- 6 janvier 2009
Salut Dragon,
Tu peut utiliser un parametre quand tu ouverture de ton application, et tu la recupere avec Command dans les premiere ligne de ton code. Moi j'utilise cette methode pour donner acces au menu configuration, cela evite les changements de configuration saccidentelle de la part des usagers. exemple C:\Mon Programme /Config
Bye
TiBlay
Tu peut utiliser un parametre quand tu ouverture de ton application, et tu la recupere avec Command dans les premiere ligne de ton code. Moi j'utilise cette methode pour donner acces au menu configuration, cela evite les changements de configuration saccidentelle de la part des usagers. exemple C:\Mon Programme /Config
Bye
TiBlay
- Messages postés
- 444
- Date d'inscription
- mardi 27 mars 2007
- Dernière intervention
- 1 mars 2011
Bonjour,
Je passais par là et je me suis dit que quelqu'un aurait peut être la même chose sous VBA ... Le but étant de controler que la touche Shift n'est pas enfoncée au moment de l'ouverture d'un classeur Excel contenant du code
Merci d'avance
Cliquer "Réponse Acceptée" Quand C'est La Solution
Partageons Notre Savoir & Nos Acquis - JML
Je passais par là et je me suis dit que quelqu'un aurait peut être la même chose sous VBA ... Le but étant de controler que la touche Shift n'est pas enfoncée au moment de l'ouverture d'un classeur Excel contenant du code
Merci d'avance
Cliquer "Réponse Acceptée" Quand C'est La Solution
Partageons Notre Savoir & Nos Acquis - JML
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.