ASP.NET 控件记录（2）

我是做ASP.NET的，程序不是很精通，觉得什么语言不重要，重要的是思想。

0IXP z U-J#a!g*a2X0从网上转载几篇文章，不看也留着纪念，占个位置。

3、重写IMG控件

pFpbGZ+J-E0    Public Class Img'''Obj.Src=String:Obj.Href=Link:Obj.Target=TargetSupeSite/X-Space官方站V\j5C-ipg
        Inherits ControlSupeSite/X-Space官方站5}#u!l%{(n0r6G
        Implements IAttributeAccessorSupeSite/X-Space官方站)z fD%Y%G(C
C.^
        Private _alpha As String
-J;Nu4{]7mH0        Private _attrColl As AttributeCollectionSupeSite/X-Space官方站gQ Y.E^ y
        Private _href As String
1a5W.V\|;_4_(T0        Private _src As StringSupeSite/X-Space官方站4g!{4j"b!L
        Private _target As StringSupeSite/X-Space官方站.b8w;|sx:wx*o
d8_([
        Public WriteOnly Property Alpha As String
%? ecx%X0            Set(ByVal value As String)SupeSite/X-Space官方站W)g S!Px&o D
                Me._alpha = value
^)np&y)L*m^] D'W0            End SetSupeSite/X-Space官方站A)we/Yjal
        End Property
#gJ9_P^5W0        Public ReadOnly Property Attributes As AttributeCollectionSupeSite/X-Space官方站(B;`)I5jY-c
            GetSupeSite/X-Space官方站5T2YQ
r:m8Cun
                If (Me._attrColl Is Nothing) ThenSupeSite/X-Space官方站!?/g;~teZ XKhfv
                    Me._attrColl = New AttributeCollection
i2};J.n9s/ES?0                End IfSupeSite/X-Space官方站7sJgA7p&^
                Return Me._attrCollSupeSite/X-Space官方站V[c)YrC*`x9R-]E
            End GetSupeSite/X-Space官方站'iv.H
JX ?:giF
        End Property
? AeBN!ie p0        Public Property Href As String
FvBd#Z&n0            GetSupeSite/X-Space官方站6W?)nn`1z
                Return Me._href
,Jsl bxMQ\{0            End GetSupeSite/X-Space官方站9]4Esc P$P1L
]
            Set(ByVal value As String)SupeSite/X-Space官方站)Z
`Zi'j5W
                Me._href = valueSupeSite/X-Space官方站"a/g;iK2G
            End Set
C\w*p&pF0        End PropertySupeSite/X-Space官方站 uw5n/o3v'PC
        Public Property Src As String
P D r7Hx,zG8a!E+q%E0            Get
Q6frjN-T8D0                Return Me._srcSupeSite/X-Space官方站;zAAQ qi#UH
            End GetSupeSite/X-Space官方站6[h9^(Y'e+d0e'zJ
            Set(ByVal value As String)SupeSite/X-Space官方站!ul%xjC P:C
                Me._src = value
$qV'V1S7p_3L5`0g*G?0            End SetSupeSite/X-Space官方站
g
Ge6W{'U_"As3\,O
        End PropertySupeSite/X-Space官方站-@ et A0x @`m
        Public Property Target As String
c4X_bSxs\0            Get
X;A x}pN:x#T0                Return Me._target
U7SV8Uhh,y0            End GetSupeSite/X-Space官方站%u;|w&L|sd
            Set(ByVal value As String)
.H0Q;vkr0                Me._target = valueSupeSite/X-Space官方站p~9E1? n_`
            End SetSupeSite/X-Space官方站m.KB"AG+D,Y/{
        End PropertySupeSite/X-Space官方站ZA;Q$t^,eV
        Public Sub New()
O4XhZ1W0        End SubSupeSite/X-Space官方站'S/~x J8C"s
        Private Function GetAttribute(ByVal name As String) As String Implements IAttributeAccessor.GetAttributeSupeSite/X-Space官方站a J |+F w ~\"x Z
            Return Me.Attributes.Item(name)
h]vH
o)e(C0        End Function

W*T9w,b9|N0        Private Sub SetAttribute(ByVal name As String, ByVal value As String) Implements IAttributeAccessor.SetAttribute
~5o3]ld8Uc0            Me.Attributes.Item(name) = valueSupeSite/X-Space官方站 Q|Ne/gB^D'o!r(?
        End SubSupeSite/X-Space官方站}FfI1m1p)U
        Protected Overrides Sub Render(ByVal output As HtmlTextWriter)
2]:Z3Rin(syF0            If ((Not Me._src Is Nothing) AndAlso (Not Me._src Is String.Empty)) Then
)p:r0j2[,K0                If (Not Me._href Is Nothing) Then
?er5b]VFU(A0                    output.Write(("<a href=""" & Me._href & """"))SupeSite/X-Space官方站xR1icT(Z%{[
                    If (Not Me._target Is Nothing) Then
Y?
y"{!_\de0                        output.Write((" target=""" & Me._target & """"))
S;iG:lhewD0                    End IfSupeSite/X-Space官方站8mHt!^0f3@I o4|
                    output.Write(">")SupeSite/X-Space官方站 v+x7`?4Ipr
                End If
N'RbHM0                output.Write(("<img src=""" & Me._src & """"))SupeSite/X-Space官方站6BM a|0D
                If (Not Me._alpha Is Nothing) ThenSupeSite/X-Space官方站-a;K4KR"QY7C
                    Dim textArray1 As String() = Me._alpha.Split(New Char() { ","c })
/BYFs[h/D e0                    If (textArray1.Length = 3) ThenSupeSite/X-Space官方站L"Y,z Y,bhs
                        output.Write((" style=""filter:alpha(opacity=" & textArray1(0) & ")"""))SupeSite/X-Space官方站}I+d!J%N O1X!h
                        output.Write((" onmouseover=""this.filters.Alpha.opacity='" & textArray1(1) & "'"""))
Uv` v4o0s3so1[Pq1@0                        output.Write((" onmouseout=""this.filters.Alpha.opacity='" & textArray1(2) & "'"""))
,G+M*pN+t r|0                    End IfSupeSite/X-Space官方站2Y|`k| _@5@Y
@T
                End If
}IkUZ0                output.Write((Me.Attributes.ToString & " border=""0"" />"))
#xJ] `V:lm/A0                If (Not Me._href Is Nothing) ThenSupeSite/X-Space官方站+}U CQcKW+s
                    output.Write("</a>")
5pYR8qh;tKC$fy0                End IfSupeSite/X-Space官方站6jEH{8d(R ?a
            End If
^*F&Se&^1A1sY0        End SubSupeSite/X-Space官方站3Pc:|"X ?.j0ZT
    End ClassSupeSite/X-Space官方站5e;s3N JD1u