Addition TextBox ?Résolu

Question

Bonjour, 
J'apprends petit a petit le vb et j'ai une question.
J'voudrais faire en sorte de, par exemple 
Si la somme des Textbox1,Textbox2,Textbox3,Textbox4 est égal a 100 
mettre un petit msgbox

J'ai essaye comme ça :
İf TextBox1.text + TextBox2.text + TextBox3.text + TextBox4.text = 100 Then
MsgBox(" :D ")
End İf

Mais ça marche pas j'attands votre aide !

Merci d'avance .

cs_Le Pivert · Accepted Answer

Bonjour,

toujours mettre Option Strict On

ne pas mettre MsgBox(" :D ") en VB.Net

Voilà le code:

Option Strict On
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) = 100 Then
            MessageBox.Show(" :D ", "Résultat", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub
End Class

ucfoutu · Answer

Bonjour,

Une textbox contient des valeurs de type String, qu'il convient de convertir en numérique pour faire ce que tu veux faire
Cette méthode de conversion est différente en VB.Net et en VB6, VBA et VBS.
Or,  Tu as ouvert cette discussion dans le forum général Visual Basic,  qui comprend plusieurs sous-forums ===>>> impossible donc, en l'état, de répondre en connaissance de cause !

The-Moon · Answer

Je cherche à savoir sur VB.net

ucfoutu · Answer

Je déplace donc ver le sous-forum VB.Net.
Je ne connais pas VB.Net, mais lis ceci :
https://msdn.microsoft.com/fr-fr/library/3s27fasw%28v=vs.110%29.aspx
qui permet la conversion en double à virgule flottante
A toi de voir en quel genre de nnumériquè_e tu veux convertir tes strings ...

Zermelo · Answer

Bonjour The-Moon

Public Class Accueil

Private Sub Accueil_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
        Dim Txt As String = "", Int As Integer = 0, Ok As Boolean = False

Txt = "2507"
        Ok = Integer.TryParse(Txt, Int)
        MessageBox.Show(Ok.ToString)
        MessageBox.Show(Int.ToString)
    End Sub

End Class 


Voici le code que proposait Ucfoutu. Je vous suggère de le tester avec un texte représentant un nombre entier, puis de recommencer avec un texte n'en représentant pas un.
Cordialement

The-Moon · Answer

Merci beaucoup de votre aide je vais essayé ça :D 

Bonne journée :D

Addition TextBox ?

6 réponses

Votre réponse

Discussions similaires