Détection d'une touche appuyée au démarrage de l'application [Résolu]
A voir également:
- Python detecter touche clavier
- Vba keypress enter - Meilleures réponses
- Keypress enter vba - Meilleures réponses
- 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
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>
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)
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
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