ASP.NET VB WebParts Connections

yuppidu — Tue, 20 Oct 2009 11:34:00 GMT

ich möchte, dass Webparts untereinander interagieren können. aber es will nicht so wie es soll:

Sample.aspx

<%@ Page Language="VB" %> <%@ Register TagPrefix="uc1" TagName="ProviderWebPart" Src="~/ProviderWebPart.ascx" %> <%@ Register TagPrefix="uc2" TagName="ConsumerWebPart" Src="~/ConsumerWebPart.ascx" %> <html> <head> <title>Sample Page</title> </head> <body> <form id="form1" runat="server"> <asp:WebPartManager ID="WebPartManager1" Runat="server"> <StaticConnections> <asp:WebPartConnection ID="SampleConnection" ConsumerID="ConsumerWebPart1" ProviderID="ProviderWebPart1" /> </StaticConnections> </asp:WebPartManager> <asp:WebPartZone ID="WebPartZone1" Runat="server"> <ZoneTemplate> <uc1:ProviderWebPart Runat="server" ID="ProviderWebPart1" /> <uc2:ConsumerWebPart Runat="server" ID="ConsumerWebPart1" /> </ZoneTemplate> </asp:WebPartZone> </form> </body> </html>

ConsumerWebPart.ascx

<%@ Control Language="VB" ClassName="ConsumerWebPart" %> <%@ Import Namespace="IntroducingASPNETwebParts" %> <script runat='server'> Public _message As IMessage <ConnectionConsumer("Message")> _ Sub SetMessage(ByVal message As IMessage) Me._message = message End Sub Protected Overrides Sub OnPreRender(ByVal e As EventArgs) If (Not (_message) Is Nothing) Then _messageLabel.Text = _message.Message End If MyBase.OnPreRender(e) End Sub </script> <asp:Label Runat="server" ID="_messageLabel" />

ProviderWebPart.ascx

<%@ Import Namespace="IntroducingASPNETwebParts" %> <%@ Control Language="VB" ClassName="ProviderWebPart" %> <%@ Implements Interface="IMessage" %> <script runat='server'> Public Overrides ReadOnly Property Message() As String _ Implements IMessage.Message Get Return _messageTextBox.Text End Get End Property <ConnectionProvider("Message")> _ Public Function GetMessage() As IMessage Return Me End Function </script> <asp:TextBox Runat="server" ID="_messageTextBox" Wrap="False" /> <asp:Button Runat="server" ID="_postBackButton" Text="Change the Text" />

IMessage.vb

Public Interface IMessage ReadOnly Property Message() As String End Interface

(Codetags hinzugefügt von Moderator Jürgen Gutsch [Bitte immer Codetags im Editor benutzen, danke!])

Search results matching tags 'TextBox', 'dynamischer Inhalt', 'aspnet', 'Button', and 'WebParts'

ASP.NET VB WebParts Connections