moving data between forms using module

mcfly · #1 (**permalink**) 02-09-2010, 7:38 AM

this will probably be simple to answer for the right person, I have a form and I need to pass data to another form, I have decided to use a module to store the data I want to pass, here's what code resides on the first form:

Code:

Private Sub CreateNewEventOrAppointmentToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateNewEventOrAppointmentToolStripMenuItem.Click
        Dim person_id As String
        Dim calendar_id As String

        person_id = TextBox6.Text

        calendar_id = TextBox3.Text

        get_person_id() = person_id

        get_calendar_id() = calendar_id

        frmEvent.Show()
        Me.Hide()
    End Sub

All I want to do is call a procedure and the data be sent to themodule, and the data to be stored for when I next need it on the second form, here's what i have but doesn't seem to work:

Code:

Module Module1

    Private Sub get_person_id(ByVal person_id As String)

    End Sub

    Private Sub get_calendar_id(ByVal calendar_id As String)

    End Sub

End Module

As you can tell I am very new to vb.net, but I am hopefully on the right lines and somebody will understand what I mean and can help further.

Also as a side note is this a good way to move data between forms????

Hack · #2 (**permalink**) 02-09-2010, 8:25 AM

Make your two Subs Public rather than Private

mcfly · #3 (**permalink**) 02-09-2010, 8:36 AM

hiya i have now done that, but it still has a error on this line:

Code:

        get_person_id() = person_id

        get_calendar_id() = calendar_id

Says 'Argument not specified for parameter 'person_id of 'Public Sub get_perso(person_id As String)

What ever that means....

Hack · #4 (**permalink**) 02-09-2010, 8:39 AM

No equals sign. get_person_id is the name of the sub and person_id is the parameter you are passing it. person_id doesn't equal anything

Code:

get_person_id(person_id)

mcfly · #5 (**permalink**) 02-09-2010, 8:42 AM

i done it at last - so simple when u know how:

Code:

Private Sub CreateNewEventOrAppointmentToolStripMenuItem_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateNewEventOrAppointmentToolStripMenuItem.Click
Dim person_id As String
Dim calendar_id As String

person_id = TextBox6.Text

calendar_id = TextBox3.Text

get_person_id(person_id)

get_calendar_id(calendar_id)

frmEvent.Show()
Me.Hide()
End Sub

Code:

Module Module1

    Public Sub get_person_id(ByVal person_id As String)
        MsgBox("Your variable" & person_id)
    End Sub

    Public Sub get_calendar_id(ByVal calendar_id As String)
        MsgBox("Your variable" & calendar_id)
    End Sub

End Module

Hack · #6 (**permalink**) 02-09-2010, 8:42 AM

Is this something you will need to call from multiple forms throughtout your project?

mcfly · #7 (**permalink**) 02-09-2010, 10:50 AM

yes, is this a good way of doing this and how would you call the data thats stored?...

Hack · #8 (**permalink**) 02-09-2010, 10:54 AM

The data isn't really stored. Each time you call it, you pass it what you want person_id to be.

It can be the same thing each time...it could be something different on each form every time you run it.

mcfly · #9 (**permalink**) 02-09-2010, 11:43 AM

ok, i understand a bit more...

so i have manage to get the data from my form1 to my module, now i need to read this data from another form...suppose it acts as a tempory place holder i think:

heres the code i have on form2:

Code:


    Public Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim person_id As String
        Dim calendar_id As String

        Call set_person_id(person_id)
        Call set_calendar_id(calendar_id)

        MsgBox("Your variable " & person_id)
        MsgBox("Your variable " & calendar_id)
    End Sub

heres the module

Code:

Module Module1

    Public Sub get_person_id(ByVal person_id As String)

    End Sub

    Public Sub get_calendar_id(ByVal calendar_id As String)

    End Sub

    Public Sub set_person_id(ByVal person_id)
        Return
    End Sub

    Public Sub set_calendar_id(ByVal calendar_id)
        Return
    End Sub

End Module

I am going slightly wrong within my code for calling the data?? But am not sure where...???

Hack · #10 (**permalink**) 02-09-2010, 11:55 AM

I think we can simplify things by getting rid of the sub routines, and simply using public variables

Code:

Module Module1

Public person_id As String
Public calendar_id As String

End Module

'from somewhere on some form
person_id = "mcfly"

'from somewhere else on any other form in your entire project
Messagebox.Show(person_id)

Same same with calendar_id

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)