order_manage_page.aspx.vb

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


Partial Class Order_Manage_Page
    Inherits System.Web.UI.Page

    Private Const MESSAGEID As String = "MESSAGEID"

    Protected Sub sMessage_Out(ByVal messageDescription As String)
        DirectCast(Me.FindControl("ctl00$Gude_Message_Control1"), Gude_Message_Control).Show(Session(MESSAGEID), messageDescription)                        'put the message in the GUDE_MESSAGE
        Session(MESSAGEID) = ""
    End Sub

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

    End Sub

    Protected Sub Order_Manage_Control1_messageHandler(ByVal messageDescription As String) Handles Order_Manage_Control1.messageHandler
        sMessage_Out(messageDescription)
    End Sub
End Class