Можете ли вы объединить выбор переключателей из нескольких форм в Visual Basic?

Question

Я преподаю себе VB и на одном из проблем программирования говорит: «Создайте приложение с двумя формами. В стартовой форме хранятся имена общежитий, а в другом - планы еды. Когда пользователь выбирает общежитие и питание план, приложение должно отображать общие суммы за семестр в стартовой форме ».

Что я сделал, это добавить радио кнопки в первую форму, чтобы пользователь мог выбрать общежитие, которое они хотят. Я добавил кнопку, которая затем отображает вторую форму, где я также добавил переключатели. Там они могут выбрать, какой план питания они хотят. Есть ли способ импортировать то, что пользователь выбрал в первой форме, чтобы добавить его к вариантам, сделанным во второй форме? Заранее спасибо!

Форма 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 

Форма 1:

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 

Answer 1

Я думаю, что этот учебник будет поставить вас на правильном пути http://www.dreamincode.net/forums/topic/332553-passing-data-between-forms/

Answer 2

Один из способов вы могли бы сделать это было бы место имущество на 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