Me.Controls.OfTypeに例外を作成する方法

Question

このメソッドをより一般的なものにしたいと思います。例外が発生するたびにすべてのTextBoxを手動で入力するのではなく、ルールの例外を受け入れることができます。

このメソッドを使用して、テキストボックスが空であるかどうかを確認します。私は中間の初期と電話番号をオプションにしたいと思いますが、私は正しい結果を得ることができません。

可能であれば、私はパラメータとして例外を渡すことができたいので、これをモジュールに入れることができます。

編集：それは、Windowsアプリケーションブラックウッドさんのコメントパー

Private Function CheckIfEmpty() As Boolean 

    'Checks if All textboxes are empty 

    Dim empty = Me.Controls.OfType(Of TextBox)().Where(Function(txt) txt.Text.Trim.Length = 0) 

    If empty.Any Then 
     'Makes Middle Initial and Phone number optional 
     If txtMiddleInitial.Text.Trim = "" Or txtPhoneNum.Text.Trim = "" Then 
      MsgBoxSetMsg(" Please fill up all fields") 
      CheckIfEmpty = True 
     End If 
    Else 
     CheckIfEmpty = False 
    End If 
End Function 

Answer 1

：：それは（「オプション」のための）「O」が含まれている場合には、記入する必要はありません

Private Function CheckIfEmpty(ParamArray exemptions As TextBox()) As Boolean 

    'Checks if All textboxes are empty 

    Dim empty = Me.Controls.OfType(Of TextBox)().Where(Function(txt) txt.Text.Trim.Length = 0 AndAlso Not exceptions.Contains(txt)) 

    If empty.Any Then 
     MsgBoxSetMsg(" Please fill up all fields") 
     CheckIfEmpty = True 
    Else 
     CheckIfEmpty = False 
    End If 
End Function 

あなたはその後、同じようにそれを呼び出すことができますそう：

Dim validated = CheckIfEmpty(txtMiddleInitial, txtPhoneNum) 

Answer 2

Me.Controls.OfType(Of TextBox)().Where(Function(t) t.Name <> "txtMiddileInitial" AndAlso t.Name <> "txtPhoneNum")  

Answer 3

だ、ここ.Tagプロパティをチェックするためのコードです。尋ねて質問に答えるために

Function CheckForm() As String 'returns an error message if form not filled in properly 
    For Each ctl As Control In Me.Controls 
    Dim strTag As String = "" 
    If ctl.Tag IsNot Nothing Then strTag = ctl.Tag.ToString 
    If TypeOf ctl Is TextBox Then 
     Dim txt As TextBox = DirectCast(ctl, TextBox) 
     If txt.Text = "" And Not strTag.Contains("O") Then 
     Return "Please fill in all fields" 
     End If 
    ElseIf TypeOf ctl Is ListBox Then 
     '...etc... 
    End If 
    Next ctl 
    Return "" 'no error 
End Function 

Answer 4

はこれを試してみてください：

Private Function CheckIfEmpty(except As TextBox()) As Boolean 

    CheckIfEmpty = _ 
     Me.Controls.OfType(Of TextBox)() _ 
      .Where(Function(txt) Not except.Contains(txt)) _ 
      .Where(Function(txt) txt.Text.Trim.Length = 0) _ 
      .Any() 

    If CheckIfEmpty Then 
     MsgBoxSetMsg(" Please fill up all fields") 
    End If 

End Function