Protected sub's

[jorge]

hey,

is there a way to use varibale and classes defined outside it to work inside a Protected sub? doesn't seem to work.

[DR00ME]

you want to access things which are defined outside the sub ? (from inside the sub) ? if that is the case, yes there is a way to do it quite easily.

 

But case2: If you want to access the protected sub here is some info:

Edited March 12, 2004 by DR00ME

[jorge]

you want to access things which are defined outside the sub ? (from inside the sub) ? if that is the case, yes there is a way to do it quite easily.

 

But case2: If you want to access the protected sub here is some info:

 

euhm and what is the easy way? i'm not quite following you sry.

and yes i want to acces thing from inside the sub.

here is the code i have problems with:

   server.vb:
   -----------
   Protected Overrides Sub OnStart(ByVal args() As String)
       MyServer.SetPort(sApache_server_port)
       MyServer.SetRunLevel(Threading.ThreadPriority.Normal
       MyServer._start()
   End Sub

MyServer and sApache_server_port are both definde in main.vb

but i can't acces them

[DR00ME]

euhm and what is the easy way? i'm not quite following you sry.

and yes i want to acces thing from inside the sub.

here is the code i have problems with:

   server.vb:
   -----------
   Protected Overrides Sub OnStart(ByVal args() As String)
       MyServer.SetPort(sApache_server_port)
       MyServer.SetRunLevel(Threading.ThreadPriority.Normal
       MyServer._start()
   End Sub

MyServer and sApache_server_port are both definde in main.vb

but i can't acces them

 

 

Maybe I bulls*** now but try it... lol

 

 

1. 'Put this in server.vb

Private main As New main(Me) 

 

 

2. 'Put this in main.vb

Private trick As server

Public Sub New(ByVal trk As server)
           trick = trk
End Sub

 

you have to do both operations in order to make it work....

 

 

3. you could also try putting 

Private trick as main

in your server.vb

and making MyServer and sApache_server_port   Public in main....

 

after doing phase 1. and 2.

 

you should be able to access the methods or whatever like this:

 

 

Protected Overrides Sub OnStart(ByVal args() As String)

main.MyServer.SetPort(main.sApache_server_port)

main.MyServer.SetRunLevel(Threading.ThreadPriority.Normal

main.MyServer._start()

End Sub

 

 

or option 3.

 

Protected Overrides Sub OnStart(ByVal args() As String)

trick.MyServer.SetPort(trick.sApache_server_port)

trick.MyServer.SetRunLevel(Threading.ThreadPriority.Normal

trick.MyServer._start()

End Sub

 

remember to make the things public you want to use.

 

or something like that... I might be totally wrong too... just play around and see what happens... :D

Edited March 12, 2004 by DR00ME

[jorge]

Thnx i'll play with it a bit