ASP.NET 控件记录（2）

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

:O:j&Q9OOw%pI0从网上转载几篇文章，不看也留着纪念，占个位置。

3、重写IMG控件SupeSite/X-Space官方站;s6ZY E Z6|

M9v].@1j0    Public Class Img'''Obj.Src=String:Obj.Href=Link:Obj.Target=TargetSupeSite/X-Space官方站D5g]Ox
        Inherits Control
&g4n5X5lO0        Implements IAttributeAccessorSupeSite/X-Space官方站3@a4u \ `@3C!ak
        Private _alpha As String
:dCzr
y(S0        Private _attrColl As AttributeCollection
^(ftp(I-M'Z)`Oi[0        Private _href As String
+G-? PtO.u#f!MS0        Private _src As String
8o!Qi]9x-X0        Private _target As String
o!z.z[5b!]}jG a0        Public WriteOnly Property Alpha As StringSupeSite/X-Space官方站w|ODM
            Set(ByVal value As String)
,BG:zEGU8R0                Me._alpha = value
I7tu| w1A1B0            End SetSupeSite/X-Space官方站7t#uBh+vzW
        End Property
:j|4dt*^Uf-e0        Public ReadOnly Property Attributes As AttributeCollectionSupeSite/X-Space官方站iGC'\3K#]})m
            GetSupeSite/X-Space官方站
m EJ dBN/J'g
                If (Me._attrColl Is Nothing) ThenSupeSite/X-Space官方站 ]&n"mFX"vD
                    Me._attrColl = New AttributeCollection
.Zz)mbf#r&J1rK0                End If
T6rfG?`5C-])n5H0                Return Me._attrColl
X3V3| W W1_Q;B0            End Get
ap
q!xZ2|0        End PropertySupeSite/X-Space官方站cV7E^1VMm s.w'H
        Public Property Href As String
{IL7[*gL0            GetSupeSite/X-Space官方站x POI ? X
                Return Me._href
;dKl [oM!}#W0            End GetSupeSite/X-Space官方站-YVH4E-]+x+f Z:Mti
            Set(ByVal value As String)
] iOAO+_S0                Me._href = value
!\ uZt8k3b1r[0            End SetSupeSite/X-Space官方站"[.kmU4y`
        End Property
3G@)R.id0][x0        Public Property Src As StringSupeSite/X-Space官方站)hg S;P"Y5r$eE
            Get
`;WSj4_ S!Y0                Return Me._src
M nz&`D"g1@
I4?6fd0            End Get
]s`R4|#qZ0            Set(ByVal value As String)
LSAN6q*h|?(s,X0                Me._src = valueSupeSite/X-Space官方站W"pIH?GOV
            End Set
6}7c~|(Zb;d A0        End PropertySupeSite/X-Space官方站9B&TX4I#[
        Public Property Target As StringSupeSite/X-Space官方站&h~"k4MB
            Get
:a?n]n'a6y8tte0                Return Me._targetSupeSite/X-Space官方站1PjK-Y{8G*^ fp5U
            End Get
)N!E#V!Jr?E9x0            Set(ByVal value As String)SupeSite/X-Space官方站-pFX@)jbx
                Me._target = valueSupeSite/X-Space官方站^YI0M^
fu&u
            End Set
:W]5F+e&pV0        End PropertySupeSite/X-Space官方站B'H3VaNt,^
        Public Sub New()
K UZp*]6Tm!o+y%w%J0        End Sub
4_s7CB/a$R_0        Private Function GetAttribute(ByVal name As String) As String Implements IAttributeAccessor.GetAttributeSupeSite/X-Space官方站n5h`kX_3t1`#M}"Fn7M(V
            Return Me.Attributes.Item(name)
^5o |6hH|M b0        End FunctionSupeSite/X-Space官方站4Rf4T[;jF
        Private Sub SetAttribute(ByVal name As String, ByVal value As String) Implements IAttributeAccessor.SetAttribute
&d ~(^J7B5k,M9K'Do0            Me.Attributes.Item(name) = valueSupeSite/X-Space官方站U[
R+m8M*Ec S)~
        End SubSupeSite/X-Space官方站!^"A HK'f Y1LqA G
        Protected Overrides Sub Render(ByVal output As HtmlTextWriter)SupeSite/X-Space官方站NYL3n/Ko9ZNr
            If ((Not Me._src Is Nothing) AndAlso (Not Me._src Is String.Empty)) Then
].D^$ZRb:hH0                If (Not Me._href Is Nothing) ThenSupeSite/X-Space官方站aZC6U2zv$ba*t_(]T,g
                    output.Write(("<a href=""" & Me._href & """"))SupeSite/X-Space官方站6T8x1u)[d GZ MN
                    If (Not Me._target Is Nothing) ThenSupeSite/X-Space官方站8t6kd0b:M(D,GX8X
                        output.Write((" target=""" & Me._target & """"))SupeSite/X-Space官方站3P4Q
X'jGn7iaB
                    End IfSupeSite/X-Space官方站Pi`5{*u~.R
                    output.Write(">")
&?mW&X3G2x"E0                End IfSupeSite/X-Space官方站#|;|$H [Bl'B
                output.Write(("<img src=""" & Me._src & """"))
hdT+e*_8pp0                If (Not Me._alpha Is Nothing) ThenSupeSite/X-Space官方站)Y:^1X6gTg[ w(x
                    Dim textArray1 As String() = Me._alpha.Split(New Char() { ","c })
A5KFZ_,F X0                    If (textArray1.Length = 3) ThenSupeSite/X-Space官方站t%_"Q1cu/[H
                        output.Write((" style=""filter:alpha(opacity=" & textArray1(0) & ")"""))SupeSite/X-Space官方站@z!wH7IC1p
                        output.Write((" onmouseover=""this.filters.Alpha.opacity='" & textArray1(1) & "'"""))
]lm.b \)k7H6a;i0                        output.Write((" onmouseout=""this.filters.Alpha.opacity='" & textArray1(2) & "'"""))SupeSite/X-Space官方站3K:k/m.L5FdP
                    End IfSupeSite/X-Space官方站
ma,eiD?
                End If
7u+JaZ}t0                output.Write((Me.Attributes.ToString & " border=""0"" />"))SupeSite/X-Space官方站#U
[C.Z)R
                If (Not Me._href Is Nothing) ThenSupeSite/X-Space官方站r0vO6M1GM"u
                    output.Write("</a>")
#d
N4uis%tCcZ^0                End IfSupeSite/X-Space官方站,f)@\IA T\:u%Q
            End If
^jU,?J|0        End Sub
-^5F5V2x6k&`5v,j;rnQ0    End Class