form1.vb

可以播放FLASH的简单播放器

        Me.ListBox1.ForeColor = System.Drawing.Color.Magenta
        Me.ListBox1.ItemHeight = 12
        Me.ListBox1.Location = New System.Drawing.Point(0, 0)
        Me.ListBox1.Name = "ListBox1"
        Me.ListBox1.Size = New System.Drawing.Size(344, 112)
        Me.ListBox1.TabIndex = 0
        '
        'Panel4
        '
        Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Panel4.BackColor = System.Drawing.Color.White
        Me.Panel4.Controls.Add(Me.ComboBox1)
        Me.Panel4.Controls.Add(Me.Button3)
        Me.Panel4.Controls.Add(Me.Button2)
        Me.Panel4.Controls.Add(Me.Button1)
        Me.Panel4.Location = New System.Drawing.Point(344, 0)
        Me.Panel4.Name = "Panel4"
        Me.Panel4.Size = New System.Drawing.Size(176, 104)
        Me.Panel4.TabIndex = 2
        '
        'ComboBox1
        '
        Me.ComboBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.ComboBox1.Items.AddRange(New Object() {"单首播放", "单首循环", "全首循环"})
        Me.ComboBox1.Location = New System.Drawing.Point(64, 8)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(104, 20)
        Me.ComboBox1.TabIndex = 3
        '
        'Button3
        '
        Me.Button3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Button3.Location = New System.Drawing.Point(72, 64)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(75, 31)
        Me.Button3.TabIndex = 2
        Me.Button3.Text = "播放/暂停"
        '
        'Button2
        '
        Me.Button2.Anchor = System.Windows.Forms.AnchorStyles.Bottom
        Me.Button2.Location = New System.Drawing.Point(8, 72)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(32, 23)
        Me.Button2.TabIndex = 1
        Me.Button2.Text = "∨"
        '
        'Button1
        '
        Me.Button1.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.Button1.Location = New System.Drawing.Point(8, 12)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(32, 23)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "∧"
        '
        'Panel3
        '
        Me.Panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Panel3.Controls.Add(Me.ListBox1)
        Me.Panel3.Location = New System.Drawing.Point(0, 0)
        Me.Panel3.Name = "Panel3"
        Me.Panel3.Size = New System.Drawing.Size(344, 112)
        Me.Panel3.TabIndex = 0
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.Color.FromArgb(CType(218, Byte), CType(250, Byte), CType(254, Byte))
        Me.ClientSize = New System.Drawing.Size(520, 377)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.Panel2)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Menu = Me.MainMenu1
        Me.Name = "Form1"
        Me.Text = "Flash Player"
        Me.Panel1.ResumeLayout(False)
        CType(Me.AxShockwaveFlash1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel2.ResumeLayout(False)
        Me.Panel4.ResumeLayout(False)
        Me.Panel3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        OpenFileDialog2.Multiselect = True

        Me.OpenFileDialog2.Filter = "SWF (*.swf)|*.swf| GIF (*.gif)|*.gif"
        Me.OpenFileDialog2.ShowDialog()

        file_sum = Me.OpenFileDialog2.FileNames.GetLength(0)
        Dim j As Integer
        For j = 0 To Me.ListBox1.Items.Count
            Me.ListBox1.Items.Remove(j)
        Next
        Dim i As Integer = 0
        For i = 0 To Me.OpenFileDialog2.FileNames.GetLength(0) - 1
            Me.ListBox1.Items.Add(Me.OpenFileDialog2.FileNames(i))
        Next
        Me.OpenFileDialog2.OpenFile()
        Me.ListBox1.SelectedIndex = 0
        Me.AxShockwaveFlash1.Movie = Me.ListBox1.SelectedItem
        Me.AxShockwaveFlash1.Play()

    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        OpenFileDialog1.Multiselect = True

        Me.OpenFileDialog1.Filter = "SWF (*.swf)|*.swf| GIF (*.gif)|*.gif"
        Me.OpenFileDialog1.ShowDialog()

        file_sum += Me.OpenFileDialog1.FileNames.GetLength(0)
        Dim i As Integer = 0
        For i = 0 To Me.OpenFileDialog1.FileNames.GetLength(0) - 1
            Me.ListBox1.Items.Add(Me.OpenFileDialog1.FileNames(i))
        Next
        Me.OpenFileDialog1.OpenFile()
        Me.ListBox1.SelectedIndex = 0
        Me.AxShockwaveFlash1.Movie = Me.ListBox1.SelectedItem
        Me.AxShockwaveFlash1.Play()
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        Dim sel_num As Integer = Me.ListBox1.SelectedIndices(0)
        Me.ListBox1.Items.RemoveAt(sel_num)
        file_sum -= 1
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        If Me.ListBox1.SelectedIndex = 0 Then
            MsgBox("对不起，已经到达最上层", MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "提示出错")
        Else
            Me.ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex - 1
            Me.AxShockwaveFlash1.Movie = Me.ListBox1.SelectedItem
            Me.AxShockwaveFlash1.Play()
        End If
    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        If Me.ListBox1.SelectedIndex = file_sum - 1 Then
            MsgBox("对不起，已经到达最下层", MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "提示出错")
        Else
            Me.ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex + 1
            Me.AxShockwaveFlash1.Movie = Me.ListBox1.SelectedItem
            Me.AxShockwaveFlash1.Play()
        End If
    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        Dim cur_index As Integer = Me.ListBox1.SelectedIndex
        If cur_index = 0 Then
            MsgBox("对不起，已经到达最上层", MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "提示出错")
        Else
            Dim temp As String = Me.ListBox1.SelectedItem
            Me.ListBox1.Items.RemoveAt(cur_index)
            Me.ListBox1.Items.Insert(cur_index - 1, temp)
            Me.ListBox1.SelectedIndex = cur_index - 1
        End If
    End Sub

    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        Dim cur_index As Integer = Me.ListBox1.SelectedIndex
        If cur_index = file_sum - 1 Then
            MsgBox("对不起，已经到达最下层", MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "提示出错")
        Else
            Dim temp As String = Me.ListBox1.SelectedItem
            Me.ListBox1.Items.RemoveAt(cur_index)
            Me.ListBox1.Items.Insert(cur_index + 1, temp)
            Me.ListBox1.SelectedIndex = cur_index + 1
        End If
    End Sub

    Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        Dim plyfile As String
        plyfile = Me.ListBox1.SelectedItem
        Me.AxShockwaveFlash1.Movie = plyfile
        Me.AxShockwaveFlash1.Play()
    End Sub

    Private Sub MenuItem24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem24.Click
        End
    End Sub

    Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
        Me.AxShockwaveFlash1.ScaleMode = 0
    End Sub

    Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click
        Me.AxShockwaveFlash1.ScaleMode = 1
    End Sub

    Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
        Me.AxShockwaveFlash1.ScaleMode = 2
    End Sub

    Private Sub MenuItem19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem19.Click
        Me.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        Me.AxShockwaveFlash1.Quality2 = "low"
    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        Me.AxShockwaveFlash1.Quality2 = "high"
    End Sub

    Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
        Me.AxShockwaveFlash1.Quality2 = "antolow"
    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
        Me.AxShockwaveFlash1.Quality2 = "antohigh"
    End Sub

    Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem21.Click
        Me.AxShockwaveFlash1.Loop = False
        Me.MenuItem21.RadioCheck = True
        Me.MenuItem22.RadioCheck = False
        Me.MenuItem23.RadioCheck = False
    End Sub

    Private Sub MenuItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem22.Click
        Me.AxShockwaveFlash1.Loop = True
        Me.MenuItem21.RadioCheck = False
        Me.MenuItem22.RadioCheck = True
        Me.MenuItem23.RadioCheck = False
    End Sub

    Private Sub MenuItem23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem23.Click
        Me.AxShockwaveFlash1.Loop = False
        Me.MenuItem21.RadioCheck = False
        Me.MenuItem22.RadioCheck = False
        Me.MenuItem23.RadioCheck = True
    End Sub

    Private Sub MenuItem25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem25.Click
        If Me.AxShockwaveFlash1.Playing = True Then
            Me.AxShockwaveFlash1.Playing = False
        Else
            Me.AxShockwaveFlash1.Playing = True
        End If
    End Sub

    Private Sub MenuItem26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem26.Click
        Me.WindowState = FormWindowState.Normal
    End Sub

    Private Sub MenuItem27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem27.Click
        Me.AxShockwaveFlash1.ScaleMode = 0
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Me.ListBox1.SelectedIndex = 0 Then
            MsgBox("对不起，已经到达最上层", MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "提示出错")
        Else
            Me.ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex - 1
            Me.AxShockwaveFlash1.Movie = Me.ListBox1.SelectedItem
            Me.AxShockwaveFlash1.Play()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Me.ListBox1.SelectedIndex = file_sum - 1 Then
            MsgBox("对不起，已经到达最下层", MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "提示出错")
        Else
            Me.ListBox1.SelectedIndex = Me.ListBox1.SelectedIndex + 1
            Me.AxShockwaveFlash1.Movie = Me.ListBox1.SelectedItem
            Me.AxShockwaveFlash1.Play()
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Me.AxShockwaveFlash1.Playing = True Then
            Me.AxShockwaveFlash1.Playing = False
        Else
            Me.AxShockwaveFlash1.Playing = True
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case (Me.ComboBox1.SelectedIndex)
            Case 0
                Me.AxShockwaveFlash1.Loop = False
            Case 1
                Me.AxShockwaveFlash1.Loop = True
            Case 2
                Me.AxShockwaveFlash1.Loop = False
        End Select
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ComboBox1.SelectedItem = 2
    End Sub
End Class