0

次のコードがあります。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    If Not TextBox1.Text = "" Then
        If TextBox1.Text.Contains("ping") Then
            Dim PingSplit = TextBox1.Text.Split(" ")
        End If

        Select Case TextBox1.Text

            Case "ping"
                MsgBox(PingSplit(2).ToString)' debug
                '  If Not Regex.Match(PingSplit(2), "\A(\d{1,2}/(1[0-99]\d)/(2[0-55]\d)).(\d{1,2}/(1[0-99]\d)/(2[0-55]\d)).(\d{1,2}/(1[0-99]\d)/(2[0-55]\d)).(\d{1,2}/(1[0-99]\d)/(2[0-55]\d))\Z").Success Then
                MsgBox("Invalid address!")
                Else
                MsgBox(GetPingMs(PingSplit(2)))
                End If
        End Select

    Else
        MsgBox("System: Please insert a command!")
    End If
End Sub

ただし、コードを取得して textbox1 のテキストを分割し、後半を GetPingMs 関数に渡す方法がわかりません。関数が機能することはわかっていますが、データを渡す方法がわかりません。どんな助けでも大歓迎です。

4

1 に答える 1

0

YourPingSplitは内部で宣言されてIfおり、 では使用できませんSelect。

また、TextBox1.Text でどのケースを選択しようとしているのかわかりません

「PingSplit」の宣言を all の前に移動しますifが、それでもその関数内に移動します。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim PingSplit as String
If Not TextBox1.Text = "" Then
        If TextBox1.Text.Contains("ping") Then
            PingSplit = TextBox1.Text.Split(" ")
        End If

        Select Case TextBox1.Text

            Case "ping"
                MsgBox(PingSplit(1).ToString)' debug

                ' Commented if by question author.
                '  If Not Regex.Match(PingSplit(1), "\A(\d{1,2}/(1[0-99]\d)/(2[0-55]\d)).(\d{1,2}/(1[0-99]\d)/(2[0-55]\d)).(\d{1,2}/(1[0-99]\d)/(2[0-55]\d)).(\d{1,2}/(1[0-99]\d)/(2[0-55]\d))\Z").Success Then
                'MsgBox("Invalid address!")
                'Else
                'MsgBox(GetPingMs(PingSplit(1)))
                'End If
        End Select

    Else
        MsgBox("System: Please insert a command!")
    End If
End Sub
于 2013-10-25T23:14:50.463 に答える