Discussion :

[afrodje]

Salut

Voici mon code

Code :

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

1
2
3
4
 Do Until (IsNumeric(prix))
            'chr(13) et 10 permette le saut de ligne et revenir au debut de ligne
            prix = InputBox("Entrez le montant du nouveau frais fixe " & Chr(13) & Chr(10) & " Seulement des nombres", "Ajout de donnée")
        Loop

Mon problème est que si l'utilisateur veut annulé l'opération (avec le bouton annulé du InputBox ), il ne peut pas car le Do...Until boucle.

Comment l'empêcher?

[boubounne]

tu pourrais mettre uèn peu pus de code que je test stp, sinon, si tu rajoute une condition or dans ton do until ??

[afrodje]

oui j'ai déjà fais ça

Code :

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

Do Until (IsNumeric(prix) Or prix Is DBNull.Value)

Voila le code entier mais cela ne te servira pas plus, je n'ai mis que l'essentiel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  Private Sub but_ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_ajouter.Click
        Dim nom As String
        Dim prix As String
 
        nom = InputBox("Entrez le nom du nouveau frais fixe", "Ajout de donnée")
 
        Do Until (IsNumeric(prix) Or prix Is DBNull.Value)
            prix = InputBox("Entrez le montant du nouveau frais fixe " & Chr(13) & Chr(10) & " Seulement des nombres", "Ajout de donnée")
        Loop
        requete_insert_into_frais_fixe(nom, prix)
 
    End Sub

[boubounne]

bon je l'admet c'est pas propre.... mais ca marche ^^, je regarde si je trouve mieux..

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
 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nom As String
        Dim prix As String
 
        nom = InputBox("Entrez le nom du nouveau frais fixe", "Ajout de donnée")
 
        prix = "test"
        Do Until (IsNumeric(prix) Or prix = "")
            prix = InputBox("Entrez le montant du nouveau frais fixe " & Chr(13) & Chr(10) & " Seulement des nombres", "Ajout de donnée")
            MessageBox.Show(prix)
        Loop
 
    End Sub

[afrodje]

bon je l'admet c'est pas propre.... mais ca marche ^^, je regarde si je trouve mieux..

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
 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nom As String
        Dim prix As String
 
        nom = InputBox("Entrez le nom du nouveau frais fixe", "Ajout de donnée")
 
        prix = "test"
        Do Until (IsNumeric(prix) Or prix = "")
            prix = InputBox("Entrez le montant du nouveau frais fixe " & Chr(13) & Chr(10) & " Seulement des nombres", "Ajout de donnée")
            MessageBox.Show(prix)
        Loop
 
    End Sub

Tant que ça marche !

[boubounne]

ben ca marche mais si tu met pas de valeur et que tu clic sur OK il quitte ...

[afrodje]

Alors ça ne marche pas

[boubounne]

a la limite tu rajoute une message box de type YES/CANCEL, si la valeur est vide (=> soit c'est annulé, soit le gars n'a rien mis), tu affiche cette box, et selon la valeur de retour, tu continu ou pas ... je fais le code et je te le donne dans 5 min

[boubounne]

Je te l'offre sur un plateau ^^ bon j'admet que c'est pas terrible mais au moin ca marche 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
 
Dim test As String
        Dim bool As Boolean
        Dim message As String
 
        bool = False
 
        While bool = False
            test = InputBox("Entrez le montant du nouveau frais fixe " & Chr(13) & Chr(10) & " Seulement des nombres", "Ajout de donnée")
            If test = "" Then
                message = MessageBox.Show("Valeur vide ou appui sur la touche cancel", "Attention", MessageBoxButtons.YesNo)
                If message = 6 Then
                    bool = True
                End If
            Else
                Try
                    Integer.Parse(test)
                    bool = True
                Catch ex As Exception
                    bool = False
                End Try
            End If
 
        End While

[olsimare]

Bonjour.

Pourquoi ne pas utiliser une form de saisie modale au lieu de l'inputbox ? Ca rendra l'interface plus sympa.

Cdt?

[afrodje]

Bonjour.

Pourquoi ne pas utiliser une form de saisie modale au lieu de l'inputbox ? Ca rendra l'interface plus sympa.

Cdt?

Créer par moi même?

L'outil inputBox, autant l'exploité...

[afrodje]

Je te l'offre sur un plateau ^^ bon j'admet que c'est pas terrible mais au moin ca marche 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
 
Dim test As String
        Dim bool As Boolean
        Dim message As String
 
        bool = False
 
        While bool = False
            test = InputBox("Entrez le montant du nouveau frais fixe " & Chr(13) & Chr(10) & " Seulement des nombres", "Ajout de donnée")
            If test = "" Then
                message = MessageBox.Show("Valeur vide ou appui sur la touche cancel", "Attention", MessageBoxButtons.YesNo)
                If message = 6 Then
                    bool = True
                End If
            Else
                Try
                    Integer.Parse(test)
                    bool = True
                Catch ex As Exception
                    bool = False
                End Try
            End If
 
        End While

Y avait juste une petite erreur.
Voila le code fonctionnel :

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
While bool = False
            test = InputBox("Entrez le montant du nouveau frais fixe " & Chr(13) & Chr(10) & " Seulement des nombres", "Ajout de donnée")
            If test = "" Then
                message = MessageBox.Show("Voulez vous entrez la donnée?", "Attention", MessageBoxButtons.YesNo)
                'l'erreur venait de la. Ce n'est pas 6 mais 7 (correspond à non)
                If message = 7 Then
                    bool = True
                End If
            Else
                Try
                    prix = Integer.Parse(test)
                    bool = True
                    'operation a effectuer
                Catch ex As Exception
                    bool = False
                End Try
            End If
 
        End While

[boubounne]

ok moi je pensait plus dans la message box a "ete vous sur de vouloir quitter" plutot que "voulez vous entrer la donnée", desolé ^^

[harz62]

Bonjour,

Il me semble que la méthode TryParse est plus performante que la méthode parse.

Je remplacerais ce code :

Code :

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

1
2
3
4
5
6
7
 
Try
   prix = Integer.Parse(test)
   bool = True
Catch ex As Exception
     bool = False
End Try

par celui la:

Code :

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

bool = Integer.TryParse(test,prix)

Par contre je crois qu'il dois y avoir un problème au niveau du prix car lorsque bool = false, prix = 0 avec TryParse