Write a Vb.net program to design the following form, allow the user to select radio buttons from Gender and Age Panel. After Selection appropriate CheckBox from Right Panel should be selected automatically. Display appropriate message into the MessageBox by clicking on Ok button.

slip no 13
Public Class Form1

    

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MessageBox.Show("Please Enter Name")
        Else

            Dim age As String
            age = ""
            If RadioButton3.Checked Then
                age = "Less Than 18. Can't Drive "
            ElseIf RadioButton4.Checked Then
                age = "Between 18 To 40 . Can Drive"
            ElseIf RadioButton5.Checked Then
                age = "Above 40. All Right "
            End If
            MessageBox.Show("Name : " + TextBox1.Text + " Age : " + age)
        End If
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton3.Checked Then
            CheckBox2.Checked = True
        Else
            CheckBox2.Checked = False
        End If
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
       
        If RadioButton4.Checked Then
            CheckBox1.Checked = True
        Else
            CheckBox1.Checked = False
        End If
    End Sub

    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
      If RadioButton5.Checked Then
            CheckBox3.Checked = True
        Else
            CheckBox3.Checked = False
        End If
    End Sub
End Class

Comments

Post a Comment

Popular posts from this blog

Write a Vb.net program to accept a character from keyboard and check whether it is vowel or not. Also display the case of that character.

Image
Slip10 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim ch As Char         ch = TextBox1.Text         Select Case ch             Case "A", "E", "I", "O", "U"                 MessageBox.Show(ch + " is Vowel And UpperCase")             Case "a", "e", "i", "o", "u"                 MessageBox.Show(ch + " is Vowel And LowerCase")          ...
Read more

Write a Vb.net program to check whether entered string is palindrome or not.

Image
Slip No 1 Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim s As String         Dim r As String         s = TextBox1.Text         r = StrReverse(s)         If s = r Then             MessageBox.Show("Enterd String is Palindrome")         Else             MessageBox.Show("Enterd String is Not Palindrome")         End If     End Sub End Class
Read more

Write a Vb.net program for blinking an image.

Image
Slip No 2 Public Class Form1     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick         If PictureBox1.Visible = Visible Then             PictureBox1.Visible = False         Else             PictureBox1.Visible = True         End If     End Sub End Class
Read more