Kamis, 15 November 2012

Listing Formulir Pendaftaran Biro Jodoh


PublicClassForm1

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Form2.Show()
Me.Hide()
EndSub

PrivateSub Form1_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load

EndSub
EndClass

PublicClassForm2

PrivateSub textbox3_Keypress(ByVal sender AsSystem.Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
DimnumAsBoolean = Char.IsDigit(e.KeyChar)
If (Notnum) Thene.Handled = True

EndSub

PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        CheckBox1.Checked = False
        CheckBox2.Checked = False
        TextBox3.Text = ""
        TextBox4.Text = ""
        ComboBox1.SelectedItem = Nothing
        ComboBox2.SelectedItem = Nothing
        ComboBox3.SelectedItem = Nothing

EndSub

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Form3.Show()
Me.Hide()

EndSub

PrivateSub Form2_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load

EndSub
EndClass

PublicClassForm3
PrivateSub textbox2_Keypress(ByVal sender AsSystem.Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
DimnumAsBoolean = Char.IsDigit(e.KeyChar)
If (Notnum) Thene.Handled = True
EndSub

PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
Form4.Show()
Me.Hide()
EndSub

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Form2.Show()
Me.Hide()
EndSub

PrivateSub Button3_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click
        CheckBox1.Checked = False
        CheckBox2.Checked = False
        CheckBox3.Checked = False
        ComboBox1.SelectedItem = Nothing
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        DateTimePicker1.Text = ""
EndSub
PrivateSub textbox3_Keypress(ByVal sender AsSystem.Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
DimnumAsBoolean = Char.IsDigit(e.KeyChar)
If (Notnum) Thene.Handled = True
EndSub

PrivateSub Form3_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load

EndSub
EndClass

PublicClassForm4

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
Form3.Show()
EndSub

PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
Form5.Show()
Me.Hide()
EndSub

PrivateSub Button1_Click_1(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Form3.Show()
Me.Hide()
EndSub

PrivateSub Form4_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load

EndSub
EndClass

PublicClassForm5

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Form4.Show()
Me.Hide()
EndSub

PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
Close()
EndSub

PrivateSub Button3_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click
Form6.Show()
Me.Hide()

EndSub

PrivateSub Form5_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load

EndSub
EndClass

PublicClassForm6

PrivateSub Label1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Label1.Click
Form7.Show()
Me.Hide()

EndSub

PrivateSub Form6_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load

EndSub
EndClass


PublicClassForm7

PrivateSub Form7_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load
Me.BackColor = Color.Crimson
        Label16.Text = Form2.TextBox1.Text
If Form2.CheckBox1.Checked Then Label17.Text = Form2.CheckBox1.Text
If Form2.CheckBox2.Checked Then Label17.Text = Form2.CheckBox2.Text
        Label18.Text = Form2.TextBox3.Text
        Label19.Text = Form2.TextBox4.Text
        Label20.Text = Form2.ComboBox1.SelectedItem
        Label21.Text = Form2.ComboBox2.SelectedItem
        Label22.Text = Form2.ComboBox3.SelectedItem
If Form3.CheckBox1.Checked Then Label23.Text = Form3.CheckBox1.Text
If Form3.CheckBox2.Checked Then Label23.Text = Form3.CheckBox2.Text
If Form3.CheckBox3.Checked Then Label23.Text = Form3.CheckBox3.Text
        Label24.Text = Form3.ComboBox1.SelectedItem
        Label25.Text = Form3.TextBox2.Text
        Label26.Text = Form3.TextBox3.Text
        Label27.Text = Form3.TextBox4.Text
        Label28.Text = Form3.TextBox5.Text
        Label30.Text = Form3.DateTimePicker1.Text

EndSub

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Form2.Show()
Me.Hide()

EndSub

PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
Form8.Show()
Me.Hide()

EndSub
EndClass

PublicClassForm7

PrivateSub Form7_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load
Me.BackColor = Color.Crimson
        Label16.Text = Form2.TextBox1.Text
If Form2.CheckBox1.Checked Then Label17.Text = Form2.CheckBox1.Text
If Form2.CheckBox2.Checked Then Label17.Text = Form2.CheckBox2.Text
        Label18.Text = Form2.TextBox3.Text
        Label19.Text = Form2.TextBox4.Text
        Label20.Text = Form2.ComboBox1.SelectedItem
        Label21.Text = Form2.ComboBox2.SelectedItem
        Label22.Text = Form2.ComboBox3.SelectedItem
If Form3.CheckBox1.Checked Then Label23.Text = Form3.CheckBox1.Text
If Form3.CheckBox2.Checked Then Label23.Text = Form3.CheckBox2.Text
If Form3.CheckBox3.Checked Then Label23.Text = Form3.CheckBox3.Text
        Label24.Text = Form3.ComboBox1.SelectedItem
        Label25.Text = Form3.TextBox2.Text
        Label26.Text = Form3.TextBox3.Text
        Label27.Text = Form3.TextBox4.Text
        Label28.Text = Form3.TextBox5.Text
        Label30.Text = Form3.DateTimePicker1.Text

EndSub

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Form2.Show()
Me.Hide()

EndSub

PrivateSub Button2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
Form8.Show()
Me.Hide()

EndSub
EndClass

Tidak ada komentar:

Posting Komentar