Discussion :

[SfJ5Rpw8]

du moin si , dés que je lance l'execution , c toujours la mm image qui s'affiche car Etat_Van par defaut =0, mais ca le fais qu'à l'initialisation, donc si je clique sur OptionButton , qui indique que Etat_van=1 , l'image devrait changer , et c'est pas le cas , car la variable n'est pas mis à jour

pour tes tests tu as rajouter l'appel à ta fonction de mise à jour dérriere tes optionbutton ?

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Option1_Click()     ' OptionButton simulant Etat_van = 0
If Option1 = True Then
Etat_van = 0
End If
etatImg
End Sub
...

[Lucas42]

Euh , et bien , je dois concevoir un activeX sur lequel se trouve une image , celle d'une vanne . elle peut prendre plusieurs couleurs :
vert : ouverte
noir : fermée
rouge : defaut
gris : indefinit

ensuite cet activex est compilé , importer sous InTouch ( logiciel de supervison )
Le pc sur lekel ce trouve Intouch , est relié a un automate , ce dernier communique des variable comme Etat_van.

donc mon soucis etait de recupérer linfo ,mais en fait il suffit de la mettre en globale ( pour la configue , c tout sous intouch , il me suffi de la mettre en global sous vb6 , de bien paramétré sous intouch et le tour est joué )
mais aprés , sous vb je narrive pas à recupérer en continu la variable Etat_van , le programme tourne correctement seulement lors de linitialisation .

en fait mon programme recupere qu'UNE SEULE fois la variable Etat_van, et c la que je comprend plus rien ..............

[SfJ5Rpw8]

en fait mon programme recupere qu'UNE SEULE fois la variable Etat_van, et c la que je comprend plus rien ..............

non comme je te l'ai déjà dit plus haut, tu ne peu pas savoir si ton prgramme ne récupére qu'une SEULE fois la variable ou plusieurs...! vu que tu ne t'en sert q'UNE FOIS de la variable sur l'initialisation de ton contrôle ... ! !!!


PS : Soit dit en passant si ton activeX ne fait que l'affichage d'un bipmap en fonction d'une variable tu aurai plus vite fait de traiter cela sous intouch.. sans développer un ActiveX//

[Lucas42]

En fait il me faut un activeX sur lekel ce trouve 2 images , VERTE , ROUGE
Une form sur laquel ce trouve 2 OptionButtons
si je clique sur le premier boutton , ca doit afficher limage VERTE
si je clique sur le second boutton , ca doit afficher limage ROUGE

mais vu que c'est pas sur la mm form , il faut une variable globale qui ce met a jour tout le tps , sinon l'action des bouttons ne servirai à rien ....

[Lucas42]

Bon , pour aujourd'hui je crois que je vais arrété pour ce ki est de la variable global et de l'image .............

merci , jvais regarder la parti GRAPHISME ^^

[Lucas42]

en fait j'ai perceveré mais ca ne marche k'a l'initialisation
donc si kk1 à le gout de copier le code sur son VB6 et regarder pk ca va pas ????
il suffit de 4 images sur la premiere form
4 option boutton sur la seconde form

code de la 1ere form

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Private Sub UserControl_Initialize()
menu.Show
If menu.CHGT = 0 Or menu.CHGT = 1 Or menu.CHGT = 2 Or menu.CHGT = 3 Then
kelimage
End If
End Sub
Sub kelimage()
Image1.Visible = (menu.CHGT = 0)
Image2.Visible = (menu.CHGT = 1)
Image3.Visible = (menu.CHGT = 2)
Image4.Visible = (menu.CHGT = 3)
End Sub

code de la 2iéme form

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
 
Option Explicit
Public CHGT As Integer
Private Sub Option1_Click()
If Option1 = True Then
CHGT = 0
End If
End Sub
Private Sub Option2_Click()
If Option2 = True Then
CHGT = 1
End If
End Sub
Private Sub Option3_Click()
If Option3 = True Then
CHGT = 2
End If
End Sub
Private Sub Option4_Click()
If Option4 = True Then
CHGT = 3
End If
End Sub

[SfJ5Rpw8]

en fait j'ai perceveré mais ca ne marche k'a l'initialisation
donc si kk1 à le gout de copier le code sur son VB6 et regarder pk ca va

On n'as pas besoin de copier ton code pour voir que la procédure que tu as rennommer maintenant
kelimage ... n'est appellé qu'une seule fois à l'initialisation du controle ! donc les propriété visible de tes images ne sont mis à jour qu'a ce moment la .

[Lucas42]

oui jme doute bien ^^ mais c t une facon de connaitre la reponse à mon pb , car j'ai essayé des trucs mais ca marche tj pas , en plus VB je ne le connais pas trop , je connais plus C++ Builder , qui est fort ressemblant mais bcp moin suptil que VB6 , donc je nage un peu , ca viendra je pense vu ke jvai en faire pd 2 mois , mais si je commence deja a bloqué la .................... jvais pas avancer bien vite ....

[SfJ5Rpw8]

ocar j'ai essayé des trucs mais ca marche tj pas ,

l'appel de la procédure de mise à jour sur action sur LES boutons options tu la essayé... comme je te l'ai écrit plus haut :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Option1_Click()     ' OptionButton simulant Etat_van = 0
If Option1 = True Then
Etat_van = 0
End If
etatImg
End Sub
...

[Lucas42]

oui j'ai essayé mais ca me dit ceci

erreur de compilation
procédure sub ou fonction non definie

normale vu ke la fonction etatimg est sur une autre form
il fodrai ke cette fonction soit globale , mais es ce possible ??
?????????

[SfJ5Rpw8]

essai :

Code :

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

1
2
 
UserControl.KelImage

[Lucas42]

non pas mieux , ca met

UserControl : Variable non definie

[Lucas42]

Bon et bien , j'ai essayé avec tout simplement un timer , et quoi ?? miracle ca marche nickel !!
Merci
Amilcalement lucas

[SfJ5Rpw8]

Bon et bien , j'ai essayé avec tout simplement un timer , et quoi ?? miracle ca marche nickel !!
Merci
Amilcalement lucas

a bon ... dommage que tu l'ai pas fais hier à 14h48... quand je te l'ai demandé

Par contre quand tu en sera plus sur la méthode de passage des valeurs des variables entre Intouch et ton ActiveX pourra tu me faire savoir la méthode utiliser ... je doute que cela se fasse "tout seul"

[Lucas42]

ok no soucis