如何拆分文本框值然后在标签上显示拆分值

Question

如何拆分文本框（以“-”分隔）的值，然后将拆分后的值显示在两个标签上？

这是我的代码：

    Dim s As String
    Dim substring As String
    Dim sp() As String

    s = txtTime1.Text 'this text box contains value (08:00-17:41)
    sp = s.Split("-")

    For Each substring In sp
        txtTimeIn.Text = substring
        txtTimeOut.Text = substring
    Next

我的问题是 txtTimeIn 和 txtTimeOut 仅显示值“17:41”。非常感谢您。

Answer 1

试试这个：

Dim s As String
Dim substring As String
Dim sp() As String

s = txtTime1.Text 'this text box contains value (08:00-17:41)
sp = s.Split("-")

txtTimeIn.Text = sp(0)
txtTimeOut.Text = sp(1)