Do..Until avec InputBox

Version imprimable

Salut

Voici mon code
Code:

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 :aie:), il ne peut pas car le Do...Until boucle.

Comment l'empêcher?

18/02/2008, 11h08
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 ??

oui j'ai déjà fais ça

Code:

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:

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

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

Code:

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

Citation:

Envoyé par boubounne

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

Code:

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 !

20/02/2008, 11h38
boubounne

ben ca marche mais si tu met pas de valeur et que tu clic sur OK il quitte ...
20/02/2008, 11h50
afrodje

Alors ça ne marche pas :roll:
20/02/2008, 12h05
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

Je te l'offre sur un plateau ^^ bon j'admet que c'est pas terrible mais au moin ca marche bien

Code:

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

20/02/2008, 15h49
olsimare

Bonjour.

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

Cdt?
21/02/2008, 10h25
afrodje

Citation:

Envoyé par olsimare

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é...

Citation:

Envoyé par boubounne

Je te l'offre sur un plateau ^^ bon j'admet que c'est pas terrible mais au moin ca marche bien

Code:

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:

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

21/02/2008, 15h37
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é ^^
21/02/2008, 16h09
harz62
Bonjour,

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

Je remplacerais ce code :
Code:

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:

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