Scribd
Upload
13 views

Public Class Form1

The document contains a Visual Basic code for a Windows Form application. It includes a button click event that displays messages based on selected radio buttons for year and gender, as well as a concatenated string of selected subjects from checkboxes. The application provides user feedback through message boxes for the selections made.

Uploaded by

Samarth Mhetre
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
13 views

Public Class Form1

The document contains a Visual Basic code for a Windows Form application. It includes a button click event that displays messages based on selected radio buttons for year and gender, as well as a concatenated string of selected subjects from checkboxes. The application provides user feedback through message boxes for the selections made.

Uploaded by

Samarth Mhetre
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 2

Exp9_app1_7

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles


Button1.Click
If RadioButton1.Checked = True Then
MessageBox.Show("Year Selected FY")
End If
If RadioButton2.Checked = True Then
MessageBox.Show("Year Selected SY")
End If
If RadioButton3.Checked = True Then
MessageBox.Show("Year Selected TY")
End If

If RadioButton4.Checked = True Then


MessageBox.Show("Gender Selected M")
End If
If RadioButton5.Checked = True Then
MessageBox.Show("Gnder Selected F")
End If

Dim str As String = ""


If CheckBox1.Checked = True Then
str = str + "GAD,"
End If
If CheckBox2.Checked = True Then
str = str + "DCC,"
End If
If CheckBox3.Checked = True Then
str = str + "MIC,"
End If
If CheckBox4.Checked = True Then
str = str + "JPR,"
End If
If CheckBox5.Checked = True Then
str = str + "SEN,"
End If
MessageBox.Show("Subjects selected are :" + str)
End Sub
End Class
Exp9_app1_7

You might also like