«

Hi,

i created a class 'test' with a method 'descrlimit()' (no matter).
That method is used in a lot of pages in the application, so i need to put
this code a lot of time: "Dim odescr As New test"

In order to avoid that, i wonder whether it would be possible to put that
line in a central place, like global.asax.

I tried this:

class file
--------
Public Class test
Public Function descrlimit(ByVal descr As Object) As String
Dim tmp As String = descr.ToString()
....
Return tmp
End Function

global.asax
-----------
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
Dim odescr As New test
Application.Add("odescr", odescr)
End Sub

But it generates in all pages which use that method the error: "Name
'odescr' is not declared"
Thanks for helping
Michel

On Feb 19, 11:23 pm, "michel" <mm@mmm> wrote:
> Hi,
>
> i created a class 'test' with a method 'descrlimit()' (no matter).
> That method is used in a lot of pages in the application, so i need to put
> this code a lot of time: "Dim odescr As New test"
>
> In order to avoid that, i wonder whether it would be possible to put that
> line in a central place, like global.asax.
>
> I tried this:
>
> class file
> --------
> Public Class test
> Public Function descrlimit(ByVal descr As Object) As String
> Dim tmp As String = descr.ToString()
> ....
> Return tmp
> End Function
>
> global.asax
> -----------
> Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
> Dim odescr As New test
> Application.Add("odescr", odescr)
> End Sub
>
> But it generates in all pages which use that method the error: "Name
> 'odescr' is not declared"
> Thanks for helping
> Michel


You've added your variable to the Application object, so you should
refer to it:

Dim ctx as HttpApplication = HttpContext.Current.ApplicationInstance
Dim tmp As String = ctx.Application("odescr").ToString()

I'm not sure this is going to do what you think. Using it the way you
demonstrate would have all the pages in the application using the exact same
object. That's probably not good since you will run into issues where two
pages are performing actions on the same item at one time.

One of the things that you gain from re-writing it in each page that needs
it is the object is instantiated and destroyed within the context of that
page. That helps memory management so you don't have that same object being
held on to or created when it isn't needed. Does this function use any other
portions of an instantiated class, in other words does it need access to
methods or properties defined elsewhere in the class. For example, a
rectangle objects CalculateArea method would need access to the width and
length properties. If all you're doing is passing a value into the function
to perform an operation and get the value out, you may want, instead, to
create a shared function. This way the object isn't instantiated and all
your pages can essentially share a copy of the object since all they're
doing is passing their data in order to get it out.


--

Hope this helps,
Mark Fitzpatrick
Former Microsoft FrontPage MVP 199?-2006

"michel" <mm@mmm> wrote in message
news:%...
> Hi,
>
> i created a class 'test' with a method 'descrlimit()' (no matter).
> That method is used in a lot of pages in the application, so i need to put
> this code a lot of time: "Dim odescr As New test"
>
> In order to avoid that, i wonder whether it would be possible to put that
> line in a central place, like global.asax.
>
> I tried this:
>
> class file
> --------
> Public Class test
> Public Function descrlimit(ByVal descr As Object) As String
> Dim tmp As String = descr.ToString()
> ....
> Return tmp
> End Function
>
> global.asax
> -----------
> Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
> Dim odescr As New test
> Application.Add("odescr", odescr)
> End Sub
>
> But it generates in all pages which use that method the error: "Name
> 'odescr' is not declared"
> Thanks for helping
> Michel
>
>

On Feb 20, 12:02 am, "Mark Fitzpatrick" <markf...@fitzme.com> wrote:
> I'm not sure this is going to do what you think. Using it the way you
> demonstrate would have all the pages in the application using the exact same

Mark is right, I forgot this to mention

Hi Alexey, thanks for replying ...
I made the changes but still same error: Name 'odescr' is not declared"

global.asax: (unchanged):
----------
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
Dim odescr As New test
Application.Add("odescr", odescr)
End Sub

class fle:
--------
Public Class test
Public Function descrlimit(ByVal descr As Object) As String
Dim ctx As HttpApplication = HttpContext.Current.ApplicationInstance
Dim tmp As String = ctx.Application("odescr").ToString()
....
Return tmp
End Function
End Class










"Alexey Smirnov" <> schreef in bericht
news: oups.com...
> On Feb 19, 11:23 pm, "michel" <mm@mmm> wrote:
>> Hi,
>>
>> i created a class 'test' with a method 'descrlimit()' (no matter).
>> That method is used in a lot of pages in the application, so i need to
>> put
>> this code a lot of time: "Dim odescr As New test"
>>
>> In order to avoid that, i wonder whether it would be possible to put that
>> line in a central place, like global.asax.
>>
>> I tried this:
>>
>> class file
>> --------
>> Public Class test
>> Public Function descrlimit(ByVal descr As Object) As String
>> Dim tmp As String = descr.ToString()
>> ....
>> Return tmp
>> End Function
>>
>> global.asax
>> -----------
>> Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
>> Dim odescr As New test
>> Application.Add("odescr", odescr)
>> End Sub
>>
>> But it generates in all pages which use that method the error: "Name
>> 'odescr' is not declared"
>> Thanks for helping
>> Michel
>
>
> You've added your variable to the Application object, so you should
> refer to it:
>
> Dim ctx as HttpApplication = HttpContext.Current.ApplicationInstance
> Dim tmp As String = ctx.Application("odescr").ToString()
>

Hi, thanks for your explanation..
But could you tell me what 's wrong in this code, for the sake of my spirit
....? I still get that error.

"Mark Fitzpatrick" <> schreef in bericht
news:...
> I'm not sure this is going to do what you think. Using it the way you
> demonstrate would have all the pages in the application using the exact
> same object. That's probably not good since you will run into issues where
> two pages are performing actions on the same item at one time.
>
> One of the things that you gain from re-writing it in each page that needs
> it is the object is instantiated and destroyed within the context of that
> page. That helps memory management so you don't have that same object
> being held on to or created when it isn't needed. Does this function use
> any other portions of an instantiated class, in other words does it need
> access to methods or properties defined elsewhere in the class. For
> example, a rectangle objects CalculateArea method would need access to the
> width and length properties. If all you're doing is passing a value into
> the function to perform an operation and get the value out, you may want,
> instead, to create a shared function. This way the object isn't
> instantiated and all your pages can essentially share a copy of the object
> since all they're doing is passing their data in order to get it out.
>
>
> --
>
> Hope this helps,
> Mark Fitzpatrick
> Former Microsoft FrontPage MVP 199?-2006
>
> "michel" <mm@mmm> wrote in message
> news:%...
>> Hi,
>>
>> i created a class 'test' with a method 'descrlimit()' (no matter).
>> That method is used in a lot of pages in the application, so i need to
>> put this code a lot of time: "Dim odescr As New test"
>>
>> In order to avoid that, i wonder whether it would be possible to put that
>> line in a central place, like global.asax.
>>
>> I tried this:
>>
>> class file
>> --------
>> Public Class test
>> Public Function descrlimit(ByVal descr As Object) As String
>> Dim tmp As String = descr.ToString()
>> ....
>> Return tmp
>> End Function
>>
>> global.asax
>> -----------
>> Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
>> Dim odescr As New test
>> Application.Add("odescr", odescr)
>> End Sub
>>
>> But it generates in all pages which use that method the error: "Name
>> 'odescr' is not declared"
>> Thanks for helping
>> Michel
>>
>>
>
>

On Feb 20, 12:24 am, "michel" <mm@mmm> wrote:
> Hi Alexey, thanks for replying ...
> I made the changes but still same error: Name 'odescr' is not declared"
>
> global.asax: (unchanged):
> ----------
> Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
> Dim odescr As New test
> Application.Add("odescr", odescr)
> End Sub
>
> class fle:
> --------
> Public Class test
> Public Function descrlimit(ByVal descr As Object) As String
> Dim ctx As HttpApplication = HttpContext.Current.ApplicationInstance
> Dim tmp As String = ctx.Application("odescr").ToString()
> ....
> Return tmp
> End Function
> End Class
>
> "Alexey Smirnov" <alexey.smir...@gmail.com> schreef in berichtnews: ooglegroups.com...
>
>
>
> > On Feb 19, 11:23 pm, "michel" <mm@mmm> wrote:
> >> Hi,
>
> >> i created a class 'test' with a method 'descrlimit()' (no matter).
> >> That method is used in a lot of pages in the application, so i need to
> >> put
> >> this code a lot of time: "Dim odescr As New test"
>
> >> In order to avoid that, i wonder whether it would be possible to put that
> >> line in a central place, like global.asax.
>
> >> I tried this:
>
> >> class file
> >> --------
> >> Public Class test
> >> Public Function descrlimit(ByVal descr As Object) As String
> >> Dim tmp As String = descr.ToString()
> >> ....
> >> Return tmp
> >> End Function
>
> >> global.asax
> >> -----------
> >> Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
> >> Dim odescr As New test
> >> Application.Add("odescr", odescr)
> >> End Sub
>
> >> But it generates in all pages which use that method the error: "Name
> >> 'odescr' is not declared"
> >> Thanks for helping
> >> Michel
>
> > You've added your variable to the Application object, so you should
> > refer to it:
>
> > Dim ctx as HttpApplication = HttpContext.Current.ApplicationInstance
> > Dim tmp As String = ctx.Application("odescr").ToString()- Hide quoted text -
>
> - Show quoted text -


what's this?

Dim odescr As New test

On Feb 20, 12:50 am, "michel" <mm@mmm> wrote:
> Hi, thanks for your explanation..
> But could you tell me what 's wrong in this code, for the sake of my spirit
> ...? I still get that error.

The code must be as

class file
--------
Public Class test
Public Function descrlimit(ByVal descr As Object) As String
Dim tmp As String = descr.ToString()
....
Return tmp
End Function


global.asax
-----------
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
Application.Add("odescr", "here is my value for odescr")
End Sub


You got the error because odescr was not initialized

On Feb 20, 9:40 am, "Alexey Smirnov" <alexey.smir...@gmail.com> wrote:
> On Feb 20, 12:50 am, "michel" <mm@mmm> wrote:
>
> > Hi, thanks for your explanation..
> > But could you tell me what 's wrong in this code, for the sake of my spirit
> > ...? I still get that error.
>
> The code must be as
>
> class file
> --------
> Public Class test
> Public Function descrlimit(ByVal descr As Object) As String
> Dim tmp As String = descr.ToString()
> ....
> Return tmp
> End Function
>
> global.asax
> -----------
> Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
> Application.Add("odescr", "here is my value for odescr")
> End Sub
>
> You got the error because odescr was not initialized

sorry, the class file needs to be modified

class file
--------
Public Class test
Public Function descrlimit() As String

Dim ctx as HttpApplication =
HttpContext.Current.ApplicationInstance
Dim tmp As String = ctx.Application("odescr").ToString()

Return tmp
End Function

That's the code that i used to put in each aspx page for creation an
instance of class 'test' and that i want to move to the global.asax.

e.g. (before moving it in global.asax)

Partial Class final
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
Dim odescr As New descr
anyvariable = odescr.descrlimit(anyvariable)
.........


It works, but if i remove "Dim odescr As New descr" from here and put it
into glbal.asax, i get the error: 'odescr' is not declared"







"Alexey Smirnov" <> schreef in bericht
news: ups.com...
> On Feb 20, 12:24 am, "michel" <mm@mmm> wrote:
>> Hi Alexey, thanks for replying ...
>> I made the changes but still same error: Name 'odescr' is not declared"
>>
>> global.asax: (unchanged):
>> ----------
>> Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
>> Dim odescr As New test
>> Application.Add("odescr", odescr)
>> End Sub
>>
>> class fle:
>> --------
>> Public Class test
>> Public Function descrlimit(ByVal descr As Object) As String
>> Dim ctx As HttpApplication =
>> HttpContext.Current.ApplicationInstance
>> Dim tmp As String = ctx.Application("odescr").ToString()
>> ....
>> Return tmp
>> End Function
>> End Class
>>
>> "Alexey Smirnov" <alexey.smir...@gmail.com> schreef in
>> berichtnews: ooglegroups.com...
>>
>>
>>
>> > On Feb 19, 11:23 pm, "michel" <mm@mmm> wrote:
>> >> Hi,
>>
>> >> i created a class 'test' with a method 'descrlimit()' (no matter).
>> >> That method is used in a lot of pages in the application, so i need to
>> >> put
>> >> this code a lot of time: "Dim odescr As New test"
>>
>> >> In order to avoid that, i wonder whether it would be possible to put
>> >> that
>> >> line in a central place, like global.asax.
>>
>> >> I tried this:
>>
>> >> class file
>> >> --------
>> >> Public Class test
>> >> Public Function descrlimit(ByVal descr As Object) As String
>> >> Dim tmp As String = descr.ToString()
>> >> ....
>> >> Return tmp
>> >> End Function
>>
>> >> global.asax
>> >> -----------
>> >> Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
>> >> Dim odescr As New test
>> >> Application.Add("odescr", odescr)
>> >> End Sub
>>
>> >> But it generates in all pages which use that method the error: "Name
>> >> 'odescr' is not declared"
>> >> Thanks for helping
>> >> Michel
>>
>> > You've added your variable to the Application object, so you should
>> > refer to it:
>>
>> > Dim ctx as HttpApplication = HttpContext.Current.ApplicationInstance
>> > Dim tmp As String = ctx.Application("odescr").ToString()- Hide quoted
>> > text -
>>
>> - Show quoted text -
>
>
> what's this?
>
> Dim odescr As New test
>