Bonjour et merci de l'aide et du temps accordé
Voici mon problème:
J'ai voudrais que dans mon projet l'utilisateur entre des infos dans des inputbox
Lorsque ces infos ne sont pas celle désiré je voudrais que l'inputbox soit rappellé.
Voici le codes qui ne fonctionnent malheureusement pas.
Si quelqu'un pouvait m'aider se serait sympa
Public Class Form1
Public Const vbNewLine As String = vbCrLf
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mess1, mess2, mess3 As String
Dim titre As String
Dim s, s1, s2 As String
Dim i, j, k As Integer
Dim rep1, rep2, rep3, reponse As Integer
mess1 = "Saisissez le numéro de la première page de votre livre" & vbNewLine & vbNewLine & "Numéro entre 1 et 50"
mess2 = "Saisissez le numéro de la dernière page de votre livre" & vbNewLine & vbNewLine & "Numéro entre 250 et 1000"
mess3 = "Saisissez la hauteur de votre livre" & vbNewLine & vbNewLine & "Hauteur en cm sans décimal entre 20 et 40"
titre = "Patron Livre"
ligne0:
s = InputBox(mess1, titre)
If Not IsNumeric(s) Then reponse = MsgBox("Vous devez tapez un numéro", MsgBoxStyle.RetryCancel, vbDefaultButton1)
Select Case reponse
Case MsgBoxResult.Retry
GoTo ligne0
Case MsgBoxResult.Cancel
Exit Sub
End Select
If IsNumeric(s) Then i = CType(s, Integer)
If i <> 0 And i < 51 Then
rep1 = i
Else
reponse = MsgBox("Saisissez une page comprise entre 1 et 50", MsgBoxStyle.RetryCancel, vbDefaultButton1)
Select Case reponse
Case MsgBoxResult.Retry
GoTo ligne0
Case MsgBoxResult.Cancel
Exit Sub
End Select
End If
ligne1:
s1 = InputBox(mess2, titre)
If Not IsNumeric(s) Then reponse = MsgBox("Vous devez tapez un numéro", MsgBoxStyle.RetryCancel, vbDefaultButton1)
Select Case reponse
Case MsgBoxResult.Retry
GoTo ligne1
Case MsgBoxResult.Cancel
Exit Sub
End Select
If IsNumeric(s1) Then j = CType(s1, Integer)
If j > 200 And j < 1500 Then
rep2 = j
Else
reponse = MsgBox("Saisissez une page comprise entre 200 et 1500", MsgBoxStyle.RetryCancel, vbDefaultButton1)
Select Case reponse
Case MsgBoxResult.Retry
GoTo ligne1
Case MsgBoxResult.Cancel
Exit Sub
End Select
End If
ligne2:
s2 = InputBox(mess3, titre)
If Not IsNumeric(s2) Then reponse = MsgBox("Vous devez tapez un numéro", MsgBoxStyle.RetryCancel, vbDefaultButton1)
Select Case reponse
Case MsgBoxResult.Retry
GoTo ligne2
Case MsgBoxResult.Cancel
Exit Sub
End Select
If IsNumeric(s2) Then k = CType(s2, Integer)
If k > 20 And k < 31 Then
rep3 = k
Else
reponse = MsgBox("Saisissez une hauteur non decimal comprise entre 20 et 30", MsgBoxStyle.RetryCancel, vbDefaultButton1)
Select Case reponse
Case MsgBoxResult.Retry
GoTo ligne2
Case MsgBoxResult.Cancel
Exit Sub
End Select
End If
End Sub
End Class
Merci de votre aide et de vos conseils
--
Merci beaucoup pour ta réponse.
Je m'aperçois que je vais devoir arrêter mon petit projet ; et essayer d'apprendre un petit peu le vb net.
En tout cas merci des conseils ; de l'aide apporté et du temps consacré