Discussion :

[Lucas42]

Bonjour , je suis en train de créer un controle activeX sur lequel se trouve plusieurs images :
1 - une lampe allumée , qui s'affiche qd NBR = 1
2 - une lampe eteinte , qui s'affiche qd NBR = 0

Je posséde egalement une feuille ( MENU ) sur laquelle ce trouve des OptionButtons
l'un permet de mettre la variable NBR à 1 , le second à 0 .

Je dois donc utiliser NBR en tant que variable globale , le soucis intervient à ce niveau

Dans le code de la feuille ( MENU ) j'ai ecrit ceci

Code :

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

Public NBR as Integer

Dans le code de mon ActiveX j'ai ecrit 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
 
Sub EtatImg()
Imgouvert.Visible = (NBR= 1)
Imgferme.Visible = (NBR= 0)
End Sub
 
Private Sub UserControl_Initialize()              ' je pense que le soucis vien de la !!!!!! je ne sais pas quelle procédure utiliser ...
If menu.NBR = 0 Then        ' Lampe ETEINTE
     EtatImg
End If
If menu.NBR= 1 Then         ' Lampe ALLUMEE
     EtatImg
End If
End Sub

Merci d'avance
amicalement LUCAS

[SfJ5Rpw8]

Ta lampe c'est une vanne non ?

relis le code ... ta fonction EtatImg.. , met à jour l'état de ta vanne en fonction de la variable etat_van ... mais ou fais tu le lien avec NBR ?

[SfJ5Rpw8]

Bonjour , je suis en train de créer un controle activeX sur lequel se trouve plusieurs images :
1 - une lampe allumée , qui s'affiche qd NBR = 1
2 - une lampe eteinte , qui s'affiche qd NBR = 2

Je posséde egalement une feuille ( MENU ) sur laquelle ce trouve des OptionButtons
l'un permet de mettre la variable NBR à 1 , le second à 0 .

Les états de NBR c'est quoi finale ment 1 ou 2 // 1 ou 0 ...?

[Lucas42]

Désolé , je suis aller trop vite , oui mon projet c des vannes , mais c kil y a bcp plus de choix , donc j'ai pris l'exemple des lampes .

donc ui allumé NBR = 1
eteint NBR = 0

donc dans EtatImg , il faut remplacer Etat_van par NBR ^^

[jmfmarques]

Le problème est celui de ton activex et de ses propriétés !
Quel est le nom de l'activeX et quelles propriétés as-tu définies pour lui ?

Si cet activex affice une image, tu dois lui "construire" une propriété (allumé, par exemple, avec valeurs possibles True ou False)

Je voudrais bien voir la partie du code (de ton usercontrol) où tu as défini ses propriétés !

Si ton activex est construit normalement, avec une propriété "allumé" par exemple,
dans ta Form :
nomactivex.allumé = True ou = False (selon le cas)

Maintenant : pourquoi diable passer par un activex pour faire si peu ???
Si ce n'est pas un exercice qu'on t'impose (encore une fois), il y a beaucoup plus simple et efficace à faire

[Lucas42]

Et bien , j'utilise un activex car je veut pouvoir l'importer dans un logiciel de supervision InTouch .

voici le code de mon activeX :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Dim cligno As Integer
Sub EtatImg()
 Imgferme.Visible = (Etat_van = 0)     ' image de la vanne fermée
 Imgouvert.Visible = (Etat_van = 1)      ' image de la vanne ouverte
 Imgdefaut.Visible = (Etat_van = 2)     ' image de la vanne en defaut
 Imgindefinit.Visible = (Etat_van = 6)  ' image de la vanne en position non definit
End Sub
 
Private Sub Imgferme_DblClick()         ' pour faire apparaitre le menu
menu.Show
End Sub
Private Sub Imgouvert_DblClick()        ' pour faire apparaitre le menu
menu.Show
End Sub
Private Sub Imgindefinit_DblClick()     ' pour faire apparaitre le menu
menu.Show
End Sub
Private Sub Imgdefaut_DblClick()        ' pour faire apparaitre le menu
menu.Show
End Sub
Private Sub Timer1_Timer()              'Gestion du Timer pour faire clignoter l'image defaut
cligno = cligno + 1
    Select Case cligno
    Case 1
        Imgdefaut.Visible = False
    Case 2
        Imgdefaut.Visible = True
cligno = 0
End Select
End Sub
Private Sub UserControl_Initialize()
If menu.Etat_van = 0 Then
    EtatImg
End If
If menu.Etat_van = 1 Then
    EtatImg
End If
If menu.Etat_van = 2 Then
    EtatImg
End If
If menu.Etat_van = 6 Then
    EtatImg
End If
End Sub

et le code de ma form est :

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
Public Etat_van As Integer
Private Sub Option1_Click()     ' OptionButton simulant Etat_van = 0
If Option1 = True Then
Etat_van = 0
End If
End Sub
Private Sub Option2_Click()     ' OptionButton simulant Etat_van = 1
If Option2 = True Then
Etat_van = 1
End If
End Sub
Private Sub Option3_Click()     ' OptionButton simulant Etat_van = 2
If Option3 = True Then
Etat_van = 2
End If
End Sub
Private Sub Option4_Click()     ' OptionButton simulant Etat_van = 6
If Option4 = True Then
Etat_van = 6
End If
End Sub

et je comprend pas pourquoi cela ne fonctionne pas ???

[SfJ5Rpw8]

bon j'ai lu ton code en travers (oui je suis un peu occupé en pleine partie de belote sur zonejeux ..) et j'ai pas vu ou tu as déclaré eta_vann dans ton activeX?

de plus sur l'initialize de ta form .. pourquoi t'embête tu pour tester la valeur d'eta_vann avant l'appel de la sub Etat_img... appelle la procédure dans tous les cas...


bon j'ai vu la déclaration ... alors ce qui manque c'est peu-être un appel à la fonction Etat_img sur changement d'état de eta_vann (clic sur chec box..)