Handling a User Controls Button Click from the ASPX page

[RSH]

Hi,

I have a situation where I have a user Control (ResultHeader.a scx) that has
a button. I am placing that control into a page (samplePage.asp x). I have
setup a custom event, that should from everything I read, it should fire and
be trappable in the parent page. I have seen two ways to do this...one
using "with Events" and the another by using the add handler method.
Neither seems to be functioning in my case. What am I doing wrong?

Thanks!
Ron

' SamplePage.aspx -- the actual page object
Public Class SamplePage

Inherits System.Web.UI.P age

Implements IResultContaine r

Protected WithEvents RR As Results

Protected WithEvents RH As ResultHeader

Private _Title As String

Public ReadOnly Property Title() As String Implements IResultContaine r.Title

Get

Return Page.ToString

End Get

End Property

Public ReadOnly Property Results() As IResult Implements
IResultContaine r.IResults

Get

Return RR

End Get

End Property

Public ReadOnly Property Header() As ResultHeader Implements
IResultContaine r.ResultHeader

Get

Return RH

End Get

End Property

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

RR = CType(Page.Load Control("Result s.ascx"), Results)

RH = CType(Page.Load Control("Result Header.ascx"), ResultHeader)

End Sub

Private Sub RH_Buttonclicke d(ByVal sender As Object, ByVal e As
System.EventArg s) Handles RH.ButtonClicke d

RH.CallbackTest ("test") <-- this line is never getting called

End Sub

End Class

' ResultHeader.as cx -- the user control that contains the button

Public Class ResultHeader

Inherits System.Web.UI.U serControl

Protected WithEvents DataGrid1 As System.Web.UI.W ebControls.Data Grid

Protected WithEvents TextBox1 As System.Web.UI.W ebControls.Text Box

Protected _Info As DataTable

Protected _Title As String

Protected WithEvents Button1 As System.Web.UI.W ebControls.Butt on

Protected WithEvents Label1 As System.Web.UI.W ebControls.Labe l

Protected _RowCount As String

Public Event ButtonClicked(B yVal sender As System.Object, ByVal e As
System.EventArg s)

Dim Container As IResultContaine r

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

If TypeOf (Page) Is IResultContaine r Then

Container = CType(Page, IResultContaine r)

_Title = Container.Title

_Info = Container.IResu lts.GetResults( _Title)

_RowCount = Container.IResu lts.GetRowCount (_Info)

BindGrid()

TextBox1.Text = _Title & " Returned " & _RowCount & " rows"

End If

AddHandler Button1.Click, AddressOf Button_Clicked

End Sub

Private Sub Button_Clicked( ByVal sender As System.Object, ByVal e As
System.EventArg s)

RaiseEvent ButtonClicked(s ender, e)

End Sub

Public Sub CallbackTest(By Val message As String) <--- this line is never
getting called

Label1.Text = message

End Sub

Private Sub BindGrid()

DataGrid1.DataS ource = (_Info)

DataGrid1.DataB ind()

End Sub

[RSH]

Never mind I figured it out.

I never instantiated the RH and RR objects. I added the New keyword and
removed the "RR = CType(Page.Load Control("Result s.ascx"), Results)" lines
and everything works as expected.

Ron

"RSH" <wa************ *@yahoo.comwrot e in message
news:e9******** ******@TK2MSFTN GP06.phx.gbl...

Hi,

I have a situation where I have a user Control (ResultHeader.a scx) that
has a button. I am placing that control into a page (samplePage.asp x). I
have setup a custom event, that should from everything I read, it should
fire and be trappable in the parent page. I have seen two ways to do
this...one using "with Events" and the another by using the add handler
method. Neither seems to be functioning in my case. What am I doing
wrong?

Thanks!
Ron

' SamplePage.aspx -- the actual page object
Public Class SamplePage

Inherits System.Web.UI.P age

Implements IResultContaine r

Protected WithEvents RR As Results

Protected WithEvents RH As ResultHeader

Private _Title As String

Public ReadOnly Property Title() As String Implements
IResultContaine r.Title

Get

Return Page.ToString

End Get

End Property

Public ReadOnly Property Results() As IResult Implements
IResultContaine r.IResults

Get

Return RR

End Get

End Property

Public ReadOnly Property Header() As ResultHeader Implements
IResultContaine r.ResultHeader

Get

Return RH

End Get

End Property

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

RR = CType(Page.Load Control("Result s.ascx"), Results)

RH = CType(Page.Load Control("Result Header.ascx"), ResultHeader)

End Sub

Private Sub RH_Buttonclicke d(ByVal sender As Object, ByVal e As
System.EventArg s) Handles RH.ButtonClicke d

RH.CallbackTest ("test") <-- this line is never getting called

End Sub

End Class

' ResultHeader.as cx -- the user control that contains the button

Public Class ResultHeader

Inherits System.Web.UI.U serControl

Protected WithEvents DataGrid1 As System.Web.UI.W ebControls.Data Grid

Protected WithEvents TextBox1 As System.Web.UI.W ebControls.Text Box

Protected _Info As DataTable

Protected _Title As String

Protected WithEvents Button1 As System.Web.UI.W ebControls.Butt on

Protected WithEvents Label1 As System.Web.UI.W ebControls.Labe l

Protected _RowCount As String

Public Event ButtonClicked(B yVal sender As System.Object, ByVal e As
System.EventArg s)

Dim Container As IResultContaine r

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

If TypeOf (Page) Is IResultContaine r Then

Container = CType(Page, IResultContaine r)

_Title = Container.Title

_Info = Container.IResu lts.GetResults( _Title)

_RowCount = Container.IResu lts.GetRowCount (_Info)

BindGrid()

TextBox1.Text = _Title & " Returned " & _RowCount & " rows"

End If

AddHandler Button1.Click, AddressOf Button_Clicked

End Sub

Private Sub Button_Clicked( ByVal sender As System.Object, ByVal e As
System.EventArg s)

RaiseEvent ButtonClicked(s ender, e)

End Sub

Public Sub CallbackTest(By Val message As String) <--- this line is
never getting called

Label1.Text = message

End Sub

Private Sub BindGrid()

DataGrid1.DataS ource = (_Info)

DataGrid1.DataB ind()

End Sub