위와 같이 작동합니다.
fom 1 의 디자인입니다
ComboBox , NumericUpDown 버튼 2개 textbox 1개 label 2 개를 추가합니다.
label 2 는 form 1 에서 어느테이블의 주문인지 구분하기 위해서 넣은거고 visuble 은 false 로 합니다. 변수는 안넘어와서 콘트롤에 값을 전달하고 어느 테이블 주문인지 코드로 구분합니다.
콤보박스에 위와 같이 추가합니다.
Public Class Form1
Dim number As Integer
Private Sub Table1_Click(sender As Object, e As EventArgs) Handles Table1.Click
Form2.Show()
Form2.Label2.Text = 1 ' 테이블 1의 주문을 form 2로 넘겨주기 위해서
End Sub
Private Sub Table2_Click(sender As Object, e As EventArgs) Handles Table2.Click
Form2.Show()
Form2.Label2.Text = 2
End Sub
End Class
Public Class Form2
Dim price As Integer
Dim food As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Select Case ComboBox1.SelectedIndex ' combobox 선택시 선택금액과 수량을 입력합니다.
Case 0
food = 1000
price = price + (food * NumericUpDown1.Value)
Case 1
food = 1500
price = price + (food * NumericUpDown1.Value)
Case 2
food = 2000
price = price + (food * NumericUpDown1.Value) ' 추가시 기존금액에 더하기
End Select
TextBox1.Text = price
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If Label2.Text = 1 Then ' form 1에서 table 1 에서 넘어온 경우 에 table 1의 합계금액으로 보냅니다.,
Form1.Table1.Text = price
Me.Close()
Else
Form1.Table2.Text = price
Me.Close()
End If
End Sub
End Class