#Region " 加入編譯器預設值的陳述式 "

Option Compare Text
Option Explicit On
Option Strict On

#End Region

#Region " 匯入必要的名稱空間 "

Imports GoldenUp
Imports GoldenUp.Web

#End Region

Namespace NetGUI

    Partial Class Require
        Inherits System.Web.UI.Page

#Region " 事件函式 "

        '在Page Load事件中, 初始化網頁
        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            '設定控制項屬性
            SetProperty()
        End Sub

#End Region

#Region " 自訂函式 "

        '設定控制項的屬性
        Protected Sub SetProperty()
            Dim _lang As String = GoldenUp.Common.Lang

            '設定Label控制項屬性
            WebFunc.SetControlText(lblProgramTitle, _lang, "FormTitle_Require")
            WebFunc.SetControlText(lblPageDescription, _lang, "Require_lblPageDescription")
            WebFunc.SetControlText(lblMessage, _lang, "Require_lblMessage")
        End Sub

#End Region

    End Class

End Namespace
