Discussion :

[parp1]

Salut la compagnie.

Voila je m'explique. Je developpe un control ActiveX, ce controle a une checkbox "option" qui ouvre un form dans laquelle j'ai introduis des onglets (Merci ZAZAraignée ) Ceux ci contiennent mes options, activation de plans, une palette de couleur....

Lorsque je ferme cette form option, je veux que ma checkbox "option" de mon controle ActiveX passe en checkBox1.Enabled=False.

Ce que j'ai deja fait:

Code :

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

1
2
3
4
5
 
 
Private Sub Form_Unload(Cancel As Integer)
CheckBox1.Enabled=False
End Sub

Fonctionne pas, normale j'ai deja une checkbox1 dans ma form.

J'ai essayer aussi de remplacer CheckBox1 par UserControl1.CheckBox1, fonctionne pas.

Et enfin j'ai essayer de créer dans mon module une fonction qui mets CheckBox1.Enabled=False mais ca ne fonctionne pas car CheckBox1 n'est pas connue dans mon module.

Avez Vous des idées?

Merci!

[ProgElecT]

Il me semble, si j'ai compris la question , que cela doit être

Code :

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

UserControl.Parent.CheckBox1.Enabled=False

[Vld44]

montre nous la procédure d'appel / ouverture de ta form

[parp1]

Merci les gars.

Dans mon user control j'ai ca pour ouvrir ou cacher la fenetre d'options.

Code :

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

1
2
3
4
5
6
7
Private Sub Check1_Click()
If Check1.Value = 1 Then
Form1.Show
Else
Form1.Hide
End If
End Sub

Dans ma form1 sus nommée j'ai ca pour la fermer.

Code :

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

1
2
3
4
5
6
7
 
Private Sub Form_Unload(Cancel As Integer)
 
Urender.RemoveActor Plx
Urender.RemoveActor Ply
Urender.RemoveActor Plz
Urenwin.render

Autrement dit j'ai rien dedans.... mis a part effacement des objet dans une fenetre 3D,et refresh de celleci.

Et quand j'y ajoute ton code ProgElecT ca ne fonctionne pas VB me retourne RunTime Error 424 :Ogject Required

[Vld44]

Code :

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

1
2
3
4
5
6
7
8
Private Sub Check1_Click()
If Check1.Value = 1 Then
    Form1.Show
Else
    Form1.Hide
    Check1.enabled = false
End If
End Sub

[parp1]

Ro le boulet que je suis.

Enfait je vous dit que je veux rendre le bouton non actif alors que ce n'est pas ca. je veux juste que lorsque je ferme ma form1 la valeur du checkBox de mon control passe a 0. Désolé les gars.

En gros au lieu de
CheckBox1.enabled=False
je veux CheckBox1.Value=0

Sorry!

[ProgElecT]

pour eviter l'erreur durant la creation du prog, ajouter un traitement de l'erreur

Code :

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

1
2
3
On Error Resume Next 'actif que durant l'execution du projet ou de l'exec
UserControl.Parent.CheckBox1.Enabled=False
If Err Then Err.Clear

[parp1]

Merci c'est ce que je fais, mais ma checkBox est toujour coché... J'ai remplacer dans ton code, Check1.Enbled.... par Check1.value=0