Discussion :

[SpaceFrog]

Voici un petit bout de code qui me pose problème :
J'ai un bouton qui déclanche la desactivation de tous les autres controles de mon form et affiche un picturebox
mais lorsque je tente de réactiver le bouton ("schéma") il refuse !
le enabled reste obstinément à false !!!!

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
20
21
22
23
24
25
26
27
28
Private Sub Schéma_Click()
Dim ceci As Control
Dim ligne%, Confirm%
 
ligne = LinesGrid.Row
    If ligne = 1 And Trim(LinesGrid.TextMatrix(ligne, 0)) = "" Then Exit Sub
    If ligne = 0 Then MsgBox "Sélectionnez une ligne !", vbOKOnly: Exit Sub
 
    RSLines.AbsolutePosition = ligne
 
For Each ceci In Me.Controls
    If (ceci.Name) <> "Schéma" Then
     ceci.Enabled = False
    End If
    Next
 
  DoEvents
 
 
 
        Call Dessin_Coude(Elbpic)
        Elbpic.Refresh
        Elbpic.Visible = True
        Call clear_currentelbow
        Schéma.Caption = "Retour"
        Schéma.Enabled = True
 
        DoEvents

[HCath]

Salut,

Il est probable que l'exécution du programme ne soit pas conforme à ce que tu attends !
Je serais d'avis de mettre un Stop au retour de chaque Call et de consulter la pile des appels.

A+
HCath

[SpaceFrog]

Oula HCATH ! Consulter la pile des appels ??? Et ça marche comment ce truc là ? Je consulte où ???

[bidou]

en mode débogage
-Affichage / pile des appels ou CTRL-L

[SpaceFrog]

ben il me sort just le shcéma_click dans la pile des appels sur le stop après l'appel du call dessin_coudes() ...

[bidou]

ce qui me chagrine ma grenouille, c'est que nulle part dans ton code ton schéma passe à enabled=false, donc je ne comprends pas tout

[SpaceFrog]

C'est vrai bidou, le bouton n'apparait pas en grisé comme tous les autres controles il serait donc actif mais je ne peux pas cliquer dessus, j'en avais déduit qu'il était disabled... et en fait en pas à pas il me le montre à enabled = false ????
existe-t-il un controle sur le form qui lorsque je le passe dans la boucle for each ceci bloque les click sur le form ???

[SpaceFrog]

Bon je retire la perfusion de connerie concentrée que j'ai dans le bras !!!!



Le bouton schéma est dans un frame qui passe donc dans la boucle enabled = false
Donc le frame étant disabled, tout controle s'y trouvant l'est par niveau de hierarchie !!

donc il me suffit de rajouter dans les conditions d'exclusion le nom du frame !

Désolé pour le dérangement, et promis je débranche la perfusion, ou je change le contenu du flacon ?

[HCath]

Bizarre, bizarre...

En effet lorsque le conteneur est disabled, ses contrôles enfants ne réagissent plus au click bien qu'ils gardent l'apparence de contrôles actifs.
Cependant, le click est reçu par le grand-père !
Dans l'exemple ci-dessous, il y a un bouton dans une PictureBox.
Lorsque la PictureBox est désactivée, c'est la Form qui reçoit le click :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Command1_Click()
MsgBox "Coucou"
End Sub
 
Private Sub Form_Click()
MsgBox "J'ai la main"
Picture1.Enabled = Not Picture1.Enabled
End Sub

Etonnant non ?

A+
HCath

[SpaceFrog]

Encore une fois la genouille de l'espace à débusqué un paradoxe sidéralement sidérant !
Comme dirait Bidou il n'y a qu'à moi que ça arrive !!!