Je ne comprends pas ta question.
Sur ma form j'ai mis un bouton lecture
Faut il rajouter quelque chose sur la form
Si oui, peux tu me dire quel type objet ?
Merci
Je ne comprends pas ta question.
Sur ma form j'ai mis un bouton lecture
Faut il rajouter quelque chose sur la form
Si oui, peux tu me dire quel type objet ?
Merci
Faut-il lui donner un nom ?
Items1 ... ou modifier ses propriétés.
Cet objet devrait changer a chaque fois que je modifie l'état de ma variable ?
Merci
bonjour bbil,
Je n'arrive à voir le changement de couleur Du shape lorsque je change l'état de ma variable.
As tu une idée ?
merci
non pas vraiment d'idée... la variable est lue a chaque appui sur le bouton essai de regarder (en posant un point d'arrêt par exemple) la valeur de oItem1.Value...
Comment tu peux visualiser oItem1.Value ?
La couleur devrait être rouge si la variable est active ?
Non vert... FF00..
si tu ne sais pas visualiser l'état d'une variable dans l'éditeur VB, difficile de debuger....
tu devrais faire un tour sur la page cours :
http://vb.developpez.com/cours/
Bonsoir,
C'est laborieux mais j'avance.
Après quelques corrections de syntaxe des BP, je vois bien ma variable changée après chaque relecture.
L'exécution s'arrête sur ce code:
Erreur exécution '424' un objet est requis
Code : Sélectionner tout - Visualiser dans une fenêtre à part shItem1.BackColor=IIf(oItem1.value = True, &HFF00&, &H80000005)
As tu une idée ?
Merci
supprime la ligne ...
si tu vois l'état de ta variable oItem1 .. et quelle ressemble à ma copie d'écran .. tu as bien du créer la variable...
et pour "shItem1", je pense que tu as bien du le créer depuis le temps ce shape ?
Bonjour bbib,
Tout fonctionne ...
Je tiens à te remercier pour tes conseils et ta patience.
Je vais essayer de progresser en VB...
j'aurais deux questions ...
- Tu as mis quoi pour la déclaration de tes items ...? l'adresse automate %... ou le symbole ..
- as tu tester la partie sur événement avec oGrp1_DataChange...
Bonsoir bbib,
J'ai mis du temps sur le shape, car j'ai découvert la propriété BackStyle au bout d'un certain temps.
Au sujet de l'Item1, je suis passé par un bit interne de l'API (%M5) avec le mnémonique cela ne fonctionne pas.
Pour la partie DataChange, je t'avoue je n'ai pas bien compris ce que cela doit faire.
Déja le rôle de cette ligne
Je voulais la remplacer par
Code : Sélectionner tout - Visualiser dans une fenêtre à part oGrp1.OPCItems.AddItem "simulateur!Weighing_Material_A", 2Je vais essayer de créer un deuxième item mais avec un mot interne, pour essayer d'afficher l'état d'une entrée analogique.
Code : Sélectionner tout - Visualiser dans une fenêtre à part oGrp1.OPCItems.AddItem "aout!%mw100", 2
Si tu as des idées,mais je ne veux pas abuser ..
D'avance merci
lors de la création (ajout) des items tu dois gérer un numéro de rang.. (ou index.. ou ID appelle cela comme tu veux..) c'est à cela que sert le 2 ...(je n'ai que 2 variables j'ai pas gérer grand chose...)
ensuite .. la fonction événementielle oGrp1_DataChange et déclenché automatiquement sur changement d'état d'une des variables du groupe .. tu n'as donc pas à faire de lecture périodique..
Code : Sélectionner tout - Visualiser dans une fenêtre à part oGrp1.OPCItems.AddItem "aout!%mw100", 2
Bonjour bbil,
J'ai rajouté une deuxième variable avec comme syntaxe
Lors de l'éxécution
Code : Sélectionner tout - Visualiser dans une fenêtre à part oGrp1.OPCItems"aout!%m6",2
J'ai une erreur de compilation
Instructions et étiquettes invalides entre Select Case et première occurence de Case
Sh2Items1.BackColor en surbrillance.
Si tu as une idée ?
montre nous ta fonction : oGrp1_DataChange
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub oGrp1_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date) Dim i As Integer For i = 1 To NumItems Select Case ClientHandles(i) Sh2Item1.BackColor = IIf(ItemValues(i) = True, &HFF00&, &H80000005) Case 2 ' ClientHandle utilisé lors de l'ajout de l'item weighing_Material_A ' LbMaterielA.Caption = CStr(ItemValues(i)) End Select Next End Sub
Cela fonctionne pour le premier item
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager