resultmessagecontrol.ascx.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 21 行

Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Partial Class Admin_Controls_ResultMessageControl
    Inherits System.Web.UI.UserControl

    Public Sub ShowSuccess(ByVal message As String)
        tblResult.Visible = True
        trSuccess.Visible = True
        trFail.Visible = False
        lblSuccess.Text = message
    End Sub
    Public Sub ShowFail(ByVal message As String)
        tblResult.Visible = True
        trSuccess.Visible = False
        trFail.Visible = True
        lblFail.Text = message

    End Sub

End Class