放荡于天地之间,浪骸于形体之外。自己〖放荡的理由〗-- By - bombzh

ASP.NET 控件记录(2)

上一篇 / 下一篇  2006-05-20 15:04:50 / 天气: 舒适 / 心情: 平静 / 个人分类:转载来的数据

SupeSite/X-Space官方站^o2en3~

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

3\-|C@{Z8hn8s~0

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

B7c%jL5m4f.YIt0 SupeSite/X-Space官方站 |:q"^|%U GS+a

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
:dC zry(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"m F 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
apq!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)
] iO AO+_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'H3Va Nt,^
        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/Ko9Z Nr
            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官方站a ZC6U2zv$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官方站3P4QX'j Gn7iaB
                    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!wH7I C1p
                        output.Write((" onmouseover=""this.filters.Alpha.opacity='" & textArray1(1) & "'"""))
]l m.b \)k7H6a;i0                        output.Write((" onmouseout=""this.filters.Alpha.opacity='" & textArray1(2) & "'"""))SupeSite/X-Space官方站3K:k/m.L5F dP
                    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>")
#dN4uis%tCcZ^0                End IfSupeSite/X-Space官方站,f)@\IA T\:u%Q
            End If
^jU,? J|0        End Sub
-^5F5V2x6k&`5v,j;rnQ0    End Class

Y\@]:n6h@.n'A-Hj0

TAG: net 电脑网络 转载来的数据

 

评分:0

我来说两句

显示全部

:loveliness: :handshake :victory: :funk: :time: :kiss: :call: :hug: :lol :'( :Q :L ;P :$ :P :o :@ :D :( :)

Open Toolbar