Как передать аргументы функции автоматически?

Question

Я хочу передать txt1 и txt2 через эту функцию для проверки обоих полей ввода пользователя, однако я могу передавать только один аргумент за раз, что означает, что вам нужно сделать 2 функции? есть способ, по которому txt2 может автоматически проходить после txt1 во всех местах, где был введен txt1.

Private Function isNumericOnly(ByVal txt1 As String, ByVal txt2 As String) As Boolean 

    Dim iLen As Integer 
    Dim iCtr As Integer 
    Dim sChar As String 

    iLen = Len(txt1) 
    If iLen > 0 Then 
     For iCtr = 1 To iLen 
      sChar = Mid(txt1, iCtr, 1) 
      If Not sChar Like "[0-9]" Then Return False 

     Next 

     Return True 

    End If 


End Function 

Answer 1

Вы можете использовать один метод проверки:

Public Function DigitsOnly(text As String) As Boolean 
    Return text IsNot Nothing AndAlso text.All(AddressOf Char.IsDigit) 
End Function 

Затем вы передаете текст как TextBoxes к нему:

Dim isValid As Boolean = DigitsOnly(txt1.Text) AndAlso DigitsOnly(txt2.Text) 

Обратите внимание, что метод возвращает True, если вы передаете пустой строка. Если вы не хотите, что использование:

Return Not String.IsNullOrEmpty(text) AndAlso text.All(AddressOf Char.IsDigit) 

Если у вас есть много элементов управления (или строки), которые вы хотите проверить, вы можете использовать коллекцию:

Dim allTextBoxes As TextBox() = {txt1, txt2, txt3} 
Dim isValid = allTextBoxes.All(Function(txt) DigitsOnly(txt.Text))