loading ascx control dynamically in placeholder

[Bert]

Hi

I am trying to load my user control in a placeholder,

i get an error: c:\inetpub\wwwroot\testinline\WebForm2.aspx.vb(26): Type
'WebUserControl6' is not defined?

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 uc As WebUserControl6 =
DirectCast(Me.LoadControl("WebUserControl6.ascx"), WebUserControl6)

PlaceHolder1.Controls.Add(uc)

End Sub

ascx control:



<%@ Reference Control = "WebUserControl6.ascx" %>
hello



thanks



B.

 

[Bert]

thanks

what if the ascx control has no code behind as in my case? So the compiler
does not recognize type webusercontrol6? How do I do that?

 

[Guest]

Hi,
I was wondering what purpose the UserControl will serve if it does not have
code-behind.You will be not able to set properties/raise events etc.Can you
describe in detail what your usercontrol is trying to do.

Thanks and Regards,
manish bafna

 

[Juan T. Llibre]

re:

I was wondering what purpose the UserControl will serve if it does not have
code-behind.You will be not able to set properties/raise events etc.

Why not ?

I'd find it really odd if this code didn't work, yet it doesn't use code-behind.

DisplayNumber.ascx :
-----------------------------

<%@ Control Language="VB" ClassName="Spinner" %>
<script runat="server">
Private m_minValue As Integer = 0
Private m_maxValue As Integer = 100
Private m_currentNumber As Integer = 0
Public Property MinValue() As Integer
Get
Return m_minValue
End Get
Set(ByVal value As Integer)
If value >= Me.MaxValue Then
Throw New Exception _
("MinValue must be less than MaxValue.")
Else
m_minValue = value
End If
End Set
End Property

Public Property MaxValue() As Integer
Get
Return m_maxValue
End Get
Set(ByVal value As Integer)
If value <= Me.MinValue Then
Throw New Exception _
("MaxValue must be greater than MinValue.")
Else
m_maxValue = value
End If
End Set
End Property

Public ReadOnly Property CurrentNumber() As Integer
Get
Return m_currentNumber
End Get
End Property

Protected Sub Page_Load(ByVal sender As Object, _
ByVal e As System.EventArgs)
If IsPostBack Then
m_currentNumber = CInt(ViewState("currentNumber"))
Else
m_currentNumber = Me.MinValue
End If
DisplayNumber()
End Sub

Protected Sub DisplayNumber()
textNumber.Text = Me.CurrentNumber.ToString()
ViewState("currentNumber") = Me.CurrentNumber.ToString()
End Sub

Protected Sub buttonUp_Click(ByVal sender As Object, _
ByVal e As System.EventArgs)
If m_currentNumber = Me.MaxValue Then
m_currentNumber = Me.MinValue
Else
m_currentNumber += 1
End If
DisplayNumber()
End Sub

Protected Sub buttonDown_Click(ByVal sender As Object, _
ByVal e As System.EventArgs)
If m_currentNumber = Me.MinValue Then
m_currentNumber = Me.MaxValue
Else
m_currentNumber -= 1
End If
DisplayNumber()
End Sub
</script>
<asp:TextBox ID="textNumber" runat="server"
ReadOnly="True" Width="32px" Enabled="False" />
<asp:Button Font-Bold="True" ID="buttonUp" runat="server"
Text="^" OnClick="buttonUp_Click" />
<asp:Button Font-Bold="True" ID="buttonDown" runat="server"
Text="v" OnClick="buttonDown_Click" />