VB驗證不斷循環

Question

我已經被分配寫一個程序來保存關於films的數據。我們需要使用vb.Im中的窗體來嘗試驗證文本框的數據輸入。輸入的文本必須是數字和必須是4個字符長。我試圖解決的問題是，一旦它看到了我希望程序允許用戶在文本框中重新輸入一個值的值，而是一直查看文本框在隨後說，這是不正確的格式，而不讓用戶輸入正確value.here是代碼，只是到目前爲止驗證：

Dim PassValidate As Boolean = False 
    ReadFilmData() 
    NOFilms = NOFilms + 1 
    ReDim Preserve Film(NOFilms) 
    'Validate before it is saved to the file' 
    Do 
     If IsNumeric(Me.txtFilmID.Text) = True Then 
      If Me.txtFilmID.TextLength = 0 Then 
       'Presence check' 
       MsgBox("You are required to provide a value for the film ID") 
      ElseIf Me.txtFilmID.TextLength > 4 Then 
       'Length Check' 
       MsgBox("The film ID must be 4 numbers long") 
      ElseIf Me.txtFilmID.TextLength = 4 Then 
       PassValidate = True 
      End If 
     End If 
     If IsNumeric(Me.txtFilmID.Text) = False Then 
      MsgBox("The film ID must be a set of numbers ") 
     End If 
     If PassValidate = False Then 
      txtFilmID.Text = "" 
      MsgBox("Re-enter the value for Film ID") 
      Call SaveFilmData() 
     End If 
     If PassValidate = True Then 
      Film(NOFilms).FilmID = txtFilmID.Text 
     End If 
    Loop Until PassValidate = True 

Answer 1

你應該檢查出的WinForms驗證事件。他們在那裏避免你描述的問題。

https://msdn.microsoft.com/en-us/library/system.windows.forms.control.validated(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1

Answer 2

嘗試取出Do循環，似乎沒有成爲一個需要循環。