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(B yVal sender As System.Object, ByVal e As
System.EventArg s) 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?

"Christophe rJ" <cm****@gmail.c om> wrote in message
news:11******** **************@ m73g2000cwd.goo glegroups.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 .