question about multiple forms

[maia_18]

hi.... i have a noob problem on dealing with multiple forms... its supposed to have 3 forms... form 1 is where i enter my id and name in their respective textboxes, choose my course from a coursebox, and choose my year on a coursebox... when i click on "Next", form 2 appears... form 2 is where i enter my address in two textboxes, my contact no. and my birthdate... then there is a procedure for calculating my age, which will be displayed in a disabled textbox... when i click "next" again, form 3 appears and is supposed to display all that i've entered...

the problem is, my form 3 only displays the data i've entered in form 1.. it does not display the stuff i entered in form 2... please help....

code:
form 1:

Public Class Form1
    Public id As String
    Public names As String
    Public course As String
    Public year As String


    Public address1 As String
    Public address2 As String
    Public contact As String
    Public bdate As String
    Public age As Integer


    Private Sub courseBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles courseBox.SelectedIndexChanged
        If courseBox.SelectedItem Is "BSCoE" Then
            course = CStr(courseBox.SelectedItem)
        ElseIf courseBox.SelectedItem Is "BSCS" Then
            yearBox.Items.Remove("5")
            course = CStr(courseBox.SelectedItem)
        ElseIf courseBox.SelectedItem Is "DCET" Or courseBox.SelectedItem Is "DIT" Or courseBox.SelectedItem Is "HRS" Then
            yearBox.Items.Remove("5")
            yearBox.Items.Remove("4")
            yearBox.Items.Remove("3")
            course = CStr(courseBox.SelectedItem)
        End If
    End Sub


    Private Sub yearBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yearBox.SelectedIndexChanged
        year = yearBox.SelectedItem
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        id = CStr(idBox.Text)
        names = CStr(nameBox.Text)
        Me.Hide()
        Dim nextform As New Form2
        nextform.Show()
    End Sub
End Class

form 2:

Public Class Form2    Public address1 As String
    Public address2 As String
    Public contactno As String
    Public bday As String
    Public age As Single


    Private Sub dateBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles dateBox.LostFocus
        age = DateDiff(DateInterval.Year, CDate(dateBox.Text), Now)
        ageBox.Text = age
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        address1 = CStr(add1.Text)
        address2 = CStr(add2.Text)
        contactno = CStr(contact.Text)
        bday = CStr(dateBox.Text)
        Me.Hide()
        Dim nextfrm As New Form3
        nextfrm.Show()
    End Sub
End Class

form 3:

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        idbox.Text = Form1.id
        namebox.Text = Form1.names
        coursebox.Text = Form1.course
        yearbox.Text = Form1.year
        addbox1.Text = Form2.address1
        addbox2.Text = Form2.address2
        contactbox.Text = Form2.contactno
        bdaybox.Text = Form2.bday
        agebox.Text = Form2.age


    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
        Form1.Close()
        Form2.Close()
    End Sub
End Class

thanks!!! i really don't know where to look for my error...

 

[Flippedbeyond]

only showing relevant info in quote:

form 1:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nextform As New Form2
        nextform.Show()
    End Sub

form 3:

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        idbox.Text = Form1.id
        namebox.Text = Form1.names
        coursebox.Text = Form1.course
        yearbox.Text = Form1.year
        addbox1.Text = Form2.address1
        addbox2.Text = Form2.address2
        contactbox.Text = Form2.contactno
        bdaybox.Text = Form2.bday
        agebox.Text = Form2.age
    End Sub

my form 3 only displays the data i've entered in form 1.. it does not display the stuff i entered in form 2

It looks like the reason why your only showing data from form1 is because 'Form2' is not where you entered the data. Notice that in form1 you created a New Instance of Form2 and you named it 'nextform'
A quick solution for this problem would be to make 'nextform' public in the class scope Form1. Then, instead of getting the data from Form2 you should be getting the data from 'Form1.nextfrom'

or instead of creating a new instance of Form2 named 'nextform' you can just do 'Form2.Show()'

hope that helps...

 

[maia_18]

thank you!!!! i didn't know i only needed to do that!!!! thank you very, very much!!!!