[VB .NET] problème Select Case

Version imprimable

Bonjour,

J'utilise une API pour détecter chaque saisie clavier (SetWindowsHookEx, CallNextHookEx, ...).

Quand je détecte un événement clavier, je fais des tests sur la valeur récupéree.

je déclare une variable dans un module à part

Code:

Dim curseur As Integer

et dans le module où je récupère l'évenement clavier j'ai le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Public Function IsHooked(ByRef Hookstruct As KBDLLHOOKSTRUCT) As Boolean
If Hookstruct.flags Then
         Select Case curseur
                    Case 0
                        If Hookstruct.vkCode = 160 Then 'valeur key récupérée = 160
                            curseur = 1
                            MsgBox("0 ok")
                            code0 = 160
                        Else
                            MsgBox("erreur curseur")
                        End If
                    Case 1
                            MsgBox("1 ok")
                            code1 = temp
                            modvarglobal.curseur = 2
                     ...
                    Case Select
                             'code
          End Select
 
          Return False
 
Else
          Return True
End If
 
End Function

A la première valeur saisie, je rentre bien dans le Case 0, mais au deuxième caractère détecté, curseur est toujours égal à 0 ! ("erreur curseur" s'affiche")

What's the problem ?8O

27/12/2006, 11h02
tophoune

euh, je ne suis pas sur de ce que je vais avancé (par contre je suis certain que quelqu'un me corrigera)
Si j'ai bien compris, ta variable "curseur" est declarée dans un module a part par un "Dim... As ..... ".
je pose donc la question suivante : es tu sur que curseur est bien accessible par ta methode?
autrement dit, remplace "Dim curseur As Integer" par "Public curseur As Integer"
de maniere a ce que ta variable soit declarée pour l'ensemble de ton projet.
05/01/2007, 10h59
KrusK

oui c'était une erreur de ma part je l'ai bien mis en Public.

Le problème s'est résolu à partir du moment où j'ai enlevé les MsgBox, allez comprendre 8O