CDEProgrammeur
Messages postés23Date d'inscriptionjeudi 7 octobre 2010StatutMembreDernière intervention20 juillet 2012
-
18 oct. 2010 à 01:12
CDEProgrammeur
Messages postés23Date d'inscriptionjeudi 7 octobre 2010StatutMembreDernière intervention20 juillet 2012
-
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
A voir également:
Fermer in InputBox qui est dans un FOR,NEXT sans devoir fermer tout le formulair
CDEProgrammeur
Messages postés23Date d'inscriptionjeudi 7 octobre 2010StatutMembreDernière intervention20 juillet 2012 18 oct. 2010 à 01:17
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