okay .... a little easier demo of the problem
is there some special way of getting the events in a webControl to
fire?
in this example, the user control is called from the index page.
btnTest_Click will not fire for me at all .... any ideas?
thanks,
david
''''''''''
''''''''''calling index.aspx page:
''''''''''
<%@ Page Language="vb" AutoEventWireup="false"
Codebehind="index.aspx.vb" Inherits="Walkabouts.Index"%>
<%@ Register TagPrefix="Walkabout" TagName="Menu"
Src="Controls/Menu.ascx"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<%=Application("FrontendHeader")%>
</head>
<body topmargin=0 leftmargin=0 bgcolor="#E5E5E5">
<form id="frmMain" method="post" runat="server">
<table width="743" height=1024 align=left border=2
bordercolor="#1C695F" bgcolor="#FFFFFF" style="">
<tr>
<td bordercolor="#FFFFFF">
<div>
<img src="images/global/Logo.gif"
style="top:0px;left:0px;position:absolute;z-index:100"><img
src="images/global/GIS_summer.jpg" width="472" height="102" border="0"
alt="Geographical Information Services"
style="top:0px;left:268px;position:absolute;z-index:1">
</div>
<Walkabout:Menu id="Menu" RUNAT="SERVER"
NAME="Menu"></Walkabout:Menu>
<div
style="font-family:Arial;color:Black;font-size:16;font-weight:600;left:370;top:120px;position:absolute;">
<%= Application("TitleHeader") %>
</div>
<asp:PlaceHolder ID=plcContent Runat=server></asp:PlaceHolder>
</td>
</tr>
</table>
</form>
</body>
</html>
''''''''''
''''''''''calling index.aspx.vb page
''''''''''
Public Class Index
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
End Sub
'NOTE: The following placeholder declaration is required by the Web
Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Protected WithEvents plcContent As
System.Web.UI.WebControls.PlaceHolder
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then
Dim ucSelectedControl As Control
Select Case Request.QueryString("ID")
Case 1 ' Test
ucSelectedControl = Page.LoadControl("./Controls/Test1.ascx")
Case Else
' doh!
End Select
plcContent.Controls.Add(ucSelectedControl)
End If
End Sub
End Class
''''''''''''
''''''''''' below is the webControl
''''''''''''
aspx page:
<%@ Control Language="vb" AutoEventWireup="false"
Codebehind="Test1.ascx.vb" Inherits="Walkabouts.Test1"
TargetSchema="http://schemas.microsoft.com/intellisense/ie5"; %>
<asp:Button ID="btnTest" Runat=server Text=TEST></asp:Button>
''''''''''
'''''''''' web control code behind:
''''''''''
Public Class Test1
Inherits System.Web.UI.UserControl
Protected WithEvents btnTest As System.Web.UI.WebControls.Button
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
End Sub
'NOTE: The following placeholder declaration is required by the Web
Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form
Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
End Sub
Private Sub btnTest_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnTest.Click
'''''''''''''''''''''''
' Won't fire
'''''''''''''''''''''''''
Dim sTest As String
sTest = "Test"
End Sub
End Class
>>> [EMAIL PROTECTED] 06/14/2005 3:09:59 PM >>>
arrrggghhh and its drivin' me nuts.
i have an app that is using lots of webControls am getting a little
thrown.
I have a VB web control that has some asp:buttons on it that are
within an asp:panel.
the events will not fire no matter what i do. i did a little work
around for one event (selectedIndexChange) that would not fire, but
now i am trying to get the button_Click event to fire ... no go.
any help would be very cool ... kinda pulling hair here
below is the code:
..... ascx page ....
<%@ Control Language="vb" AutoEventWireup="false"
Codebehind="EditDept.ascx.vb" Inherits="Walkabouts.EditDept"
TargetSchema="http://schemas.microsoft.com/intellisense/ie5"; %>
<script language=javascript>
function loadCalendar(sObj) {
window.open('calendarSelection.aspx?object=' +
sObj,'theWin','scrollbars=0,menubar=0,locationbar=0,titlebar=0,resizab
le=0,width=250,height=225,left=370,top=270,alwaysRaised');
}
/////////////////////////////////
// this is the kludge for the selectedIndex event not firing
////////////////////////////////
function cboDept_Change() {
if (document.frmMain._ctl0_cboDept.options
[document.frmMain._ctl0_cboDept.selectedIndex].value > 0) {
document.location.href= 'index.aspx?ID=<%=
Request.Querystring("ID") %>&SDID=<%= Request.Querystring("SDID") %
>&DeptID=' + document.frmMain._ctl0_cboDept.options
[document.frmMain._ctl0_cboDept.selectedIndex].value;
}
}
</script>
<div class="Content">
<table width=563 height=800 align=center>
<tr>
<td valign=top>
<P class="Heading">
<img
src="images/global/tool.png" style="background-color:#000000;border-
color:#000000;border-style:solid;border-width:1px;padding-
left:1px;padding-right:1px;padding-bottom:1px;padding-top:1px;">
<asp:Label ID="lblHeading"
Runat=server></asp:Label>
</P>
<asp:Label ID="lblMode" Runat=server
CssClass=Mode></asp:Label>
<p style="LEFT: 30px; POSITION:
absolute; TOP: 30px">
<span style="LEFT: 5px;
POSITION: absolute; TOP: 15px;font-family:Sans-Serif;font-
size:12;font-weight:500;">Department:</span>
<span style="LEFT: 100px;
POSITION: absolute; TOP: 15px;"><select id="cboDept" runat=server
onchange="cboDept_Change();" NAME="cboDept"></select></span>
<span style="LEFT: 100px;
POSITION: absolute; TOP: 15px;"><asp:TextBox ID=txtDept Runat=server
Visible=true></asp:TextBox></span>
<span style="LEFT: 275px;
POSITION: absolute; TOP: 15px;cursor:hand;"><img
src="../images/global/PlusBox.png" alt="Add a new department"
id="imgAddReturn" runat=server></span>
<asp:Panel
ID=pnlUpdateButtons Runat=server EnableViewState=True>
<span style="LEFT:
100px; POSITION: absolute; TOP: 90px;">
<asp:Button
ID=btnUBUpdate CssClass=button Text="Update" Runat=server
CommandName="Update" OnCommand="Command_Click"></asp:Button>
</span>
<span style="LEFT:
190px; POSITION: absolute; TOP: 90px;">
<asp:Button
ID="btnUBDelete" CssClass=button Text="Delete" Runat=server
CommandName="Delete" OnCommand="Command_Click"></asp:Button>
</span>
<span style="LEFT:
280px; POSITION: absolute; TOP: 90px;">
<asp:Button
ID="btnUBReset" CssClass=button Text="Reset" Runat=server
CommandName="Reset" OnCommand="Command_Click"></asp:Button>
</span>
</asp:Panel>
<asp:Panel ID="pnlAddButtons"
Runat=server EnableViewState=True>
<span style="LEFT:
150px; POSITION: absolute; TOP: 90px;">
<asp:Button
ID="btnAdd" CssClass=button Text="Add" Runat=server CommandName="Add"
OnCommand="Command_Click"></asp:Button>
</span>
<span style="LEFT:
220px; POSITION: absolute; TOP: 90px;">
<asp:Button
ID="btnABReset" CssClass=button Text="Reset" Runat=server
CommandName="Reset" OnCommand="Command_Click"></asp:Button>
</span>
</asp:Panel>
<span style="LEFT: 150px;
POSITION: absolute; TOP: 590px;">
<asp:Button
ID=btnTest Text=Test Runat=server CommandName="TEST"
OnCommand="Command_Click" Runat=server></asp:Button>
</span>
</p>
</td>
</tr>
</table>
</div>
..........................
..........................
this is the VB Code:
..........................
..........................
Public Class EditDept
Inherits System.Web.UI.UserControl
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
End Sub
Protected WithEvents cboDept As
System.Web.UI.HtmlControls.HtmlSelect
Protected WithEvents txtDept As
System.Web.UI.WebControls.TextBox
Protected WithEvents lblHeading As
System.Web.UI.WebControls.Label
Protected WithEvents lblMode As
System.Web.UI.WebControls.Label
Protected WithEvents imgAddReturn As
System.Web.UI.HtmlControls.HtmlImage
Protected WithEvents pnlAddButtons As
System.Web.UI.WebControls.Panel
Protected WithEvents pnlUpdateButtons As
System.Web.UI.WebControls.Panel
Protected WithEvents btnUBUpdate As
System.Web.UI.WebControls.Button
Protected WithEvents btnUBDelete As
System.Web.UI.WebControls.Button
Protected WithEvents btnUBReset As
System.Web.UI.WebControls.Button
Protected WithEvents btnABAdd As
System.Web.UI.WebControls.Button
Protected WithEvents btnABReset As
System.Web.UI.WebControls.Button
Protected WithEvents btnTest As
System.Web.UI.WebControls.Button
'NOTE: The following placeholder declaration is required by the
Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form
Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
Dim oData As New CDataAccess
Dim dtrDept As OracleClient.OracleDataReader
If Not Page.IsPostBack Then
Try
If Request.QueryString("DeptID") > 0
Then
lblHeading.Text = "Edit
Departments"
lblMode.Text = "Edit Mode"
pnlAddButtons.Visible = False
pnlUpdateButtons.Visible =
True
imgAddReturn.Src
= "../images/global/refresh_icon.gif"
imgAddReturn.Alt = "Show all
departments"
imgAddReturn.Attributes.Remove
("onclick")
imgAddReturn.Attributes.Add
("onclick", "document.location.href='index.aspx?ID=" &
Request.QueryString("ID") & "&SDID=" & Request.QueryString("SDID")
& "';")
cboDept.Visible = False
txtDept.Visible = True
oData.ConnectionString =
ConfigurationSettings.AppSettings("ConnectionString")
dtrDept = oData.GetDepartment
(Request.QueryString("DeptID"))
While dtrDept.Read()
txtDept.Text = dtrDept
("Department")
End While
ElseIf Request.QueryString("DeptID")
= "" Then
lblHeading.Text = "Edit
Departments"
lblMode.Text = "Selection
Mode"
imgAddReturn.Attributes.Add
("onclick", "document.location.href='index.aspx?ID=" &
Request.QueryString("ID") & "&SDID=" & Request.QueryString("SDID")
& "&DeptID=0';")
pnlAddButtons.Visible = False
pnlUpdateButtons.Visible =
True
cboDept.Visible = True
txtDept.Visible = False
oData.ConnectionString =
ConfigurationSettings.AppSettings("ConnectionString")
dtrDept = oData.GetDepartment
(0)
cboDept.Items.Add(New ListItem
("-- Select a department --", 0))
While dtrDept.Read()
cboDept.Items.Add(New
ListItem(dtrDept("Department"), dtrDept("DepartmentID")))
End While
Else
lblHeading.Text = "Edit
Departments"
lblMode.Text = "Addition Mode"
pnlAddButtons.Visible = True
pnlUpdateButtons.Visible =
False
cboDept.Visible = False
txtDept.Visible = True
imgAddReturn.Src
= "../images/global/refresh_icon.gif"
imgAddReturn.Alt = "Show all
departments"
imgAddReturn.Attributes.Remove
("onclick")
imgAddReturn.Attributes.Add
("onclick", "document.location.href='index.aspx?ID=" &
Request.QueryString("ID") & "&SDID=" & Request.QueryString("SDID")
& "';")
End If
Catch ex As Exception
End Try
Else
cboDept.Visible = False
txtDept.Visible = True
oData.ConnectionString =
ConfigurationSettings.AppSettings("ConnectionString")
dtrDept = oData.GetDepartment(1)
While dtrDept.Read()
txtDept.Text = dtrDept("Department")
End While
End If
End Sub
Public Sub Command_Click(ByVal sender As Object, ByVal e As
CommandEventArgs)
Dim sName As String
sName = e.CommandName
End Sub
Private Sub btnTest_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnTest.Click
Dim sTest As String
sTest = "TEST"
End Sub
Private Sub btnTest_Command(ByVal sender As Object, ByVal e
As System.Web.UI.WebControls.CommandEventArgs) Handles btnTest.Command
Dim sTest As String
sTest = "TEST2"
End Sub
End Class
Yahoo! Groups Links
[Non-text portions of this message have been removed]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspNetAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
