0

Form2 から Form 1 に 1 つの単純な整数 (StartingTeam) を渡す方法を見つけようとしています。

フォーム 2 コード

Public Class frmTeamChoose
Public StartingTeam As Integer
Public Sub btnTeam1_Click(sender As Object, e As EventArgs) Handles btnTeam1.Click
    StartingTeam = 1
End Sub

Public Sub btnTeam2_Click(sender As Object, e As EventArgs) Handles btnTeam2.Click
    StartingTeam = 2
End Sub

End Class

フォーム 1 は Form1 と呼ばれます

4

1 に答える 1

1

あなたはより多くの情報を提供する必要がありますが、私はあなたを助けようとします：
あなたはForm1からForm2を開いていると思います。

'In form1:
Dim k as integer=Form2.StartingTeam

改善された解決策は、プロパティを作成することです。
フォーム2コード：

 Private miStartingTeam 
 Public Property StartingTeam As Integer
    Get
        Return miStartingTeam 
    End Get
    Set(ByVal value As Integer)
        miStartingTeam = value
    End Set
 End Property

次に、コードをそのままにします。
Form1：

'Open Form2
Dim f2 as new Form2
'f2.StartingTeam=1 'if you want to set a value before f2 opening
f2.Show


'Get StartingTeam from f2
dim k as integer=f2.StartingTeam

他に何か必要な場合はお知らせください

于 2012-11-14T09:39:45.593 に答える