bonjour à tous je débute en vb et j'ai commencer mon premier programme
voici un bout de mon code sur lequel je n'arrive pas à me dépatouiller
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
45
46
Public Class Form6
    Dim mise2 As Integer = 20
    Dim coin As Integer
 
    Private Sub bt_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_1.Click
 
        If mise2 = 0 Then
            Me.lb.Text = mise2
        Else : mise2 = mise2 - 1
            Me.lb.Text = mise2
        End If
 
    End Sub
 
    Private Sub bt_10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_10.Click
 
        If mise2 = 0 Then
            Me.lb.Text = mise2
        Else : mise2 = mise2 + 10
            Me.lb.Text = mise2
        End If
 
    End Sub
 
    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.lb.Text = mise2
        mise2 = 20
        tb_coin.Select()
    End Sub
 
 
 
    Private Sub bt_coin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_coin.Click
        Dim coin As Integer
        coin = tb_coin.Text
        Me.lb.Text = coin + mise2
    End Sub
 
    Private Sub lb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lb.Click
 
    End Sub
 
    Private Sub tb_coin_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_coin.TextChanged
 
    End Sub
End Class
quand je saisie dans la zone de texte 20 j'obtien 40 dans le label lb ce qui normal mais quand je click sur le bouton bt_1 lb me renvoi le résultat 19
apparament le label lb tient en compte des valeur de bt_1 et bt_10 (-1 , + 10)
je doit zapper un truc je pense
Merci