新建一个用户控件,并创建控件公共属性。WebUserControl.ascx
WebUserControl.ascx.vb
在页面上引用用户控件,取得属性值并将取得的属性值显示于文本框中:uc.aspx
uc.aspx.vb
<%
@ Control Language="vb" AutoEventWireup="false" Codebehind="WebUserControl.ascx.vb" Inherits="test.WebUserControl" TargetSchema="http://schemas.microsoft.com/intellisense/ie5"
%>
< asp:DropDownList id ="D1" runat ="server" >
< asp:ListItem Value ="0" > -请选择- </ asp:ListItem >
< asp:ListItem Value ="ok1" > 222 </ asp:ListItem >
< asp:ListItem Value ="ok2" > 333 </ asp:ListItem >
< asp:ListItem Value ="444" > 444 </ asp:ListItem >
< asp:ListItem Value ="555" > 555 </ asp:ListItem >
</ asp:DropDownList >
< asp:DropDownList id ="D1" runat ="server" >
< asp:ListItem Value ="0" > -请选择- </ asp:ListItem >
< asp:ListItem Value ="ok1" > 222 </ asp:ListItem >
< asp:ListItem Value ="ok2" > 333 </ asp:ListItem >
< asp:ListItem Value ="444" > 444 </ asp:ListItem >
< asp:ListItem Value ="555" > 555 </ asp:ListItem >
</ asp:DropDownList >
WebUserControl.ascx.vb
Public
Class WebUserControl
Class WebUserControl
Inherits System.Web.UI.UserControl
Private PropertyValue As String
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
End Sub
Protected WithEvents D1 As System.Web.UI.WebControls.DropDownList
'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Public Property dtext()Property dtext() As String
Get
Return PropertyValue
End Get
Set(ByVal Value As String)
PropertyValue = Value
End Set
End Property
Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
End Sub
Private Sub D1_SelectedIndexChanged()Sub D1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D1.SelectedIndexChanged
PropertyValue = D1.SelectedItem.Value.ToString()
End Sub
End Class
Inherits System.Web.UI.UserControl
Private PropertyValue As String
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
End Sub
Protected WithEvents D1 As System.Web.UI.WebControls.DropDownList
'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Public Property dtext()Property dtext() As String
Get
Return PropertyValue
End Get
Set(ByVal Value As String)
PropertyValue = Value
End Set
End Property
Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
End Sub
Private Sub D1_SelectedIndexChanged()Sub D1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D1.SelectedIndexChanged
PropertyValue = D1.SelectedItem.Value.ToString()
End Sub
End Class
在页面上引用用户控件,取得属性值并将取得的属性值显示于文本框中:uc.aspx
<%
@ Register TagPrefix="uc1" TagName="WebUserControl" Src="WebUserControl.ascx"
%>
<% @ Page Language="vb" AutoEventWireup="false" Codebehind="uc.aspx.vb" Inherits="test.uc" %>
<! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
< HTML >
< HEAD >
< title > uc </ title >
< meta content ="Microsoft Visual Studio .NET 7.1" name ="GENERATOR" >
< meta content ="Visual Basic .NET 7.1" name ="CODE_LANGUAGE" >
< meta content ="JavaScript" name ="vs_defaultClientScript" >
< meta content ="http://schemas.microsoft.com/intellisense/ie5" name ="vs_targetSchema" >
</ HEAD >
< body MS_POSITIONING ="GridLayout" >
< form id ="Form1" method ="post" runat ="server" >
< asp:button id ="Button1" style ="Z-INDEX: 101; LEFT: 16px; POSITION: absolute; TOP: 128px" runat ="server"
Text ="Button" ></ asp:button >
< asp:TextBox id ="T1" style ="Z-INDEX: 102; LEFT: 16px; POSITION: absolute; TOP: 72px" runat ="server" ></ asp:TextBox >
< uc1:WebUserControl id ="Uc1" runat ="server" ></ uc1:WebUserControl ></ form >
</ body >
</ HTML >
<% @ Page Language="vb" AutoEventWireup="false" Codebehind="uc.aspx.vb" Inherits="test.uc" %>
<! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
< HTML >
< HEAD >
< title > uc </ title >
< meta content ="Microsoft Visual Studio .NET 7.1" name ="GENERATOR" >
< meta content ="Visual Basic .NET 7.1" name ="CODE_LANGUAGE" >
< meta content ="JavaScript" name ="vs_defaultClientScript" >
< meta content ="http://schemas.microsoft.com/intellisense/ie5" name ="vs_targetSchema" >
</ HEAD >
< body MS_POSITIONING ="GridLayout" >
< form id ="Form1" method ="post" runat ="server" >
< asp:button id ="Button1" style ="Z-INDEX: 101; LEFT: 16px; POSITION: absolute; TOP: 128px" runat ="server"
Text ="Button" ></ asp:button >
< asp:TextBox id ="T1" style ="Z-INDEX: 102; LEFT: 16px; POSITION: absolute; TOP: 72px" runat ="server" ></ asp:TextBox >
< uc1:WebUserControl id ="Uc1" runat ="server" ></ uc1:WebUserControl ></ form >
</ body >
</ HTML >
uc.aspx.vb
Public
Class uc
Class uc
Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
End Sub
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents T1 As System.Web.UI.WebControls.TextBox
'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Protected uc1 As New WebUserControl
Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
End Sub
Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
T1.Text = uc1.dtext
End Sub
End Class
Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
End Sub
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents T1 As System.Web.UI.WebControls.TextBox
'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Protected uc1 As New WebUserControl
Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
End Sub
Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
T1.Text = uc1.dtext
End Sub
End Class