Creo il WebUserControl nella directory App_Code come da esempio (ha solo una proprietà pubblica)
Creo in una qualunque directory il WebUserControl che eredita dal primocodice:Public Class WebUserControl1 Inherits System.Web.UI.UserControl Private _Nome As String = "" Public Property Nome() As String Get Return Me._Nome End Get Set(ByVal value As String) Me._Nome = value End Set End Property End Class
codice:<%@ Control Language="VB" AutoEventWireup="false" CodeFile="WebUserControl.ascx.vb" Inherits="prove_WebUserControl" %>ho aggiunto la proprità Cognome.codice:Option Strict On Imports l = libreria.ModuloWeb Partial Class prove_WebUserControl Inherits WebUserControl1 Private _Cognome As String = "" Public Property Cognome() As String Get Return Me._Cognome End Get Set(ByVal value As String) Me._Cognome = value End Set End Property End Class
Questa classe eredita pure la proprietà Nome
La pagina di collaudo
codice:<%@ Page Language="VB" AutoEventWireup="false" CodeFile="a.aspx.vb" Inherits="prove_a" %> <%@ Register src="WebUserControl.ascx" tagname="WebUserControl" tagprefix="uc1" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> <title></title> </head> <body> <form id="form1" runat="server"> <div> <uc1:WebUserControl ID="WebUserControl1" runat="server" Nome="Pinco" Cognome="Pallino" /> </div> </form> </body> </html>codice:Option Strict On Imports l = libreria.ModuloWeb Partial Class prove_a Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load l.PrintLn(Me.WebUserControl1.Nome & " " & Me.WebUserControl1.Cognome) End Sub End Class
ps. :master: a che serve un UserControl non visuale? (mai visto un esempio in giro)

 
			
			 
					
					
					
						 Rispondi quotando
  Rispondi quotando