Discussion :

[megamario]

Bonjour à tous,

Sur un petit soft que je fait actuellement j'ouvre une page Excel.

Mon soft travail sur les classeurs de ce fichier excel et je récupère des info à afficher.

Le classeur Excel n'a pas besoin d'être affiché, c'est transparent pour l'utilisateur, mais j'aimerais qu'un mode debug soit disponible lorsque l'on appuis sur Shift (par exemple) au moment du lancement de l'application.

Sous VB6 j'utilisais:

Code :

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

1
2
3
4
5
6
7
8
9
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Public Function CheckKeyPressed(ByVal key As KeyCodeConstants) As Boolean
    If (GetAsyncKeyState(key)) Then
        CheckKeyPressed = True
    Else
        CheckKeyPressed = False
    End If
End Function

Mais cela ne fonctionne pas en .net, j'ai une erreur PInvoke...

Je démarre le soft par un Sub main() dans un modules, et charge le fichier excel dans ce main, je n'est pas les éventuelles événement KeyDown et KeyPress .


Merci de votre aide

[Pol63]

dans le sub main

Code :

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

If ModifierKeys = Keys.Shift Then

[megamario]

Merci Pol63

j'ajouterais pour que cela fonctionne pour moi

Code :

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

If Control.ModifierKeys = Keys.Shift Then

Super, merci encore