Using Inherit button

[toytoy]

hi everybody....

I try to create a inherit form from the base form..

I notice that the button that is inherit cannot be use for coding
therefore i try to code the Overrides method in the inherit object and Overridable in the base class for the button.

But i still cannot access the button from the base form to link to the inherit form.

Why !!!! I can only do the link through Show() method inside the button event......

Thanks

[mendhak]

I think what you're doing is called visual inheritance. You can use the Shadows keyword to use the button.

[mendhak]

See if this thread is of any help:

http://www.vbforums.com/showthread.p...hreadid=288144

[toytoy]

Hi.....

Thanks....

Do you know that it is still running in the background when you click the button....

any idea how to limit only one form instead of multiple from running in the background....

[mendhak]

Not sure what you mean. Try calling it from a module instead.

[toytoy]

I mean that when you click from form1 to form2

It will link to form2........(As Normal)
but if you click again to form2.........another form2 will pop up
If you try to drag, you will notice there will be one form1 and two form2......

Can this be limit to just one form when the user click the link to form2 twice....

Thanks

[brown monkey]

dim f as new form2()
f.[i]showdialog()[/i]

i don't know if this is what you mean. hope i make sense.

[toytoy]

No still appear......

I click on the link to another form2 many times....
it create a lot... I have to close the form2 many times

[brown monkey]

' on form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim f As Form2
      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
 
' on form2
   Dim f As Form1
   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      f = Me.Owner
   End Sub