程序代码：

<!-- ▼▼课程播放-个人播放课程▼▼ -->
<asp:Panel ID="pnlClassPlay" runat="server">
    <div align="right">
        <asp:LinkBut&#8203;&#8203;ton ID="lkbReturnToList" runat="server" Text="回前页" Font-Underline="True" />
    </div>
    <h4>
        CLASS PLAY</h4>
    <h3>
        课程播放</h3>
    <table width="720px">
        <tr>
            <td width="50%" align="right">
                阅读时间：
            </td>
            <td width="50%" id="TimerText" align="left">
            </td>
        </tr>
    </table>
    <table width="720px">
        <tr>
            <td>
                <video id="MyVideo" runat="server" controls="True" autoplayer="True" type="video/mp4">
                您的浏览去不支援 HYML5 标签</video>
            </td>
        </tr>
    </table>
</asp:Panel>
<!-- ▲▲查询列表-个人播放课程▲▲ -->

程序代码：

Protected Sub ListView2_ItemCommand(sender As Object, e As System.Web.UI.WebControls.ListViewCommandEventArgs) Handles ListView2.ItemCommand
        Dim hdfFileListNo As HiddenField = e.Item.FindControl("hdfFileListNo")
        Dim hdfFileListSubNo As HiddenField = e.Item.FindControl("hdfFileListSubNo")
        Dim hdfFileName As HiddenField = e.Item.FindControl("hdfFileName")
        Dim strFilePath As String = ConfigurationManager.AppSettings(strCnnType & "BTA_Class_Files").ToString & "/" & hdfFileListSubNo.Value & "/" & hdfFileName.Value
        pnlMyClassList.Visible = False
        pnlClassPlay.Visible = True

        MyVideo.Attributes.Add("src", strFilePath)
        MyVideo.Attributes.Add("Width", "720px")
        MyVideo.Attributes.Add("Height", "600px")
        MyVideo.Attributes.Add("Autoplayer", "True")
    End Sub

'回前页
  Protected Sub lkbReturnToList_Click(sender As Object, e As System.EventArgs) Handles lkbReturnToList.Click
    Dim TimerText1 As HtmlControl = Page.Items.Item("TimerText")  'TimerText内的值我要如何取得?
    pnlClassPlay.Visible = False
    pnlMyClassList.Visible = True
    pnlEmpGroups.Visible = False
    Call LoadMyClass(0, Session("LoginNo"))
  End Sub