ASP.Net中的Vb6“Tag”属性等价物？

Imports System.Runtime.CompilerServices

Public Module Extensions
  <Extension()> _
  Public Sub SetTag(ByVal ctl As Control,ByVal tagValue As String)
    If SessionTagDictionary.ContainsKey(TagName(ctl)) Then
        SessionTagDictionary(TagName(ctl)) = tagValue
    Else
        SessionTagDictionary.Add(TagName(ctl),tagValue)
    End If
  End Sub

  <Extension()> _
  Public Function GetTag(ByVal ctl As Control) As String
    If SessionTagDictionary.ContainsKey(TagName(ctl)) Then
        Return SessionTagDictionary(TagName(ctl))
    Else
        Return String.Empty
    End If
  End Function

  Private Function TagName(ByVal ctl As Control) As String
    Return ctl.Page.ClientID & "." & ctl.ClientID
  End Function

  Private Function SessionTagDictionary() As Dictionary(Of String,String)
    If HttpContext.Current.Session("TagDictionary") Is Nothing Then
        SessionTagDictionary = New Dictionary(Of String,String)
        HttpContext.Current.Session("TagDictionary") = SessionTagDictionary
    Else
        SessionTagDictionary = DirectCast(HttpContext.Current.Session("TagDictionary"),_ 
          Dictionary(Of String,String))
    End If
  End Function
End Module

然后,在ASP.NET页面中,首先将扩展名放入范围,例如：

Imports WebApplication1.Extensions

…然后根据需要使用它的控件：

TextBox1.SetTag("Test")

Label1.Text = TextBox1.GetTag

LATER EDIT：如果你真的,真的不想将你的标签存储在Session对象中,那么可以将它们填充到Viewstate中.这当然意味着您的标签将在发送给用户的页面标记中公开(尽管是以混淆的形式),并且不幸的是,需要一些反射,因为页面的ViewState属性被标记为“受保护” ‘ 由于某些原因.

因此,此代码几乎只能用于娱乐目的,除非您真的喜欢在代码审查期间引起注意：

<Extension()> _
  Public Sub SetTag(ByVal ctl As Control,ByVal tagValue As String)
    ViewState.Add(ctl.ID & "_Tag",tagValue)
  End Sub

<Extension()> _
  Public Function GetTag(ByVal ctl As Control) As String
    Return ViewState(ctl.ID & "_Tag")
  End Function

Private Function ViewState() As Web.UI.StateBag
    Return HttpContext.Current.Handler.GetType.InvokeMember("ViewState",_
                Reflection.BindingFlags.GetProperty + _
                Reflection.BindingFlags.Instance + _
                Reflection.BindingFlags.NonPublic,_
                Nothing,HttpContext.Current.CurrentHandler,Nothing)
End Function

最终编辑(我保证……).这里有一种摆脱反射的方法：首先,创建一个新类来公开具有可用保护级别的ViewState属性,然后更改你的Code-Behind(.aspx.vb)类来继承它而不是Web.UI.页面,例如：

Public Class PageEx
  Inherits System.Web.UI.Page

  Friend ReadOnly Property ViewStateEx() As Web.UI.StateBag
    Get
        Return MyBase.ViewState
    End Get
  End Property
End Class

现在,在您的扩展模块中,您可以访问此新定义的属性：

Private Function ViewState() As Web.UI.StateBag
  Return DirectCast(HttpContext.Current.Handler,PageEx).ViewStateEx
End Function

仍然有点黑客,但比使用反射更可接受……