用户控件加载（VB）

cs：

     Dim  Control  As   Object

             If  (Request.Cookies( " UserInfo " )( " e_id " )  <>   "" )  Then
                Control  =   New  ctl_pds_fcc
                Control  =   CType ( Me .Page.LoadControl( " control/ctl_pds_fcc.ascx " ), ctl_pds_fcc)
                 ' CType(Control, ctl_pds_fcc).ID = i
                 CType (Control, ctl_pds_fcc).e_id  =  Request.Cookies( " UserInfo " )( " e_id " )  ' 員工代碼
                 CType (Control, ctl_pds_fcc).from_id  =  Request.QueryString( " from_pub_id " )
                PlaceHolder1.Controls.Add(Control)
             End   If

ascx：

Imports  SmartWeb.WebBase1
Imports  System.Data.SqlClient
Public   Class ctl_pds_fcc Class ctl_pds_fcc
    Inherits SmartWeb.ctrlBase

  Private   Sub Page_Load() Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在這裡放置使用者程式碼以初始化網頁
        Try
            If (IsPostBack = True) Then
                Return
            End If
            If po_id = "" Or e_id = "" Or from_id = "" Then
                Return
            End If
            GetUserInfo(e_id)
            BindGrid(po_id, e_id, from_id)
            BindGridZL(from_id, e_id) ' 職能評估紀錄
            BindGridLD(from_id, e_id) ' 建議輪調與晉升紀錄
        Catch Ex As System.Exception
            ErrorHandler(Ex.ToString(), Message)
        End Try
    End Sub

' 定义一些方法（外部d）

     Public  str_e_id  As   String
     Public   Property e_id() Property e_id() As String
        Get
            Return str_e_id
        End Get
        Set(ByVal Value As String)
            str_e_id = Value
        End Set
    End Property

     Public  str_po_id  As   String
     Public   Property po_id() Property po_id() As String
        Get
            Return str_po_id
        End Get
        Set(ByVal Value As String)
            str_po_id = Value
        End Set
    End Property

     Public  str_from_id  As   String
     Public   Property from_id() Property from_id() As String
        Get
            Return str_from_id
        End Get
        Set(ByVal Value As String)
            str_from_id = Value
        End Set
    End Property
End Class