simplevb.ascx

一种Portal的实现源码

<%@ Control language="vb" Inherits="Rainbow.DesktopModules.OneFileModule" CodeBehind="OneFileModule.cs" %>
<%@ Register TagPrefix="cc1" Namespace="Rainbow.UI.WebControls" Assembly="Rainbow" %>

<script language="vb" runat="server">

	Sub Page_Load() 
		InitSettings(SettingsType.Str)

		if SettingsExists
			lblFirstName.Text = GetSetting("FirstName")
			lblLastName.Text = GetSetting("LastName")
			lblSettingsStr.Text = SettingsStr
		end if
	End Sub

</script>

<cc1:DesktopModuleTitle EditText="Edit" EditUrl="~/DesktopModules/PropertyPage.aspx" PropertiesText="PROPERTIES" PropertiesUrl="~/DesktopModules/PropertyPage.aspx" runat="server" ID="ModuleTitle" />
<b>Setting FirstName:</b> <asp:label id="lblFirstName" runat="server" /><br>
<b>Setting LastName:</b> <asp:label id="lblLastName" runat="server" /><br>
<b>SettingsStr:</b> <asp:label id="lblSettingsStr" runat="server" />