Question

所以我有两种形式：Form1和Form2。第一个表单有一个带有单选按钮的组合框，用于选择具有值的宿舍。在页面的底部是一个按钮，表示继续并转到表单2.在Form2中，有另一个按钮，其中有一个带有无线电的组合框，用于选择用餐计划。在页面底部有一个按钮，表示计算。单击此按钮时，Form1应再次显示，并且总成本的文本框将包含dormcost和mealcost的值。它适用于获得餐费，但不是宿舍。

任何人都知道为什么？

表格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

Answer 1

您可以创建一个全局变量类，可以在整个程序中使用。

Public Class GlobalVariables

Public Shared yourvariable As yourtype

End Class

将此类放在其中一个表单的底部，您可以在程序的任何位置调用变量表单。 GlobalVariables.yourvariable

Answer 2

这是另一种选择：

将DormCost置于form1的本地，并将其称为myDormCost，并将其作为Public公式放入Form2 然后当你打电话

form2.show

之前

form2.DormCost = myDormCost

那应该有用。

从VB中的另一种形式获取价值

2 个答案: