vb.net - 如何在.NET中显示函数的多个返回值

Question

我有以下结构

Public Structure Info_Diag_Data
    Public DataOne As String
    Public DataTwo As String
End Structure

而这个函数使用了上面的类

Public Shared Function My_Function(ByVal RcvVal As Integer) As Info_Diag_Data

    Dim SendVal As Info_Diag_Data

    Select Case RcvVal
        Case 1
            SendVal.DataOne = "Red"
            SendVal.DataTwo = "Master"
        Case 2
            SendVal.DataOne = "Red"
            SendVal.DataTwo = "Teacher"
    End Select

    Return SendVal
End Function

现在我知道我可以使用My_Function(2)

我的问题是如何在从函数中获取这两个返回值后显示这些数据。

就像我得到DataOne的一样，作为DataTwo回报。那我怎么能把它显示MessageBox.Show(DataOne)出来MessageBox.Show(DataTwo)

Answer 1

您需要将结果存储在一个Info_Diag_Data值中，然后您将能够通过该变量访问对象的各个成员，如下所示：

Dim data As Info_Diag_Data = My_Function(2)
MessageBox.Show(data.DataOne)
MessageBox.Show(data.DataTwo)