Discussion :

[Jcvag44800]

Bonsoir,

J'aimerais savoir comment récuperer la valeur d'un textbox de type double s'il vous plait.
Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form1
 
    Private Sub BT_CALCUL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_CALCUL.Click
        Dim CONSO As Double
        Dim NBK As Double
        Dim PrixE As Double
        Dim Cout As Double
        Cout = ((NBK / 100) * CONSO) * PrixE
        Me.TextBox4.Text = Cout
    End Sub
 
End Class

Cordialement.

[hunteshiva]

Bonjour,

• Quel est la vraie question?

ici on voit un bout de code qui permet de remplir la TextBox4 avec un double.

• Tu souhaite la récupérer après?

il te suffit simplement de convertir un String en Double
Pour ça rien de plus simple que + "string double vb.net"
Une réponse qui devrait répondre à ton soucis

• Pourquoi passer par une TextBox?

Si tu veux seulement afficher ta valeur, passe plutôt par un Label
L'utilisateur risque de modifier la valeur *a moins que tu Bloque la TextBox*
Bref c'est pas clair

[Jcvag44800]

Salut,

Voilà, tout marche très bien

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Public Class Form1
    Dim Valeur As Boolean = True
 
    Private Sub BT_CALCUL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_CALCUL.Click
        Dim CONSO As String = 0
        CONSO = TextBox_CONSO.Text
        Dim CONSO2 As Double
        Dim NBK As String = 0
        NBK = TextBox_NBK.Text
        Dim NBK2 As Double
        Dim PrixE As String = 0
        PrixE = TextBox_PrixE.Text
        Dim PrixE2 As Double
        Dim Cout As Double = 0
        Dim Calcul2 As Integer = 0
        Verification()
        If Valeur = True Then
            Do
                Do
                    CONSO = TextBox_CONSO.Text
                Loop Until Double.TryParse(CONSO, CONSO2)
                Do
                    NBK = TextBox_NBK.Text
                Loop Until Double.TryParse(NBK, NBK2)
                Do
                    PrixE = TextBox_PrixE.Text
                Loop Until Double.TryParse(PrixE, PrixE2)
 
                Cout = ((NBK2 / 100) * CONSO2) * PrixE2
                Me.TextBox4.Text = Cout
 
            Loop Until Calcul2 = 0
        Else
            MsgBox("Merci d'entrer une valeur correcte.")
            CONSO = 0
            CONSO2 = 0
            NBK = 0
            NBK2 = 0
            PrixE = 0
            PrixE2 = 0
            Cout = 0
            Calcul2 = 0
            Me.TextBox_CONSO.Text = ""
            Me.TextBox_NBK.Text = ""
            Me.TextBox_PrixE.Text = ""
            Valeur = True
        End If
    End Sub
 
    Function Verification()
 
        If Me.TextBox_CONSO.Text Is Nothing Or Not IsNumeric(Me.TextBox_CONSO.Text) Then
            Valeur = False
        End If
        If Me.TextBox_NBK.Text Is Nothing Or Not IsNumeric(Me.TextBox_NBK.Text) Then
            Valeur = False
        End If
        If Me.TextBox_PrixE.Text Is Nothing Or Not IsNumeric(Me.TextBox_PrixE.Text) Then
            Valeur = False
        End If
        Return True
    End Function
End Class

Le code est lourd je trouve.
Bref, voici l'executable pour voir si tu aime le graphique ^^

http://www.mediafire.com/?q9q0hbzuanbtb1n

EDIT:

Le voici avec une amélioration: http://www.mediafire.com/?69svzqpozuag4lf