Discussion :

[stracoma]

Bonsoir. Je vous sollicite pour résoudre un problème.
J'ai créé un projet où il y a 4 form
- Form1 avec TextBox1 et Button1
- Form2 avec TextBox1 et Button1
- Form3 avec TextBox1 et Button1
- Form4 avec Label1
A l'exécusion:
J'ai Form1 au début, je tape un nombre dans TextBox1 et je clique sur Button1, Form2 apparait, même procédure pour Form2 et Form3.
Mais ce que je ne sais pas faire c'est avoir dans le Label1 de Form4, la somme de tous les Textbox1.
Merci de votre aide

[shayw]

Bonjour

D'abord
1 Active option explicit on et option strict on (projet ->proprieté de ton projet > onglet compiler) et recompile ton projet
si c'est fait tant mieux


2 tes textbox contiennent des strings donc pour pouvoir faire avec des opértions il faut vérifier s'ils sont numérique

Code :

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

1
2
3
4
5
6
7
8
9
Dim str As String = "12234"
        Dim str1 As String = "544"
        Dim str2 As String = "888"
        Dim p, p1, p2 As Integer
        Dim sum As Integer
        If Integer.TryParse(str, p) AndAlso Integer.TryParse(str1, p1) AndAlso Integer.TryParse(str, p1) Then
            sum = p + p1 + p2
           label1 = sum.tostring
        End If

integer.tryparse essaie de convertir un string en type integer et renvoi un boolean true ou false s'il réussit

[stracoma]

Merci shayw, mais peut être que vous n'avez pas compris ce que je veux (ou je suis trop nul pour comprendre votre code).
Le but est d'avoir dans Label1 de Form4, la somme des nombres saisis dans TextBox1 de Form1, TextBox1 de Form2 et de TextBox1 de Form3
(Pour TextBox1.text, ne vous en faites pas, il est numérique)

[stracoma]

J'ai finalement trouvé la solution, mais s'il y a mieux vous me le dites

Code :

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

1
2
3
4
5
6
7
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Visible = False
        Form2.Show()
    End Sub
End Class

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form2
 
    Private Sub Form2_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        Form1.Show()
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form3.Show()
        Me.Visible = False
    End Sub
End Class

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Class Form3
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Visible = False
        Form4.Show()
    End Sub
 
    Private Sub Form3_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        Form2.Show()
    End Sub
End Class

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Class Form4
 
    Private Sub Form4_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        Form3.Visible = True
 
    End Sub
 
    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim p = CType(Form1.TextBox1.Text, Integer)
        Dim p1 = CType(Form2.TextBox1.Text, Integer)
        Dim p2 = CType(Form3.TextBox1.Text, Integer)
        Me.Label1.Text = (p + p1 + p2).ToString
    End Sub
End Class

[shayw]

Si j'ai compris ce que tu demandes
(Pour TextBox1.text, ne vous en faites pas, il est numérique)

regardes ce post http://www.developpez.net/forums/d14...-user-textbox/

[stracoma]

Dans ton code j'étais embrouillé car je ne vois pas d'affectation de p, p1 et p2 aux TextBox . En plus TryParse, je ne la connais pas encore (je suis à mes débuts)
(Mais il m'a donné l'idée)
merci