Home » Archives » 24. February 2010

code

February 24, 2010

Public Class Form1

    Private Sub Lblgender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lblgender.Click

    End Sub

    Private Sub Cbgender_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cbgender.SelectedIndexChanged
        If Cbgender.Text = “Male” Then
            Pb2.Visible = False
            Pb1.Visible = True
        Else
            Cbgender.Text = “Female”
            Pb1.Visible = False
            Pb2.Visible = True
        End If
        Cbhobbies.Visible = True
        Lblhobbies.Visible = True
        Cbhobbies.Enabled = True

        

    End Sub

    Private Sub Cbhobbies_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cbhobbies.SelectedIndexChanged
        If Cbhobbies.Text = “Swimming” Then
            Pb3.Visible = True
            Pb4.Visible = False
            Pb5.Visible = False
            Pb6.Visible = False
            Pb7.Visible = False
            Pb8.Visible = False
            Pb9.Visible = False
            Pb10.Visible = False

            Lblcourse.Visible = True
            Cbcourse.Visible = True
            Cbcourse.Enabled = True
        ElseIf Cbhobbies.Text = “Basketball” Then
            Pb4.Visible = True
            Pb3.Visible = False
            Pb5.Visible = False
            Pb6.Visible = False
            Pb7.Visible = False
            Pb8.Visible = False
            Pb9.Visible = False
            Pb10.Visible = False

            Lblcourse.Visible = True
            Cbcourse.Visible = True
            Cbcourse.Enabled = True
      
        ElseIf Cbhobbies.Text = “Football” Then
            Pb4.Visible = False
            Pb3.Visible = False
            Pb5.Visible = True
            Pb6.Visible = False
            Pb7.Visible = False
            Pb8.Visible = False
            Pb9.Visible = False
            Pb10.Visible = False

            Lblcourse.Visible = True
            Cbcourse.Visible = True
            Cbcourse.Enabled = True
        ElseIf Cbhobbies.Text = “Reading Book” Then
            Pb6.Visible = True
            Pb3.Visible = False
            Pb5.Visible = False
            Pb4.Visible = False
            Pb7.Visible = False
            Pb8.Visible = False
            Pb9.Visible = False
            Pb10.Visible = False

            Lblcourse.Visible = True
            Cbcourse.Visible = True
            Cbcourse.Enabled = True

        ElseIf Cbhobbies.Text = “Badminton” Then
            Pb7.Visible = True
            Pb3.Visible = False
            Pb5.Visible = False
            Pb6.Visible = False
            Pb4.Visible = False
            Pb8.Visible = False
            Pb9.Visible = False
            Pb10.Visible = False

            Lblcourse.Visible = True
            Cbcourse.Visible = True
            Cbcourse.Enabled = True
        ElseIf Cbhobbies.Text = “Texting” Then
            Pb4.Visible = False
            Pb3.Visible = False
            Pb5.Visible = False
            Pb6.Visible = False
            Pb7.Visible = False
            Pb8.Visible = True
            Pb9.Visible = False
            Pb10.Visible = False

            Lblcourse.Visible = True
            Cbcourse.Visible = True
            Cbcourse.Enabled = True

        ElseIf Cbhobbies.Text = “Shopping” Then
            Pb4.Visible = False
            Pb3.Visible = False
            Pb5.Visible = False
            Pb6.Visible = False
            Pb7.Visible = False
            Pb8.Visible = False
            Pb9.Visible = True
            Pb10.Visible = False

            Lblcourse.Visible = True
            Cbcourse.Visible = True
            Cbcourse.Enabled = True
        Else : Cbhobbies.Text = “Soundtrip”
            Pb10.Visible = True
            Pb3.Visible = False
            Pb5.Visible = False
            Pb6.Visible = False
            Pb7.Visible = False
            Pb8.Visible = False
            Pb9.Visible = False
            Pb4.Visible = False
        End If
        Cbcourse.Enabled = True
        Lblcourse.Visible = True
        Cbcourse.Visible = True

    End Sub

    Private Sub Cbcourse_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cbcourse.SelectedIndexChanged
        If Cbcourse.Text = “Computer Science” Then
            Pb11.Visible = True
            Pb12.Visible = False
            Pb13.Visible = False
            Pb14.Visible = False
            Pb15.Visible = False

        ElseIf Cbcourse.Text = “Criminology” Then
            Pb12.Visible = True
            Pb11.Visible = False
            Pb13.Visible = False
            Pb14.Visible = False
            Pb15.Visible = False

        ElseIf Cbcourse.Text = “Education” Then
            Pb13.Visible = True
            Pb12.Visible = False
            Pb11.Visible = False
            Pb14.Visible = False
            Pb15.Visible = False

        ElseIf Cbcourse.Text = “Hotel & Restaurant Management” Then
            Pb14.Visible = True
            Pb12.Visible = False
            Pb13.Visible = False
            Pb11.Visible = False
            Pb15.Visible = False

        ElseIf Cbcourse.Text = “Business Administration” Then
            Pb15.Visible = True
            Pb12.Visible = False
            Pb13.Visible = False
            Pb14.Visible = False
            Pb11.Visible = False
        End If
    End Sub

    Private Sub Btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncancel.Click
        Me.Close()
    End Sub

    Private Sub Btnproceed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproceed.Click

        If Txtfirstname.Text = “” Then
            MsgBox(”Please enter your firstname”)
        ElseIf Txtlastname.Text = “” Then
            MsgBox(”Please enter your lastname”)
        Else
            Lblwelcome.Text = “Welcome ” & Txtfirstname.Text & “” & Txtlastname.Text

            Lblwelcome.Visible = True
            Cbgender.Visible = True
            Cbcourse.Visible = False
            Cbhobbies.Enabled = False
            Cbcourse.Visible = False
            Lblgender.Visible = True
            Lblhobbies.Visible = False
            Lblcourse.Visible = False
            Lblfirstname.Visible = False
            Lbllastname.Visible = False
            Btnproceed.Enabled = False
            Txtfirstname.Visible = False
            Txtlastname.Visible = False

        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
 

Posted by hurry at 9:11 am | permalink | Add comment
Love is like a dreams that you dreaming on you!
love is like a flowers that light your day...and if you know yourself you can do already love others is what you spent time on him...!

     

February 2010
M T W T F S S
« Jan   Mar »
1234567
891011121314
15161718192021
22232425262728

Sponsored Links

About Me!

Hellow! just call me Ann i'm a simple gurl but i don't know how to love i like more friends....

Recent Photo

Latest Comments

Message Board

Pacquiao vs Margarito:

Blogwalking…Nice blog keep it up. I’ll be back soon.

Mayweather vs Mosley:

Blogwalking…Nice blog. Have a nice day ahead.

arnel:

hi, ann how are you na ahmmm ok na taz ko na bookmark ang inyo site after 3days makita na ina ah’ ingats nlang lagi…regards nlang ko da kay julie.

arnel:

ok ah txt lang ko kung san’o kamu la class totlu’an tka galing ah’ hambala si julie add yah man ko sa blog nya….thankz

cris:

add mo ko sa blog mo… muni lang na site hu.. http://loletsecopark.yolasite.com/

hurry:

wla gd comment ah!

support:

Congratulations, you’ve just completed the installation of this shoutbox.

support:

Congratulations, you’ve just completed the installation of this shoutbox.

support:

Hi! Your shoutbox is working fine!

Leave a message ▼