AxWindowsMediaPlayer的一点小问题(循环点播)

cccccui 2008-11-19 05:47:54

请大家帮忙看下下面的程序,(循环点播).为什么在有些机器上视频第一遍播放是好的,没的问题,,当第一遍结束,开始运行第二遍的时候，就没反映,视频没有播放...

为什么?????(只是在部分机器上出现这个问题。.)





Imports System.Threading.Thread



Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        PictureBox2.Size = New Size(New Point(135, 43))

        PictureBox2.Location = New Point(434, 614)

        PictureBox2.Image = New Bitmap(Application.StartupPath + "\界面\正常.png")

        PictureBox2.Parent = PictureBox1

        PictureBox2.BackColor = Color.Transparent



        PictureBox1.Location = New Point(0, 0)

        PictureBox1.Size = New Size(1024, 768)

        PictureBox1.Image = New Bitmap(Application.StartupPath + "\排版.jpg")

        AxWindowsMediaPlayer1.SetBounds(0, 0, 1024, 768)

        AxWindowsMediaPlayer1.URL = New String(Application.StartupPath + "\11.mpg")



        'AxWindowsMediaPlayer1.Show()

        AxWindowsMediaPlayer1.enableContextMenu = False

        AxWindowsMediaPlayer1.Hide()

        Timer1.Start()







    End Sub

   

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

        'PictureBox1.Visible = False

        '  PictureBox2.Visible = False

        'AxWindowsMediaPlayer1.Show()

        AxWindowsMediaPlayer1.Ctlcontrols.stop()

        AxWindowsMediaPlayer1.Ctlcontrols.play()

        MsgBox("a")



    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick



        If AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 0 Then

            PictureBox1.Visible = True

            PictureBox2.Visible = True

            AxWindowsMediaPlayer1.Hide()

        Else

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            AxWindowsMediaPlayer1.Show()

        End If

        '  MsgBox(AxWindowsMediaPlayer1.currentMedia.duration & "  " & AxWindowsMediaPlayer1.Ctlcontrols.currentPosition)

    End Sub

    Private Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown

        PictureBox2.Size = New Size(New Point(149, 47))

        PictureBox2.Location = New Point(427, 612)

        PictureBox2.Image = New Bitmap(Application.StartupPath + "\界面\按钮放大.png")

    End Sub



    Private Sub PictureBox2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp

        PictureBox2.Size = New Size(New Point(135, 43))

        PictureBox2.Location = New Point(434, 614)

        PictureBox2.Image = New Bitmap(Application.StartupPath + "\界面\正常.png")

    End Sub

End Class