Discussion :

[drics]

Bonjour,

Je dois faire évoluer un code en VB6 et je reste perplexe devant la signification des lignes ci-dessous.

Code :

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

1
2
3
4
5
6
Private Sub Option_Mark_Click(Index As Integer)
If Option_Mark(0).Value = True Then SelectionAttributes = SelectionAttributes And 231
If Option_Mark(1).Value = True Then SelectionAttributes = (SelectionAttributes And 239) Or 8
If Option_Mark(2).Value = True Then SelectionAttributes = (SelectionAttributes And 247) Or 16
If Option_Mark(3).Value = True Then SelectionAttributes = SelectionAttributes Or 24
End Sub

Comment peut il y avoir des "And" et "Or" pour determiner "SelectionAttributes " ? Comment traduire ces lignes svp ?

Merci,

Drics.

[sevyc64]

Ben déja on va oublier le If et ne garder que l'instruction qui nous interesse :

Code :

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

SelectionAttributes = SelectionAttributes And 231

On attribut à la variable SelectionAttributes, une valeur déterminée à partir de la valeur actuelle de SelectionAttributes à laquelle on applique un masque logique ET avec la valeur 231.
En gros, si on regardait au niveau des bits, on conserve les bits de SelectionAttributes qui correspondent aux bits à 1 de la valeur 231, les autres sont forcés à 0

Pour un masque OR, on force les bits à 1 correspondant aux bits à 1 de la valeur binaire, les autres sont gardés à 0

[drics]

merci sevyc64,

C'est ce que je pensais mais la syntax me choque, il ne faudrait pas plutôt écrire & et | ? ou pas ?

[sevyc64]

& et | c'est du C.

Je me souvient pas si ça existe en VB6

[DAUDET78]

C'est ce que je pensais mais la syntax me choque,

En VB6, les opérateurs logiques sont

Code :

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

Or Not And Xor

On ne peut rien y changer ......