how can i display my array over multiple forms?

kate 0

I have an array currrently containing data for 7 employees, i wish to click on a button in form 1 and then forms 2 through to 8(or however many are required to satisfy array size) be created to display the data for each employee. The data is to be displayed in textboxes on each form. i.e. form 2 will display data for Dave and will have a button to form 3 to display data for Emile, etc etc Currently my code (which is below) is placing all the data on new instances of form2 and i don't know how i can navigate round i.e from the first instance of form2 'Dave' to the second instance 'Emile', i have to close down a form to see whatever employee data is on the form behind it. Does anyone know how to achieve the creation of new forms, display the data on these new forms and then provide functionality to navigate between these new forms all through a button click on form1? Form1 vb code: Public employee As Object(,) = {{"Dave", 105, 4, 14.8, 3.47, 1.06, 4.04, 4.03}, _ {"Emile", 120, 5.55, 16.1, 3.93, 1.2, 4.7, 4.74}, _ {"Daniel", 152, 6.38, 21.1, 4.9, 1.2, 6.02, 4.23}, _ {"Ron", 101, 4, 13.6, 3.4, 0, 3.83, 3.79}, _ {"Bryan", 121, 5.55, 15.8, 3.93, 0, 5.83, 4.64}, _ {"Bert", 150, 6.25, 20, 5, 0, 5.13, 4.67}, _ {"Chuck", 265, 6.7, 17.7, 3.7, 0, 4.5, 4.44}} Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer = 0 For i = 0 To UBound(employee) Dim F As New Form2(employee(i, 0).ToString(), _ CType(employee(i, 1), String), _ CType(employee(i, 2), Single), _ CType(employee(i, 3), Single), _ CType(employee(i, 4), Single), _ CType(employee(i, 5), Single), _ CType(employee(i, 6), Single), _ CType(employee(i, 7), Single)) F.Show() Next End Sub Form2 vb code: Form2 vb code: Public Sub New(ByVal name As String, _ ByVal data1 As Single, _ ByVal data2 As Single, _ ByVal data3 As Single, _ ByVal data4 As Single, _ ByVal data5 As Single, _ ByVal data6 As Single) MyBase.New() Me.InitializeComponent() txtname.Text = name txtdata1.Text = data1.ToString txtdata2.Text = data2.ToString txtdata3.Text = data3.ToString txtdata4.Text = data4.ToString txtdata5.Text = data5.ToString txtdata6.Text = data6.ToString txtdata7.Text = data7.ToString End Sub

2 Replies

Know the answer? Post it — somebody with the same question will find it here.

MythicalMe21y ago
If you change form 1's F form to a global array you can use the single button to Show and Hide the second form as required. You'll also have to restructure your loop so that you're only initializing the forms. F(0).Show will come after the Next. Your button click event will look something like this: Private Sub button1_click(byval Sender as object, e as System.EventArgs) handle button1.Click ' currForm is a global integer in form 1, initialized to 0 F(currForm).Hide currForm += 1 if currForm = UBound(F) then currForm = 0 end if F(currForm).Show End Sub
MythicalMe21y ago
I gave you the answer in an earlier reply. In form2 you will have to create properties that reflect each of the values that you wish to display in the form. In form 2 you cannot use Sub New as you're attempting to use it. There is no way pass the variables properly because the form has yet to be created. So just let the form initialize normally, ie. take out the data variables. and examine my code below which follows the designer code. Private m_Name as string Private m_Data1 as single Private m_Data2 as single Private m_Data3 as single Private m_Data4 as single Private m_Data5 as single private m_Data6 as single ' Properties are used to pass data between forms, controls and classes. I will only place 2 properties of the 7 because your data is exactly the same... Public Property data1 as string Get return m_Name End Get Set (value as String) m_Name = value txtname.Text = m_Name End Set End Property Public Property data1 as single Get return m_Data1 End Get Set (value as Single) m_Data1 = value txtdata1.Text = m_Data1.ToString End Set End Property ' Use the textbox.validate event to pass data back through the variable. For example: Private sub txtname_validated(byval sender as object, byval e as system.eventargs) _ handles txtname.validated m_Name = txtname.text End sub Now in form 1: For i = 0 To UBound(employee) Dim F As New Form2 ' F should actually be a global array, especially if you're using Show instead of ShowDialog. f.Name = employee(i, 1) f.data1 = employee(i, 2) ' etc. F.Show() Next