viewmsg.aspx.vb

这是一个基于web 的

Public Class ViewMsg
    Inherits System.Web.UI.Page
    Protected WithEvents MsgList As System.Web.UI.WebControls.DataList
    Protected WithEvents DelBtn As System.Web.UI.WebControls.LinkButton

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then
            BindData()
        End If
    End Sub

    Private Sub BindData()
        Dim User As UserInfo = CType(Session("UserInfo"), UserInfo)
        Dim obj As MsgControl = New MsgControl()
        MsgList.DataSource = obj.GetMsgList(User.NiceName)
        MsgList.DataBind()

    End Sub

    Private Sub MsgList_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles MsgList.ItemCommand
        If e.CommandName = "View" Then
            MsgList.SelectedIndex = e.Item.ItemIndex
            BindData()
            '修改信息状态
            Dim lbMessageID As Label = CType(MsgList.Items(e.Item.ItemIndex).FindControl("lbMessage"), Label)
            Dim obj As MsgControl = New MsgControl()
            obj.ChangeState(lbMessageID.Text.ToString)
        Else
            If e.CommandName = "ReBack" Then
                Dim txtReceiver As TextBox = CType(MsgList.Items(e.Item.ItemIndex).FindControl("txtSender"), TextBox)
                Dim Receiver As String = txtReceiver.Text
                Response.Write("<script language=javascript>")
                Response.Write("window.location='EditMsg.aspx?NiceName=" + Receiver + "';")
                Response.Write("</script>")
            End If
        End If
    End Sub

    Private Sub DelBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DelBtn.Click
        Dim i As Integer = 0
        For i = 0 To MsgList.Items.Count - 1
            Dim ChBox As CheckBox = CType(MsgList.Items(i).FindControl("Chckbox"), CheckBox)
            If ChBox.Checked = True Then
                Dim lbMessageID As Label = CType(MsgList.Items(i).FindControl("MessageID"), Label)
                Dim obj As MsgControl = New MsgControl()
                obj.DelMsg(lbMessageID.Text)
            End If
        Next
        BindData()
    End Sub
End Class