Question

我正在尝试将许多用户输入（文本框，组合框，DatePicker等）合并到一个消息框中，一旦点击一个按钮就会出现，但我不知道如何在一个消息框中完成所有操作。我只知道如何分开做。

这是我的Button_Click代码

Dim s, sOut As String
    Dim x As System.Xml.XmlElement = cbEval.SelectedItem

    If x Is Nothing Then
        MsgBox("fill in Evaluator")
    Else
        s = "Evaluator Name: {0}"
        sOut = String.Format(s, x.InnerText)
        MsgBox(sOut)


    End If

当用户从cbEval（组合框）中选择一个选项，然后单击“提交”按钮时，将显示他们选择的选项。我也试图将DatePicker，CbEval，cbSelfEval，txtSelfComments，cbPeer，txtTotal和txtComments添加到同一个MessageBox但不知道如何添加它们，尤其是DatePicker（日历）。有关如何在1个消息框中添加更多内容的想法吗？

Answer 1

*强调文字*也许这个

    Dim s, sOut As String
    Dim x As System.Xml.XmlElement = cbEval.SelectedItem

    If x Is Nothing _
      Or String.IsNullOrEmpty(txtSelfComments.Text) _
      Or DatePicker.SelectedDate Is Nothing _
    Then
        MsgBox("fill in Evaluator")
    Else

        sOut = String.Format("Evaluator Name: {1}{0}Text2: {2}{0}" +
               "Date3: {3}", Environment.NewLine, x.InnerText, txtSelfComments.Text, DatePicker.SelectedDate.ToString())
        MsgBox(sOut)
    End If

对于datePicker.SelectedDate.ToString（），您可以使用DateTime格式http://msdn.microsoft.com/en-us/library/az4se3k1(v=vs.110).aspx

Answer 2

尝试这样的事情：

If x Is Nothing _
OrElse String.IsNullOrEmpty(txtTotal.Text) _
OrElse String.IsNullOrEmpty(CbEval.SelectedText) _
OrElse DatePicker.Value Is Nothing Then
    MessageBox.Show("fill in Evaluator");
Else
    sOut = String.Format("Evaluator Name: {0}" & Environment.NewLine() & _
           "Text: {1}" & Environment.NewLine() & _
           "CbValue: {2}" & Environment.NewLine() & _
           "Date3: {3}", _
           x.InnerText, txtTotal.Text, cbEval.SelectedText, DatePicker.Value.ToShortDateString())
    MessageBox.Show(sOut);
End If

当您比较DatePicker.Value时，Nothing将是可能的最短日期：01/01/1900。

多个用户输入到消息框

2 个答案: