nature
08-11-2004, 06:28 AM
I'm trying to make a control but keep getting an error. Thanks!
[b]quote:Specified argument was out of the range of valid values. Parameter name: index </blockquote id="quote"></font id="quote">
I've included the code.
Ascx file:
[quote]<%@ControlLanguage="VB"Debug=true%>
<%@importNamespace="System"%>
<%@importNamespace="System.Web"%>
<%@importNamespace="System.Web.UI"%>
<%@importNamespace="System.Web.UI.WebControls"%>
<scriptrunat="server">
SublbtnButton_Click(senderAsObject,eAsEventArgs)
response.redirect("../default.aspx")
EndSub
PublicPropertyMyTextAsstring
Get
DimCtrlAsLinkButton=Controls(1)
Me.EnsureChildControls()
ReturnCtrl.Text
EndGet
Set
DimCtrlAsLinkButton=Controls(1)
Me.EnsureChildControls()
Ctrl.Text=Value
EndSet
EndProperty
ProtectedOverridesSubCreateChildControls()
Me.Controls.Add(NewLiteralControl("<tableborder=1><tr><td>"))
dimlbtnButtonasnewLinkButton
'lbtnButton.text="clickhere"
addHandlerlbtnButton.click,AddressOflbtnButton_Cli ck
lbtnButton.visible=true
Me.Controls.Add(lbtnButton)
Me.Controls.Add(NewLiteralControl("what'sgoingon?"))
Me.Controls.Add(NewLiteralControl("</td></tr></table>"))
EndSub
</script>
</CODE>
[quote]<%@PageLanguage="VB"%>
<%@RegisterTagPrefix="uc0"TagName="test"Src="test.ascx"%>
<scriptrunat="server">
'UserControl1.PhLinks.controls.add(newLiteralContr ol("Helloworld"))
</script>
<html>
<head>
</head>
[b]
<formrunat="server">
<uc0:testid="UserControl1"Mytext="clickhere"runat="server"></uc0:test>
<!--Insertcontenthere-->
</form>
</body>
</html>
</CODE>
[b]quote:Specified argument was out of the range of valid values. Parameter name: index </blockquote id="quote"></font id="quote">
I've included the code.
Ascx file:
[quote]<%@ControlLanguage="VB"Debug=true%>
<%@importNamespace="System"%>
<%@importNamespace="System.Web"%>
<%@importNamespace="System.Web.UI"%>
<%@importNamespace="System.Web.UI.WebControls"%>
<scriptrunat="server">
SublbtnButton_Click(senderAsObject,eAsEventArgs)
response.redirect("../default.aspx")
EndSub
PublicPropertyMyTextAsstring
Get
DimCtrlAsLinkButton=Controls(1)
Me.EnsureChildControls()
ReturnCtrl.Text
EndGet
Set
DimCtrlAsLinkButton=Controls(1)
Me.EnsureChildControls()
Ctrl.Text=Value
EndSet
EndProperty
ProtectedOverridesSubCreateChildControls()
Me.Controls.Add(NewLiteralControl("<tableborder=1><tr><td>"))
dimlbtnButtonasnewLinkButton
'lbtnButton.text="clickhere"
addHandlerlbtnButton.click,AddressOflbtnButton_Cli ck
lbtnButton.visible=true
Me.Controls.Add(lbtnButton)
Me.Controls.Add(NewLiteralControl("what'sgoingon?"))
Me.Controls.Add(NewLiteralControl("</td></tr></table>"))
EndSub
</script>
</CODE>
[quote]<%@PageLanguage="VB"%>
<%@RegisterTagPrefix="uc0"TagName="test"Src="test.ascx"%>
<scriptrunat="server">
'UserControl1.PhLinks.controls.add(newLiteralContr ol("Helloworld"))
</script>
<html>
<head>
</head>
[b]
<formrunat="server">
<uc0:testid="UserControl1"Mytext="clickhere"runat="server"></uc0:test>
<!--Insertcontenthere-->
</form>
</body>
</html>
</CODE>