再开贴,带很少的代码。有关在后台控制用户控件付值的问题。
OK521 2003-06-24 01:13:21 .ascx.vb文件
Imports System
Imports System.Web
Imports System.Web.UI.WebControls
Public Class navegate
Inherits System.Web.UI.UserControl
Private _navegateinfo As String
Public Property navegateinfo() As String
Get
Return _navegateinfo
End Get
Set(ByVal Value As String)
_navegateinfo = Value
End Set
End Property
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lbnavegate.Text = navegateinfo
End Sub
End Class
.aspx文件
<%@ register src="usercontrol/navegate.ascx" tagprefix="bybbsnavegate" tagname="navegate" %>
<bybbsnavegate:navegate id=navegate runat=server/>
.aspx.vb文件
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Public Class reginfo
Inherits System.Web.UI.Page
Protected WithEvents bynavegate As navegate
Protected mytitle As HtmlGenericControl
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
mytitle.InnerText = "超跃论坛----用户注册信息"
bynavegate.navegateinfo = "kwgkwgk"
End Sub
提示错误: BC30002: 未定义类型“navegate”。
急呀。
End Class