How to gain access to objet in different class ?

[aurora10]

Can ant body help me to see how to get access to all controls of the
Form for Sub in a different class.

Thanks in advance.

this is how it looks:

////////////////////////////////////////
Form1
...........
..........

pirvate sub ButtonClick(.......)

dim A as X = new X
A.Write()
end sub

---------------------
//////////////////////////--------------------
Class X
inherits Form1

public sub ()
Code for Write()

.............

Form1.textbox1........
Form1.textbox2.......
Form1.textbox3.......
etc

//it works OK if I put this Form1 before every textbox but I have them
more than 50 !

if i dont - it doesnt work ( but I put inherits Form1 there !)

How can I work this out without manualy typing every time Form1 ?

.....
end sub
end class
//////////////////////////////////////

[ChristopherJ]

okay .... you could try using the "with" keyword
With Form1
textbox1
end with

-ChristopherJ


au******@gmail.com wrote:

Can ant body help me to see how to get access to all controls of the
Form for Sub in a different class.

Thanks in advance.

this is how it looks:

////////////////////////////////////////
Form1
..........
.........

pirvate sub ButtonClick(.......)

dim A as X = new X
A.Write()
end sub

---------------------
//////////////////////////--------------------
Class X
inherits Form1

public sub ()
Code for Write()

............

Form1.textbox1........
Form1.textbox2.......
Form1.textbox3.......
etc

//it works OK if I put this Form1 before every textbox but I have them
more than 50 !

if i dont - it doesnt work ( but I put inherits Form1 there !)

How can I work this out without manualy typing every time Form1 ?

....
end sub
end class
//////////////////////////////////////

[aurora10]

Thank you for reply. It doesn't work that way. Still need to add Form1
before the controls to make it work.

Public Class Class1
Public Sub Yo()
With Form1
Form1.TextBox1.AppendText(".........") < hier
End With

End Sub
End Class

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

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim x As Class1 = New Class1
x.Yo()
End Sub
End Class

I simlpify it just to describe the problem...

[William LaMartin]

How about changing textbox1 to .textbox1 in the suggestion?

"ChristopherJ" <cm****@gmail.com> wrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...

okay .... you could try using the "with" keyword
With Form1
textbox1
end with

-ChristopherJ


au******@gmail.com wrote:

Can ant body help me to see how to get access to all controls of the
Form for Sub in a different class.

Thanks in advance.

this is how it looks:

////////////////////////////////////////
Form1
..........
.........

pirvate sub ButtonClick(.......)

dim A as X = new X
A.Write()
end sub

---------------------
//////////////////////////--------------------
Class X
inherits Form1

public sub ()
Code for Write()

............

Form1.textbox1........
Form1.textbox2.......
Form1.textbox3.......
etc

//it works OK if I put this Form1 before every textbox but I have them
more than 50 !

if i dont - it doesnt work ( but I put inherits Form1 there !)

How can I work this out without manualy typing every time Form1 ?

....
end sub
end class
//////////////////////////////////////

[aurora10]

Thank you thank you thank you

it worked with .