Public Class Form1
Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
Dim nm As String
Dim post As String
Dim qual As String = ""
nm = TextBox1.Text
If opManager.Checked = True Then
post = "Manager"
ElseIf opEng.Checked = True Then
post = "Engineer"
ElseIf opAcc.Checked = True Then
post = "Accountant"
Else
post = "Clerk"
End If
If chkBE.Checked Then
qual = qual & "BE, "
End If
If chkMBA.Checked Then
qual = qual & "MBA, "
End If
If chkCA.Checked Then
qual = qual & "CA, "
End If
If chkGraduate.Checked Then
qual = qual & "Graduate"
End If
MessageBox.Show("Name: " & nm & " Post: " & post & " Qualification: " & qual, "Details", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
End Class
No comments:
Post a Comment
Note: only a member of this blog may post a comment.