WebUserControl
Inherits System.Web.UI.UserControl
Private PropertyValue AsString #Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。 InitializeComponent()
End Sub ProtectedWithEvents D1 As System.Web.UI.WebControls.DropDownList
'注意: 以下占位符声明是 Web 窗体设计器所必需的。 '不要删除或移动它。 Private designerPlaceholderDeclaration As System.Object .Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的 '不要使用代码编辑器修改它。 InitializeComponent()
End Sub #End Region
Get Return PropertyValue
EndGet Set(ByVal Value AsString)
PropertyValue = Value
EndSet End Property .Load
'在此处放置初始化页的用户代码 End Sub D1.SelectedIndexChanged
PropertyValue = D1.SelectedItem.Value.ToString()
End Sub End Class
uc
Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。 InitializeComponent()
End Sub ProtectedWithEvents Button1 As System.Web.UI.WebControls.Button
ProtectedWithEvents T1 As System.Web.UI.WebControls.TextBox
'注意: 以下占位符声明是 Web 窗体设计器所必需的。 '不要删除或移动它。 Private designerPlaceholderDeclaration As System.Object .Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的 '不要使用代码编辑器修改它。 InitializeComponent()
End Sub #End Region
Protected uc1 AsNew WebUserControl
.Load
'在此处放置初始化页的用户代码 End Sub Button1.Click
T1.Text = uc1.dtext
End Sub End Class