Enkelt exempel.
<%@ Page language="VB" Codebehind="sida1.aspx.vb" AutoEventWireup="false" Inherits="EttProjekt.sida1" %>
<%@ Register Tagprefix="uc" Tagname="menu" Src="~/menuUC.ascx" %>
<html>
<head><title>Sida 1</title></head>
<body>
<form runat="server">
<uc:menu id="ucMenu" selectedpage="1" runat="server" />
</form>
</body>
</html>
<%@ Page language="VB" Codebehind="sida2.aspx.vb" AutoEventWireup="false" Inherits="EttProjekt.sida2" %>
<%@ Register Tagprefix="uc" Tagname="menu" Src="~/menuUC.ascx" %>
<html>
<head><title>Sida 2</title></head>
<body>
<form runat="server">
<uc:menu id="ucMenu" selectedpage="2" runat="server" />
</form>
</body>
</html>
<%@ Control Language="VB" AutoEventWireup="false" Codebehind="menuUC.ascx.vb" Inherits="EttProjekt.menuUC" %>
<%@ OutputCache Duration="60" VaryByParam="None" %>
<asp:hyperlink id="hp1" runat="server" navigateurl="~/sida1.aspx" />
<asp:hyperlink id="hp2" runat="server" navigateurl="~/sida2.aspx" />
Public MustInherit Class menu
Inherits System.Web.UI.UserControl
protected withevents hp1 as HyperLink
protected withevents hp2 as HyperLink
Private _selectedpage as Integer
Public Property SelectedPage() As Integer
Set(ByVal Value As Integer)
_selectedpage = Value
End Set
End Property
Sub Page_Load(ByVal sender as Object, ByVal e as EventArgs)
If Not Page.IsPostBack Then
Bind
End If
End Sub
Sub Bind()
Select _selectedpage
Case 2
hp2.BackColor = Color.Red
Case Else
hp1.BackColor = Color.Red
End Select
End Sub
End Class