Problème de Button ou Sub "BTN1Elan_Click"

Question

Bonjour à tous.

Dans une Form j'ai un Button qui doit m'afficher 2 résultats, une addition et un résultat après lecture dans la même Sub d'une "equivalence" Exemple si résultat = 5 équivalence = 3"

Cela fonctionne bien si je clique 2 fois sur mon button. D'abord il m'affiche 0, puis après le 2ème clique le bon résultat s'affiche ainsi que l'équivalence. Comment puis-je résoudre ce problème.

PS j'ai 2 autres questions (dois-je faire deux autres demandes)

Merci Beaucoup

Pop85

yg_be · Answer

bonjour,

il faut probablement adapter le code.  Difficile d'être plus précis avec les informations que tu donnes.

Pop85 · Answer

Bonsoir voici la Sub concernée. J'ai évidement déclaré mes variables en "Dim vTbResVoyN1L1 As Integer"

ensuite pour les calculs j'ai écrit "vTbResVoyN1L1 = Val(TbResVoyN1L1.Text)

Voici une partie de ma Sub

Public Sub BTN1Elan_Click(sender As Object, e As EventArgs) Handles BTN1Elan.Click

Dim vTbResVoyN1L1,  vTbResVoyN1L2, vTbResVoyN1L3, (et ainsi de suite jusqu'a 20) As Integer

TbNomTotVoyMotiv.Text = vTbResVoyN1L1 + vTbResVoyN1L2 + vTbResVoyN1L3 + vTbResVoyN1L4 +  vTbResVoyN1L5 +
        vTbResVoyN1L6 + vTbResVoyN1L7 + vTbResVoyN1L8 + vTbResVoyN1L9 + vTbResVoyN1L10 + vTbResVoyN1L11 +
        vTbResVoyN1L12 + vTbResVoyN1L13 + vTbResVoyN1L14 + vTbResVoyN1L15 + vTbResVoyN1L16 + vTbResVoyN1L17 +
        vTbResVoyN1L18 + vTbResVoyN1L19 + vTbResVoyN1L20

1er résultat demandé (somme des voyelles)

TbNomTotVoyMotiv.Text = vTbResVoyN1L1 + vTbResVoyN1L2 + vTbResVoyN1L3 + vTbResVoyN1L4 + vTbResVoyN1L5 +
vTbResVoyN1L6 + vTbResVoyN1L7 + vTbResVoyN1L8 + vTbResVoyN1L9 + vTbResVoyN1L10 + vTbResVoyN1L11 +
vTbResVoyN1L12 + vTbResVoyN1L13 + vTbResVoyN1L14 + vTbResVoyN1L15 + vTbResVoyN1L16 + vTbResVoyN1L17 +
vTbResVoyN1L18 + vTbResVoyN1L19 + vTbResVoyN1L20

2éme résultat demandé,

TbNomMotiv1.Text = vTbNomMotiv

Les deux résultats s'affiche au 2ème clique sur le button. Je peux te faire une copie de la suB si tu le souhaites;

Merci

Pop85

Problème de Button ou Sub "BTN1Elan_Click"

2 réponses

Discussions similaires

Newsletters