0

我正在自学 VB，其中一个编程挑战说：“创建一个包含 2 个表单的应用程序。启动表单包含宿舍的名称，另一个包含膳食计划。当用户选择宿舍和膳食计划时，申请应在启动表格上显示该学期的总费用。”

我所做的是在第一个表单上添加单选按钮，以便用户可以选择他们想要的宿舍。我添加了一个按钮，然后显示第二个表单，我还添加了单选按钮。在那里，他们可以选择他们想要的膳食计划。有没有办法可以导入用户在第一个表单中选择的内容，以便将其添加到第二个表单上的选择中？提前致谢！

表格 2：

Public Class MealForm

Private Sub btnMealClose_Click(sender As Object, e As EventArgs) Handles btnMealClose.Click
    Me.Close()
End Sub

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

    Dim txtFirstChoice As Integer
    Dim frmMain As New MainForm

    If rad7Meals.Checked = True Then
        txtFirstChoice = 560
    ElseIf rad14Meals.Checked = True Then
        txtFirstChoice = 1095
    ElseIf radUnlimitedMeals.Checked = True Then
        txtFirstChoice = 1500

        End If
End Sub
End Class

表格一：

Public Class MainForm

    Private Sub btnAddMeal_Click(sender As Object, e As EventArgs) Handles btnAddMeal.Click
        Dim frmMeal As New MealForm

        frmMeal.ShowDialog()
    End Sub

End Class
4

2 回答 2

1

您可以这样做的一种方法是在 frmMeal 上放置一个属性，如下所示：

Public Class MealForm

    Public Property DormCost as Integer

    Private Sub btnMealClose_Click(sender As Object, e As EventArgs) Handles btnMealClose.Click
      Me.Close()
    End Sub

    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
      Dim totalCost as Integer
      Dim mealCost as Interger 
      mealCost = cost based on radio button choice for meals        
      totalCost = mealCost + Me.DormCost
    End Sub
End Class

在声明之后和显示之前设置 PlanCost 变量：

Public Class MainForm
     Private Sub btnAddMeal_Click(sender As Object, e As EventArgs) Handles btnAddMeal.Click
         Dim frmMeal As New MealForm
         frmMeal.DormCost = pass cost based on radio button choice to meal form here    
         frmMeal.ShowDialog()
     End Sub    
End Class
于 2015-03-16T13:42:48.160 回答
0

我认为本教程将使您走上正确的轨道http://www.dreamincode.net/forums/topic/332553-passing-data-between-forms/

于 2015-03-15T23:37:09.083 回答