VB.NET: Adding Items to ComboBox from previous form....[Resolved]

[toytoy]

Say i have Form1 with comboBox1 and Form2 with comboBox2..

When i click on Form1 button, Form2 will appear on top of Form1...

My Code:

' Form1 button 
 Private Sub btnOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOne.Click
        Dim form2 As New Form2
        form2.ShowDialog()
    End Sub

How to add the items from Form2 's comboBox to Form1 's comboBox...

My Code:

' Form2 button 
  Private Sub btnTwo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTwo.Click
       Dim form1 As New Form1
       form1.comboBox1.Items.Add(Me.comboBox2.Text)
    End Sub

These code will not have any effect on comboBox1 in Form1..

Thanks

[RobDog888]

You are not seeing combo2 being added to combo1 because
your creating another instance of form1 from the form2 button
click event (which isnt visible).

So, to correct this we need to add a standard module to the
project as the start up procedure of Sub Main. This is where we
will create our instances of Form1 and Form2. Then when you go
to Form2 its already instanciated so you just need to show it.

When you go back to Form1 you also just show it and we will be
dealing with one instance of each form all the way through.

'NOTE: Set your startup object to Sub Main
 
Module Module1
 
    Public goForm1 As New Form1
    Public goForm2 As New Form2
 
    Public Sub Main()
 
        goForm1.ShowDialog()
 
    End Sub
 
End Module
 
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
[color=silver]"Windows Form Designer generated code"[/color]
 
    ' Form1 button 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        goForm1.Hide()
        goForm2.ShowDialog()
    End Sub
 
End Class
 
 
Public Class Form2
    Inherits System.Windows.Forms.Form
 
[color=silver]"Windows Form Designer generated code"[/color]
 
    ' Form2 button 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        goForm1.ComboBox1.Items.Add(Me.ComboBox2.Text)
        goForm2.Dispose()
        goForm1.Show()
    End Sub
 
End Class

HTH

[toytoy]

thanks it works....

but if i click on another button to go to Form3...

Form1 and Form2 cannot closed..

and it gives an error :

An unhandled exception of type 'System.ObjectDisposedException' occurred in system.windows.forms.dll

Additional information: Cannot access a disposed object named "goToForm2".

Public Class Form1
    Inherits System.Windows.Forms.Form

"Windows Form Designer generated code"

    ' Form1 button 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        goForm1.Hide()
        goForm2.ShowDialog() 'The error point here 
    End Sub
End Class

[fret]

here's what i got.
in Form1

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As New Form2()
        Me.AddOwnedForm(f)
        f.ShowDialog()
    End Sub

in Form2

Dim f As Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        f = Me.Owner
        f.ComboBox1.Items.Add(Me.ComboBox1.Text)
        Close()
    End Sub

hope that helps.

[RobDog888]

fret's code is simpler. Try it.

[toytoy]

it could works....

but if only i turn OFF the option strict...

I am working on the codes where option strict is ON...

The error happen here:

' Inside Form2 
    Dim f As Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        f = Me.Owner 'The error is on this line 
        f.ComboBox1.Items.Add(Me.ComboBox1.Text)
        Close()
    End Sub

any other ideas how to deal with it.....

[fret]

hi toytoy
you replace with this:

f = CType(Me.Owner, Form1)

[toytoy]

thanks.....it works

do you know how not to close the form2 immediately after i enter some information....

that means i can choose not to close form2....and keep on adding instead of adding only once and have to click the form2 button again...

[fret]

remove the "Close()" statment and make a button that will trigger as your close event something like that.

[toytoy]

I found another way of doing.....but it will still close Form2

I can only add it once..

My code:

' Form1 button  
 Private Sub btnOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOne.Click
     Dim form2 As New Form2 
     form2.ShowDialog() 
     Me.ComboBox1.Items.Add(form2.ComboBox2.Text) 
     form2.Dispose() 
 End Sub

' Form2 button  
  Private Sub btnTwo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTwo.Click
      Me.Close() 
  End Sub

[fret]

Originally posted by toytoy
I found another way of doing.....but it will still close Form2

I can only add it once..

My code:

[COLOR=blue]' Form1 button [/COLOR] 
 Private Sub btnOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOne.Click
      Dim form2 As New Form2 
     form2.ShowDialog() 
     Me.ComboBox1.Items.Add(form2.ComboBox2.Text) 
      form2.Dispose() 
 End Sub
 
[COLOR=blue]' Form2 button [/COLOR] 
  Private Sub btnTwo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTwo.Click
      Me.Close() 
  End Sub

you mean, you want to click how many times on button in form2 and add in the form1's combobox? is that what you trying to do?

[toytoy]

yeah....

if can at the same time can minimize Form2 and view Form1, that will be much better...

[fret]

this one?
in Form1:

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As Form
        For Each f In Me.OwnedForms
            If f.Name = "Form2" Then
                f.Activate()
                Exit Sub
            End If
        Next
        f = New Form2()
        Me.AddOwnedForm(f)
        f.Show()
    End Sub

in the Form2:

Dim f As Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        f = CType(Me.Owner, Form1)
        f.ComboBox1.Items.Add(Me.ComboBox1.Text)
    End Sub
    'close button
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()
    End Sub

this is not perfect of what you seek but it's close, you can do add your stuff or whatever.

[toytoy]

thanks fret....

It is something that i want...

like you say though it is not perfect, it can add my stuff...

you are great.

[fret]

no probz toytoy i myself also needs also some advice, but anyway happy coding.