Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strCorse As String
Dim strLevel As String
If RadioButton1.Checked Then
strCorse = RadioButton1.Text
ElseIf RadioButton2.Checked Then
strCorse = RadioButton2.Text
ElseIf RadioButton3.Checked Then
strCorse = RadioButton3.Text
End If
If RadioButton4.Checked Then
strLevel = RadioButton4.Text
ElseIf RadioButton5.Checked Then
strLevel = RadioButton5.Text
ElseIf RadioButton6.Checked Then
strLevel = RadioButton6.Text
End If
TextBox1.Text = " You Seleted " & strCorse & "-" & strLevel
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Couress As String = "" Dim Levels As String = ""
'Couress If vbRadio.Checked Then Couress = vbRadio.Text ElseIf CRadio.Checked Then Couress = CRadio.Text ElseIf JavaRadio.Checked Then Couress = JavaRadio.Text End If
'Levels If STRadio.Checked Then Levels = STRadio.Text ElseIf MiRadio.Checked Then Levels = MiRadio.Text ElseIf HiRadio.Checked Then Levels = HiRadio.Text End If TextBox1.Text = "" TextBox1.Text = Couress & " 언어 " & Levels & "급 강좌를 신청 하였습니다" End Sub End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Couress As String = ""
Dim Levels As String = ""
'Couress
If vbRadio.Checked Then
Couress = vbRadio.Text
ElseIf CRadio.Checked Then
Couress = CRadio.Text
ElseIf JavaRadio.Checked Then
Couress = JavaRadio.Text
End If
'Levels
If STRadio.Checked Then
Levels = STRadio.Text
ElseIf MiRadio.Checked Then
Levels = MiRadio.Text
ElseIf HiRadio.Checked Then
Levels = HiRadio.Text
End If
TextBox1.Text = ""
TextBox1.Text = Couress & " 언어 " & Levels & "급 강좌를 신청 하였습니다"
End Sub
End Class
이 댓글을