statisticspage.aspx.vb

来自「这是一个订单管理系统」· VB 代码 · 共 42 行


Partial Class StatisticsPage
    Inherits System.Web.UI.Page
    Private Const MESSAGEID As String = "MESSAGEID"
    Protected Sub CliInfo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CliInfo.Click
        Dim ctrlPanel As New StaClientInfoControl
        Try
            ctrlPanel = DirectCast(LoadControl("StaClientInfoControl.ascx"), System.Web.UI.UserControl)
            ctrlPanel.ID = "StaClientInfoControl"
            AddHandler ctrlPanel.msgSubPanel, AddressOf Me.MsgProcess
            PanelInfo.Controls.Add(ctrlPanel)

        Catch ex As Exception

        End Try
    End Sub

    Protected Sub StaInfo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles StaInfo.Click
        Dim ctrlPanel As New StatisticsInfoControl
        Try
            ctrlPanel = DirectCast(LoadControl("StatisticsInfoControl.ascx"), System.Web.UI.UserControl)
            ctrlPanel.ID = "StatisticsInfoControl"
            AddHandler ctrlPanel.msgSubPanel, AddressOf Me.MsgProcess
            PanelInfo.Controls.Add(ctrlPanel)
        Catch ex As Exception
            Session(MESSAGEID) = 0
        End Try

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub
    Protected Sub sMessage_Out(ByVal messageDescription As String)
        Me.Gude_Message_Control.Show(Session(MESSAGEID), messageDescription)                        'put the message in the GUDE_MESSAGE
        Session(MESSAGEID) = ""
    End Sub
    Private Sub MsgProcess(ByVal MsgDescription As String)
        sMessage_Out(MsgDescription)
    End Sub
End Class