Page.FindContro l non-Shared member

[tshad]

I have a .ascx file that I converted to a class.

But I am getting the following error:

error BC30469: Reference to a non-shared member requires an object
reference.

The error is for the Page.FindContro l in the following code:

*************** *************** ************
Imports System
Imports System.Web
Imports System.IO
Imports System.Web.UI
Imports System.Web.UI.W ebControls
Imports System.Web.Sess ionState
Imports System.Data
Imports System.Data.Sql Client
Imports System.Web.Http Cookie
Imports System.Web.Http CookieCollectio n
Imports System.Web.Http Response
Imports System.Web.Http Request
imports System.Web.Http Context
Imports System.Web.Http Application
Imports System.Web.Http ApplicationStat e
Imports System.Collecti ons

NameSpace MyFunctions

Public Class PageInit

Public Shared sub PageSetup ()
Dim UserLoggedOn as Label = CType(Page.Find Control("UserLo ggedOn"),Label)
Dim UserLoggedOnLab el as Label =
CType(Page.Find Control("UserLo ggedOnLabel"),L abel)
if not UserLoggedOn is nothing then
if HttpContext.Cur rent.session("L oggedIn") <nothing then
if HttpContext.Cur rent.session("f irstName") <nothing then
UserLoggedOn.Te xt = UserLoggedOn.Te xt &
HttpContext.Cur rent.session("f irstName")
if HttpContext.Cur rent.session("l astName") <nothing then
UserLoggedOn.Te xt = UserLoggedOn.Te xt & " " &
HttpContext.Cur rent.session("l astName")
end if
end if
if not UserLoggedOn is nothing then
UserLoggedOn.vi sible = true
if not UserLoggedOnLab el is nothing then UserLoggedOnLab el.visible =
true
end if
end if
end if
if not HttpContext.Cur rent.session("U ser") is nothing then _
HttpContext.Cur rent.session("L astPageVisited" ) =
HttpContext.Cur rent.Session("U ser").LastPageV isited
End Sub
End Class
End Namespace
*************** *************** *************** *************** *************

Why am I getting this error?

Do I need something in front the Page.FindContro l?

Thanks,

Tom

[Marina Levit [MVP]]

Page is a class. It is not an instance of that class. You should pass in a
variable to your PageSetup routine, which is an instance of the page it
should set up.

In a .ascx, Page is a property of the class, hence you can use it. When you
are just in a function in some other class, it doesn't have such a property.

"tshad" <ts**********@f tsolutions.comw rote in message
news:u2******** ******@TK2MSFTN GP04.phx.gbl...

>I have a .ascx file that I converted to a class.

But I am getting the following error:

error BC30469: Reference to a non-shared member requires an object
reference.

The error is for the Page.FindContro l in the following code:

*************** *************** ************
Imports System
Imports System.Web
Imports System.IO
Imports System.Web.UI
Imports System.Web.UI.W ebControls
Imports System.Web.Sess ionState
Imports System.Data
Imports System.Data.Sql Client
Imports System.Web.Http Cookie
Imports System.Web.Http CookieCollectio n
Imports System.Web.Http Response
Imports System.Web.Http Request
imports System.Web.Http Context
Imports System.Web.Http Application
Imports System.Web.Http ApplicationStat e
Imports System.Collecti ons

NameSpace MyFunctions

Public Class PageInit

Public Shared sub PageSetup ()
Dim UserLoggedOn as Label =
CType(Page.Find Control("UserLo ggedOn"),Label)
Dim UserLoggedOnLab el as Label =
CType(Page.Find Control("UserLo ggedOnLabel"),L abel)
if not UserLoggedOn is nothing then
if HttpContext.Cur rent.session("L oggedIn") <nothing then
if HttpContext.Cur rent.session("f irstName") <nothing then
UserLoggedOn.Te xt = UserLoggedOn.Te xt &
HttpContext.Cur rent.session("f irstName")
if HttpContext.Cur rent.session("l astName") <nothing then
UserLoggedOn.Te xt = UserLoggedOn.Te xt & " " &
HttpContext.Cur rent.session("l astName")
end if
end if
if not UserLoggedOn is nothing then
UserLoggedOn.vi sible = true
if not UserLoggedOnLab el is nothing then UserLoggedOnLab el.visible =
true
end if
end if
end if
if not HttpContext.Cur rent.session("U ser") is nothing then _
HttpContext.Cur rent.session("L astPageVisited" ) =
HttpContext.Cur rent.Session("U ser").LastPageV isited
End Sub
End Class
End Namespace
*************** *************** *************** *************** *************

Why am I getting this error?

Do I need something in front the Page.FindContro l?

Thanks,

Tom

[tshad]

"Marina Levit [MVP]" <so*****@nospam .comwrote in message
news:OJ******** ******@TK2MSFTN GP04.phx.gbl...

Page is a class. It is not an instance of that class. You should pass in
a variable to your PageSetup routine, which is an instance of the page it
should set up.

In a .ascx, Page is a property of the class, hence you can use it. When
you are just in a function in some other class, it doesn't have such a
property.

Would I then do the following in the function:
*************** *************** *************** *************** **
NameSpace MyFunctions

Public Class PageInit

Public Shared sub PageSetup (thePage as Page)
Dim UserLoggedOn as Label =
CType(thePage.F indControl("Use rLoggedOn"),Lab el)
Dim UserLoggedOnLab el as Label =
CType(thePage.F indControl("Use rLoggedOnLabel" ),Label)
*************** *************** *************** *************** ***********

And then call it as:

MyFunctions.Pag eInit.PageSetup (Page)

Thanks,

Tom

>
"tshad" <ts**********@f tsolutions.comw rote in message
news:u2******** ******@TK2MSFTN GP04.phx.gbl...

>>I have a .ascx file that I converted to a class.

But I am getting the following error:

error BC30469: Reference to a non-shared member requires an object
reference.

The error is for the Page.FindContro l in the following code:

************** *************** *************
Imports System
Imports System.Web
Imports System.IO
Imports System.Web.UI
Imports System.Web.UI.W ebControls
Imports System.Web.Sess ionState
Imports System.Data
Imports System.Data.Sql Client
Imports System.Web.Http Cookie
Imports System.Web.Http CookieCollectio n
Imports System.Web.Http Response
Imports System.Web.Http Request
imports System.Web.Http Context
Imports System.Web.Http Application
Imports System.Web.Http ApplicationStat e
Imports System.Collecti ons

NameSpace MyFunctions

Public Class PageInit

Public Shared sub PageSetup ()
Dim UserLoggedOn as Label =
CType(Page.Fin dControl("UserL oggedOn"),Label )
Dim UserLoggedOnLab el as Label =
CType(Page.Fin dControl("UserL oggedOnLabel"), Label)
if not UserLoggedOn is nothing then
if HttpContext.Cur rent.session("L oggedIn") <nothing then
if HttpContext.Cur rent.session("f irstName") <nothing then
UserLoggedOn.Te xt = UserLoggedOn.Te xt &
HttpContext.Cu rrent.session(" firstName")
if HttpContext.Cur rent.session("l astName") <nothing then
UserLoggedOn.Te xt = UserLoggedOn.Te xt & " " &
HttpContext.Cu rrent.session(" lastName")
end if
end if
if not UserLoggedOn is nothing then
UserLoggedOn.vi sible = true
if not UserLoggedOnLab el is nothing then UserLoggedOnLab el.visible =
true
end if
end if
end if
if not HttpContext.Cur rent.session("U ser") is nothing then _
HttpContext.Cur rent.session("L astPageVisited" ) =
HttpContext.Cu rrent.Session(" User").LastPage Visited
End Sub
End Class
End Namespace
************** *************** *************** *************** **************

Why am I getting this error?

Do I need something in front the Page.FindContro l?

Thanks,

Tom

[tshad]

"Marina Levit [MVP]" <so*****@nospam .comwrote in message
news:OJ******** ******@TK2MSFTN GP04.phx.gbl...

Page is a class. It is not an instance of that class. You should pass in
a variable to your PageSetup routine, which is an instance of the page it
should set up.

In a .ascx, Page is a property of the class, hence you can use it. When
you are just in a function in some other class, it doesn't have such a
property.

Here is how I set it up and it works great.

*************** *************** **********
NameSpace MyFunctions

Public Class PageInit

Public Shared sub PageSetup (thePage as Page)
Dim url as String
Dim urlNoParams as String
Dim UserLoggedOn as Label =
CType(thePage.F indControl("Use rLoggedOn"),Lab el)
Dim UserLoggedOnLab el as Label =
CType(thePage.F indControl("Use rLoggedOnLabel" ),Label)
if not UserLoggedOn is nothing then
if HttpContext.Cur rent.session("L oggedIn") <nothing then
if HttpContext.Cur rent.session("f irstName") <nothing then

*************** *************** *************** **********

I call it like so:

<%@ Import Namespace="MyFu nctions" %>

<script runat="server">
Sub Page_Load(sende r as Object, e as EventArgs)
if not IsPostBack
PageInit.PageSe tup(Page)

Why do I need to send it the "Page" but not the Session Variables? Isn't
there a direct way to access it as the current Page?

Thanks,

Tom

>
"tshad" <ts**********@f tsolutions.comw rote in message
news:u2******** ******@TK2MSFTN GP04.phx.gbl...

>>I have a .ascx file that I converted to a class.

But I am getting the following error:

error BC30469: Reference to a non-shared member requires an object
reference.

The error is for the Page.FindContro l in the following code:

************** *************** *************
Imports System
Imports System.Web
Imports System.IO
Imports System.Web.UI
Imports System.Web.UI.W ebControls
Imports System.Web.Sess ionState
Imports System.Data
Imports System.Data.Sql Client
Imports System.Web.Http Cookie
Imports System.Web.Http CookieCollectio n
Imports System.Web.Http Response
Imports System.Web.Http Request
imports System.Web.Http Context
Imports System.Web.Http Application
Imports System.Web.Http ApplicationStat e
Imports System.Collecti ons

NameSpace MyFunctions

Public Class PageInit

Public Shared sub PageSetup ()
Dim UserLoggedOn as Label =
CType(Page.Fin dControl("UserL oggedOn"),Label )
Dim UserLoggedOnLab el as Label =
CType(Page.Fin dControl("UserL oggedOnLabel"), Label)
if not UserLoggedOn is nothing then
if HttpContext.Cur rent.session("L oggedIn") <nothing then
if HttpContext.Cur rent.session("f irstName") <nothing then
UserLoggedOn.Te xt = UserLoggedOn.Te xt &
HttpContext.Cu rrent.session(" firstName")
if HttpContext.Cur rent.session("l astName") <nothing then
UserLoggedOn.Te xt = UserLoggedOn.Te xt & " " &
HttpContext.Cu rrent.session(" lastName")
end if
end if
if not UserLoggedOn is nothing then
UserLoggedOn.vi sible = true
if not UserLoggedOnLab el is nothing then UserLoggedOnLab el.visible =
true
end if
end if
end if
if not HttpContext.Cur rent.session("U ser") is nothing then _
HttpContext.Cur rent.session("L astPageVisited" ) =
HttpContext.Cu rrent.Session(" User").LastPage Visited
End Sub
End Class
End Namespace
************** *************** *************** *************** **************

Why am I getting this error?

Do I need something in front the Page.FindContro l?

Thanks,

Tom