Accesing Parent Class

[whodaman]

Hi all, I've been extreamly stuck trying to figure this out. How would you access the parent class? For example:

Public Class Foo
Dim myInt as Integer
Dim cMoo as Moo

Public Sub main()
myInt = 0
cMoo.changeMyInt()
End Sub
End Class

Public Class Moo [???: inherits Foo]
Public Sub changeMyInt()
myInt = 3
End Sub
End Class

After calling changeMyInt in the main(), I would want to myInt to be 3. How would one do that? In my case I just wrote above, it would create another instance of Foo and only changing that instance. When going back to the Parent Foo, it still would be 0 coming out of Main(). How would one do this?

 

[chrissie1]

Public Class Foo
   public shared myInt as Integer
   Dim cMoo as Moo

   Public Sub main()
      myInt = 0
      cMoo.changeMyInt()
   End Sub
End Class

Public Class Moo 
   Public Sub changeMyInt()
     foo.myInt = 3
   End Sub
End Class

Christiaan Baes
Belgium

If you want to get an answer read this FAQ faq796-2540
There's no such thing as a winnable war - Sting

 

[whodaman]

Thanks a bunch Christiaan,

I was trying to be a smart ass and keep it simple, but didn't help me too much. What I really am trying to do is:

a form (Form1) calling another class/form (moo.vb). Moo is created from Form1. And Moo wants to change a property of an object in Form1 (i.e. Label1.text).

Since Label1 is defined in Sub InitializeComponent() in Form1.Designer.vb:

  Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label
  End Sub

How would you define Label1 as shared?

 

[ThatRickGuy]

Whoda, that is where the label is Instantiated. It is declared outside the InitializeComponent sub, just above it. Look for Friend Withevents Label1 as System.Windows.Forms.Label

change that to:
Protected Withevents Label1 as System.Windows.Forms.Label

-Rick

----------------------

http://www.ringdev.com

I believe in killer coding ninja monkeys.

 

[chrissie1]

Now Rick this seems to be the third time today you said that.

Christiaan Baes
Belgium

If you want to get an answer read this FAQ faq796-2540
There's no such thing as a winnable war - Sting

 

[ThatRickGuy]

4th if you include the FAQ

You'd think people are actually listening to the generated warning message or something.

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.

-Rick

----------------------

http://www.ringdev.com

I believe in killer coding ninja monkeys.

 

[RiverGuy]

I've never like changing a control's properties from another form/class it has created. I would end up using an event, but that's just me:

Main Form

Sub SomeRoutine
     Dim sf As New SubForm()
     AddHandler(sf.ChangeText(), AdressOf ChangeText)
     sf.Show()
End Sub

Sub ChangeText(ByVal NewText As String)
     Label1.Text = NewText
End Sub

Sub Form

Public Event ChangeText(ByVal NewText As String)
.....
Sub SomeRoutine
     RaiseEvent ChangeText(SomeText)
End Sub

 

[ThatRickGuy]

A nice solution, might have to tack that onto the 1000 ways... FAQ!

-Rick

----------------------

http://www.ringdev.com

I believe in killer coding ninja monkeys.