如何使用我想要的任何属性生成System.Web.UI.HtmlControls.HtmlTextArea？

Question

我有一个非常独特的情况，我需要在页面上生成一个<textarea>，从后面的代码：

Public Class Textarea
  Inherits System.Web.UI.HtmlControls.HtmlTextArea
End Class

和控制：

<me:Textarea ... />

问题是，我独特的情况要求我使用奇怪的属性。我基本上需要它输出这样的东西：

<textarea :class="{}" :id="something">

所以我想做的是：

<me:Textarea :class="{}" etc. />

是否有一种简单的方法可以让呈现与我所输入的完全相同？还是我应该用另一个控件？在渲染阶段从头开始构建它？我会发现标记格式不正确，所以最终我只想让它吐出<textarea>标记，并将它的内脏与键入的完全相同。在标记中包括C#，因为这并不重要。会举任何例子。

Answer 1

所有这些答案都很棒，但我想和大家分享我想出了如何使它尽可能简单的方法。

我刚创建了一个控件：

Public Class Wrapper
  Inherits Control
End Class

然后：

<me:Wrapper>
  <textarea anything i want here... ></textarea>
</me:Wrapper>

就像我打的一样吐出来。对于那些质疑为什么还要麻烦的人来说，我在另一个使用控件生成器的解析器中，而<textarea>是它的子控件之一，所以需要一个解决办法来使用常规的HTML。

Answer 2

试试看以下几点。也不算太糟。

对于服务器端控件，创建一个可以填充任何文本的属性。我叫它"ExtraStuff“。用私有变量支持它。然后重写呈现以写出额外的内容，作为标记的一部分：

    Public Class Textarea
    Inherits System.Web.UI.HtmlControls.HtmlTextArea

    Private m_sExtraStuff As String = ""

    Public Property ExtraStuff As String
        Get
            Return m_sExtraStuff
        End Get
        Set(value As String)
            m_sExtraStuff = value
        End Set
    End Property

    Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)
        writer.Write("<textarea ")
        writer.Write(m_sExtraStuff)
        writer.Write("></textarea>")
    End Sub

End Class

然后，您可以在标记中添加要写入的额外内容，方法是将其添加到您创建的属性中。但是，您必须确保它的编码是正确的：

<me:Textarea runat="server" ExtraStuff=":class=&quot;{}&quot; :id=&quot;something&quot;"></me:Textarea>

当它呈现时，我想它会看起来像你想要的：

<textarea :class="{}" :id="something"></textarea>

或者：

另一种可能更健壮的方法是显式声明这些特殊属性，然后以您的格式写出它们。服务器端控制：

    Public Class Textarea
    Inherits System.Web.UI.HtmlControls.HtmlTextArea

    Private m_sSpecialID As String = ""
    Private m_sSpecialClass As String = ""

    Public Property SpecialID As String
        Get
            Return m_sSpecialID
        End Get
        Set(value As String)
            m_sSpecialID = value
        End Set
    End Property

    Public Property SpecialClass As String
        Get
            Return m_sSpecialClass
        End Get
        Set(value As String)
            m_sSpecialClass = value
        End Set
    End Property

    Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)
        writer.Write("<textarea :class=""")
        writer.Write(m_sSpecialClass)
        writer.Write(""" :id=""")
        writer.Write(m_sSpecialID)
        writer.Write("""></textarea>")
    End Sub

End Class

标记：

<me:Textarea runat="server" SpecialClass="{}" SpecialID="something"></me:Textarea>

输出是相同的。