[VB6] enabled récalcitrant

Version imprimable

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:

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

03/12/2002, 18h59
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.
:wink:
A+
HCath
04/12/2002, 08h36
SpaceFrog

Oula HCATH ! Consulter la pile des appels ??? Et ça marche comment ce truc là ? Je consulte où ???
04/12/2002, 08h51
bidou

en mode débogage
-Affichage / pile des appels ou CTRL-L
04/12/2002, 09h04
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() ...
04/12/2002, 09h16
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
04/12/2002, 09h22
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 ???
04/12/2002, 09h30
SpaceFrog

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

:oops:

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 ?
04/12/2002, 09h51
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:

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 ?
:wink:
A+
HCath
04/12/2002, 10h09
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 !!! :wink: