clockuserctr.ascx.vb

来自「这是一个asp.net的自定义控件的例子 晴参考」· VB 代码 · 共 51 行


Partial Class ClockUserCtr
    Inherits System.Web.UI.UserControl


    Private _size As Integer = 100
    Private _time As DateTime = DateTime.Now

    Property size() As Integer
        Get
            Return _size
        End Get
        Set(ByVal value As Integer)
            _size = value

        End Set
    End Property
    Property Time() As DateTime
        Get
            Return _time
        End Get
        Set(ByVal value As DateTime)
            _time = value

        End Set
    End Property


    Sub Page_load(ByVal source As Object, ByVal e As EventArgs) Handles Me.Load
        Dim hourTime As String
        Dim minuteTime As String

        'If Parent.Page.IsPostBack Then

        '    Time = DateTime.Now


        'End If
        hourTime = _time.ToString("%H")
        minuteTime = _time.ToString("%m")
        ImgClock.Visible = True
        ImgClock.ImageUrl = "clock.aspx?hour=" & hourTime & "&minute=" & minuteTime & _
                              "&width=" & size

        lblMessgae.Text = ImgClock.ImageUrl & "<br/>"


    End Sub

End Class