1

Form1 と Form2 の 2 つのフォームがあります。最初のフォームには、値で寮を選択するラジオ ボタンを含むグループ ボックスがあります。ページの下部には、続けると表示され、フォーム 2 に移動するボタンがあります。フォーム 2 には、食事プランを選択するためのラジオ付きのグループボックスがある別のボタンがあります。ページの下部に、計算というボタンがあります。このボタンをクリックすると、Form1 が再び表示され、総費用のテキスト ボックスに寮費と食事費の値が表示されます。寮費ではなく、食事代を得るために機能します。

誰でも理由がわかりますか？

フォーム 1:

Public Class Form1

Public DormCost As Integer

Private Sub ButtonCalculate_Click(sender As Object, e As EventArgs) Handles ButtonCalculate.Click

    Dim DormCost As Integer

    If RadioAllen.Checked = True Then
        DormCost = 1500
    ElseIf RadioPike.Checked = True Then
        DormCost = 1600
    ElseIf RadioFarthing.Checked = True Then
        DormCost = 1200
    ElseIf RadioUniversity.Checked = True Then
        DormCost = 1800
    End If

    Form2.Show()

End Sub
End Class

フォーム 2:

Public Class Form2

Dim MealCost As Integer
Dim Total As String


Private Sub ButtonCalculate_Click(sender As Object, e As EventArgs) Handles ButtonCalculate.Click


    If Radio7.Checked = True Then
        MealCost = 560
    ElseIf Radio14.Checked = True Then
        MealCost = 1095
    ElseIf RadioUnlimited.Checked = True Then
        MealCost = 1500
    End If

    Me.Close()

    Total = Convert.ToString(Form1.DormCost + MealCost)
    Form1.TextBox1.Text = "$" + Total


End Sub
End Class
4

2 に答える 2

2

プログラム全体で使用できるグローバル変数クラスを作成できます。

Public Class GlobalVariables

Public Shared yourvariable As yourtype

End Class

このクラスをいずれかのフォームの一番下に置くと、変数フォームをプログラムのどこからでも呼び出すことができます。GlobalVariables.yourvariable

于 2013-07-15T20:16:10.227 に答える
2

別のオプションを次に示します。

form1DormCostにローカルにして、それを呼び出してmyDormCost、Form2にパブリックとして配置してから、呼び出したときに

form2.show

その直前に

form2.DormCost = myDormCost

それはうまくいくはずです。

于 2013-07-15T20:25:29.740 に答える