vb.net - 在 vb.net 中使用 vbnewline 显示日期

Question

我在 vb.net 中有两个日期时间选择器，它们计算两个日期之间的天数并在消息框中显示天数。我希望数字使用 vbnewline 或任何方法显示在文本框中，但不显示在 messageBox 中

Private Sub btnCalculate_Click(sender As System.Object, e As System.EventArgs)Handles btnCalculate.Click

        If True Then

            Dim dt1 As DateTime = Convert.ToDateTime(DateTimePicker1.Text)

            Dim dt2 As DateTime = Convert.ToDateTime(DateTimePicker2.Text)

            Dim ts As TimeSpan = dt2.Subtract(dt1)

            If Convert.ToInt32(ts.Days) >= 0 Then

                MessageBox.Show("Total Days are " & Convert.ToInt32(ts.Days))

            Else

                MessageBox.Show("Invalid Input")

            End If

        End If

    End Sub

任何输入表示赞赏

Answer 1

为什么不简单地使用Environment.NewLine

TextBox1.Text = "Total Days are"

TextBox1.AppendText(Environment.NewLine & Convert.ToInt32(ts.Days))

Answer 2

我觉得你有点困惑。您可以在 a TextBox、 aMessageBox或 a中显示信息Label，但vbNewLine它只是一个表示换行符的常量，因此您可以将它与之前的任何控件一起使用。

只需在设计器上放置一个文本框，然后更改行

MessageBox.Show("Total Days are " & Convert.ToInt32(ts.Days))

有了这个：

YourTextBox.Text = "Total ......"

祝你好运，但下次做一些研究。