Tildel værdi til dynamisk indlæse user control
Dette er nok lidt svært så derfor de mange points.Jeg indlæser en række user controls som jeg har gemt onpysninger omkring i min DB. Problemet er at jeg gerne vil overføre en værdi til disse unser controls så de kan udføre en opgave alt efter værdien.
Her er min kode:
<%@ Page language="VB" debug="true" src="Configuration.vb" %>
<script runat="server">
Sub Page_Init(s As Object, e As EventArgs)
Dim _portalSettings As new PortalSettings
Dim _moduleSettings As ModuleSettings
response.write (_portalSettings.arrModules.count)
For Each _moduleSettings In _portalSettings.arrModules
Dim parent As Control = Me.FindControl(_moduleSettings.PaneName)
Dim con As UserControl = Page.LoadControl(_moduleSettings.ModuleSrc)
parent.Controls.Add(con)
parent.Visible = True
Next _moduleSettings
End sub
</script>
<html>
<head>
<title></title>
</head>
<body>
<form runat="server">
<table border="1">
<tr>
<td colspan="2" id="TopPane" valign="top" Visible="false" Width="100%" runat="server">TopPane:<br></td>
</tr>
<tr>
<td id="LeftPane" valign="top" Visible="false" runat="server">LeftPane:</td>
<td id="RightPane" valign="top" Visible="false" runat="server">RightPane:</td>
</tr>
</table>
</form>
</body>
</html>
