際際滷

際際滷Share a Scribd company logo
Visual BASIC .NET 2012
PART 17-Radio Button
Dr. GIRIJA NARASIMHAN 1
This slides are available http://slideshare.net /nbgirija
Dr. GIRIJA NARASIMHAN 2
This tutorial only for beginners , those
who dont have any knowledge about
any programming language skill and
application design.
Dr.GIRIJA NARASIMHAN 3
Dr.GIRIJA NARASIMHAN 4
Public Class Form3
Private Sub RadioButton1_mouseclick(sender As Object, e As EventArgs) Handles
RadioButton1.MouseClick
ListBox1.Items.Add(RadioButton1.Text)
End Sub
Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles
RadioButton3.CheckedChanged
Me.Close()
End Sub
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles
RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
Me.BackColor = Color.GreenYellow
Else
Me.BackColor = Color.Chocolate
End If
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles
RadioButton1.CheckedChanged
End Sub
Dr.GIRIJA NARASIMHAN 5
Private Sub RadioButton4_mouseclick(sender As Object, e As EventArgs) Handles
RadioButton4.MouseClick
ListBox1.Items.Add(RadioButton4.Text)
End Sub
Private Sub RadioButton5_mouseclick(sender As Object, e As EventArgs) Handles
RadioButton5.MouseClick
ListBox1.Font = New Font(ListBox1.Font, FontStyle.Bold)
End Sub
Private Sub RadioButton6_mouseclick(sender As Object, e As EventArgs) Handles
RadioButton6.MouseClick
ListBox1.Font = New Font(ListBox1.Font, FontStyle.Italic)
End Sub
Private Sub RadioButton7_mouseclick(sender As Object, e As EventArgs) Handles
RadioButton7.MouseClick
ListBox1.Font = New Font(ListBox1.Font, FontStyle.Underline)
End Sub
End Class

More Related Content

Part17 radio button using vb.net 2012

  • 1. Visual BASIC .NET 2012 PART 17-Radio Button Dr. GIRIJA NARASIMHAN 1 This slides are available http://slideshare.net /nbgirija
  • 2. Dr. GIRIJA NARASIMHAN 2 This tutorial only for beginners , those who dont have any knowledge about any programming language skill and application design.
  • 4. Dr.GIRIJA NARASIMHAN 4 Public Class Form3 Private Sub RadioButton1_mouseclick(sender As Object, e As EventArgs) Handles RadioButton1.MouseClick ListBox1.Items.Add(RadioButton1.Text) End Sub Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged Me.Close() End Sub Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged If RadioButton2.Checked = True Then Me.BackColor = Color.GreenYellow Else Me.BackColor = Color.Chocolate End If End Sub Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged End Sub
  • 5. Dr.GIRIJA NARASIMHAN 5 Private Sub RadioButton4_mouseclick(sender As Object, e As EventArgs) Handles RadioButton4.MouseClick ListBox1.Items.Add(RadioButton4.Text) End Sub Private Sub RadioButton5_mouseclick(sender As Object, e As EventArgs) Handles RadioButton5.MouseClick ListBox1.Font = New Font(ListBox1.Font, FontStyle.Bold) End Sub Private Sub RadioButton6_mouseclick(sender As Object, e As EventArgs) Handles RadioButton6.MouseClick ListBox1.Font = New Font(ListBox1.Font, FontStyle.Italic) End Sub Private Sub RadioButton7_mouseclick(sender As Object, e As EventArgs) Handles RadioButton7.MouseClick ListBox1.Font = New Font(ListBox1.Font, FontStyle.Underline) End Sub End Class