Fermer in InputBox qui est dans un FOR,NEXT sans devoir fermer tout le formulair [Résolu]

CDEProgrammeur 23 Messages postés jeudi 7 octobre 2010Date d'inscription 20 juillet 2012 Dernière intervention - 18 oct. 2010 à 01:12 - Dernière réponse : CDEProgrammeur 23 Messages postés jeudi 7 octobre 2010Date d'inscription 20 juillet 2012 Dernière intervention
- 18 oct. 2010 à 01:50
Et bien voilà.

Pour mon travail d'école je dois utiliser la fonction InputBox pour recevoir des valeurs donnés par l'usager. Juste un petit
exemple TRÈS vite fait pour vous expliquer mon problème et comment j'aimerais le résoudre!


Dim exemple as string


For i as integer = 1 to 10

string = CStr(InputBox("Exemple"))


Next


Bon comme vous avez remarqués dans le for jai mon InputBox qui sera un "pop-up" tant que le for n'aura pas looper 10 fois.
Peu importe si l'usager clic sur le petit "X" du coin droit ou si il click sur le boutton "Annuler" le InputBox continuera
de suivre la valeur du FOR,NEXT.

Je ne vois pas trop comment faire pour que si l'usager clic sur le "X" ou sur "Annuler" le InputBox, celui-ci se fermera.

Pour le moment j'utilise une petite vérification..Je dit a l'usager d'écrire fermer dans la case du texte pour que le
programme se termine, mais le formulaire entier se ferme. L'exemple si dessous.

P.S : notes est la variable qui tient mon inputBox.

 If notes "fermer" Or notes "Fermer" Then

 Me.Close()

End If


Est-ce possible de seulement fermer le InputBox? Je ne vois pas trop comment..Dans ma tête je me dit qu'il fodrais sortir du loop mais je ne sais pas trop quoi faire pour que ca marche.


Merci pour votre aide
Afficher la suite 

3 réponses

Répondre au sujet
NSUADI 540 Messages postés mardi 4 août 2009Date d'inscription 1 février 2013 Dernière intervention - 18 oct. 2010 à 01:47
+3
Utile
Mets un :
Exit For

au lieu de:
Me.Close()

Ce qui compte,ce n'est pas ce qu'on a mais plutôt ce que l'on fait avec ce qu'on a...

Visual Basic .Net is the best
and vb6.0
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de NSUADI
CDEProgrammeur 23 Messages postés jeudi 7 octobre 2010Date d'inscription 20 juillet 2012 Dernière intervention - 18 oct. 2010 à 01:17
0
Utile
Pour les personne qui aimerais voir mon code.

Note: Le code est loin d`être terminé. Je fait seulement ma gestion d'erreur pour cette partie.


Public Class Form1

    Dim globalNoteArray(9) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim compteur As Integer
        Dim notes As String
        Dim tryNb As Integer
        Dim duTexte As Integer

        duTexte = False

        Try


            For compteur = 1 To globalNoteArray.Length() - 1


                notes = CStr(InputBox("Entrer votre note numéro" & " " & compteur & vbCrLf & vbCrLf & "Écrire *Fermer* dans la case ci-dessous pour terminer le programme"))

                If notes "fermer" Or notes "Fermer" Then

                    Me.Close()

                End If


                If Integer.TryParse(notes, tryNb) Then

                    If notes > 0 Then

                        globalNoteArray(compteur - 1) = notes

                        Me.Controls("Label" & compteur.ToString).Text = globalNoteArray(compteur - 1)

                        duTexte = False

                    Else

                        MessageBox.Show("Les notes négative ne sont pas accepter. Veuillez entrer une note positive!")

                        compteur = compteur - 1

                    End If

                Else

                    duTexte = True

                    MessageBox.Show("Les lettres ne sont pas acceptés dans cette case. Veuillez entrer des chiffres!")

                    compteur = compteur - 1

                End If

            Next


        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub
End Class
Commenter la réponse de CDEProgrammeur
CDEProgrammeur 23 Messages postés jeudi 7 octobre 2010Date d'inscription 20 juillet 2012 Dernière intervention - 18 oct. 2010 à 01:50
0
Utile
oh wow..tout un paragraphe juste pour une petite fonction :P

Merci beaucoup!
Commenter la réponse de CDEProgrammeur

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.