Discussion :

[Frenchguy]

Bonjour, j'ai essayé de reutiliser ce code, pour parfaire un de mes sous formulaire, et empecher l'acces à une partie cachée...
j'ai essayé comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Form_Load()
Dim Flag As String
Flag = 1
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Empêcher touche PageUp/PageDown/End/Origine
If Flag = 1 Then
    If KeyCode = vbKeyPageUp Or KeyCode = vbKeyPageDown Or KeyCode = vbKeyEnd Or KeyCode = vbKeyHome Or KeyCode = vbKeyUp Or _
    KeyCode = vbKeyDown Then
        KeyCode = 0
    End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim Flag As String
Flag = 0
End Sub

mais ça ne donne rien (ma variable n'est pas bien définie, sans nul doute...)
Je l'appel su le load pour la mettre à 1
et sur 'lunload je la remet à 0, mais je ne lui dis aps comme il veut l'entendre apparement...

[cafeine]

2 questions = 2 pb sur le type de variable.

Attention VB est souple mais il faut un minimum de rigueur sur le type des variables

Code :

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

1
2
Dim Machin As String
Machin = 1

Quand tu fais un test conditionnel ça ne marchera que si tu fais

Code :

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

If Machin = "1" Then

Pour résumer Flag ne sera jamais égal à 1 (numérique) puisque c'est une chaine "1", OK ?

[Frenchguy]

Je vois ce que tu veux dire (a peu près)... je définit une chaine (string), donc si je demande un sans les "" qui caracterisent la chaine ce n'est pas bon...
Du coup, j'ai appliqué ton exemple comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Form_Load()
Dim Flag As String
Flag = 1
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Empêcher touche PageUp/PageDown/End/Origine
If Flag = "1" Then
    If KeyCode = vbKeyPageUp Or KeyCode = vbKeyPageDown Or KeyCode = vbKeyEnd Or KeyCode = vbKeyHome Or KeyCode = vbKeyUp Or _
    KeyCode = vbKeyDown Then
        KeyCode = 0
    End If
End If
End Sub

et ça ne me bloque toujours pas les touches?

SI je défini mon Flag comme un Entier "integer" je devrai pouvoir ecrire ensuite "If flag = 1" donc.. or ça ne marche aps non plus...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Form_Load()
Dim Flag As Integer
Flag = 1
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Empêcher touche PageUp/PageDown/End/Origine
If Flag = 1 Then
    If KeyCode = vbKeyPageUp Or KeyCode = vbKeyPageDown Or KeyCode = vbKeyEnd Or KeyCode = vbKeyHome Or KeyCode = vbKeyUp Or _
    KeyCode = vbKeyDown Then
        KeyCode = 0
    End If
End If
End Sub

[FreeAccess]

Bonjour,

C'est bien d'essayer d'utiliser mon code
Voici quelques explications:

-1) Déclarer la variable "Flag" dans un Module :

Code :

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

1
2
'Déclaration variable 'Flag' servant de marqueur dans formulaire
Public Flag As Byte

-2) Ensuite en fonction de l'événement sur lequel tu veux "verrouiller" ces touches, tu passe simplement ta variable "Flag" à 1 (remettre à 0 pour réactiver touches):

Code :

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

Flag = 1

-3) Pense à mettre "Aperçu des touches = Oui".......sinon cela n'a aucun effet

Bonne continuation