1

私は次の構造を持っています

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)

私の質問は、関数からこれら 2 つの戻り値を取得した後、このデータを表示する方法です。

私が得たようDataOneにDataTwo、見返りに。次に、どのように表示できますMessageBox.Show(DataOne)かMessageBox.Show(DataTwo)

4

1 に答える 1

2

結果を値に格納する必要がありますInfo_Diag_Data。その後、次のように、その変数を介してオブジェクトのさまざまなメンバーにアクセスできます。

Dim data As Info_Diag_Data = My_Function(2)
MessageBox.Show(data.DataOne)
MessageBox.Show(data.DataTwo)
于 2012-12-10T18:54:34.343 に答える