奔腾Flash Player source code

类别:.NET开发 点击:0 评论:0 推荐:

'******************************
'奔腾Flash Player

'全部代码包括3个FORM
'author:wgscd(自由奔腾)
'date:2005-3
'QQ:153964481
'说明:由于最后调试的代码丢了,可能form1的code有BUG
'再就是此Application用到了许多picture,你将不能直接将代码贴到IDE里期望会有漂亮的界面出现
'******************************
Imports System.IO
Imports System.Net
Public Module publicVar

    Public exitfullScr As Boolean = False

    'Public FramNums As Integer


End Module

Public Class Form1
    Inherits System.Windows.Forms.Form

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

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。

    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Timer1 As System.Windows.Forms.Timer
    Friend WithEvents TrackBar1 As System.Windows.Forms.TrackBar
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem
    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Flashp As AxShockwaveFlashObjects.AxShockwaveFlash
    Friend WithEvents Flash As AxShockwaveFlashObjects.AxShockwaveFlash
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents MenuItem14 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem15 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem16 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem17 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem18 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem21 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem22 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem23 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem24 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem25 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem26 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem28 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem29 As System.Windows.Forms.MenuItem
    Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem30 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem31 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem32 As System.Windows.Forms.MenuItem
    Friend WithEvents Timer2 As System.Windows.Forms.Timer
    Friend WithEvents MenuItem33 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem34 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem35 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem36 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem37 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem38 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem39 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents Timer3 As System.Windows.Forms.Timer
    Friend WithEvents MenuItem40 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem42 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem41 As System.Windows.Forms.MenuItem
    Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
    Friend WithEvents MenuItem20 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem19 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem27 As System.Windows.Forms.MenuItem
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label8 As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType

(Form1))
        Me.Button1 = New System.Windows.Forms.Button
        Me.Button2 = New System.Windows.Forms.Button
        Me.Label1 = New System.Windows.Forms.Label
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
        Me.TrackBar1 = New System.Windows.Forms.TrackBar
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.MenuItem6 = New System.Windows.Forms.MenuItem
        Me.MenuItem29 = New System.Windows.Forms.MenuItem
        Me.MenuItem19 = New System.Windows.Forms.MenuItem
        Me.MenuItem3 = New System.Windows.Forms.MenuItem
        Me.MenuItem4 = New System.Windows.Forms.MenuItem
        Me.MenuItem42 = New System.Windows.Forms.MenuItem
        Me.MenuItem5 = New System.Windows.Forms.MenuItem
        Me.MenuItem7 = New System.Windows.Forms.MenuItem
        Me.MenuItem8 = New System.Windows.Forms.MenuItem
        Me.MenuItem33 = New System.Windows.Forms.MenuItem
        Me.MenuItem34 = New System.Windows.Forms.MenuItem
        Me.MenuItem41 = New System.Windows.Forms.MenuItem
        Me.MenuItem35 = New System.Windows.Forms.MenuItem
        Me.MenuItem15 = New System.Windows.Forms.MenuItem
        Me.MenuItem9 = New System.Windows.Forms.MenuItem
        Me.MenuItem11 = New System.Windows.Forms.MenuItem
        Me.MenuItem12 = New System.Windows.Forms.MenuItem
        Me.MenuItem10 = New System.Windows.Forms.MenuItem
        Me.MenuItem13 = New System.Windows.Forms.MenuItem
        Me.MenuItem14 = New System.Windows.Forms.MenuItem
        Me.MenuItem16 = New System.Windows.Forms.MenuItem
        Me.MenuItem18 = New System.Windows.Forms.MenuItem
        Me.MenuItem17 = New System.Windows.Forms.MenuItem
        Me.MenuItem20 = New System.Windows.Forms.MenuItem
        Me.MenuItem21 = New System.Windows.Forms.MenuItem
        Me.MenuItem22 = New System.Windows.Forms.MenuItem
        Me.MenuItem23 = New System.Windows.Forms.MenuItem
        Me.MenuItem25 = New System.Windows.Forms.MenuItem
        Me.MenuItem26 = New System.Windows.Forms.MenuItem
        Me.MenuItem28 = New System.Windows.Forms.MenuItem
        Me.MenuItem39 = New System.Windows.Forms.MenuItem
        Me.MenuItem24 = New System.Windows.Forms.MenuItem
        Me.MenuItem27 = New System.Windows.Forms.MenuItem
        Me.ListBox1 = New System.Windows.Forms.ListBox
        Me.ContextMenu2 = New System.Windows.Forms.ContextMenu
        Me.MenuItem30 = New System.Windows.Forms.MenuItem
        Me.MenuItem31 = New System.Windows.Forms.MenuItem
        Me.MenuItem40 = New System.Windows.Forms.MenuItem
        Me.MenuItem32 = New System.Windows.Forms.MenuItem
        Me.MenuItem36 = New System.Windows.Forms.MenuItem
        Me.MenuItem37 = New System.Windows.Forms.MenuItem
        Me.MenuItem38 = New System.Windows.Forms.MenuItem
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.Label4 = New System.Windows.Forms.Label
        Me.Flashp = New AxShockwaveFlashObjects.AxShockwaveFlash
        Me.Flash = New AxShockwaveFlashObjects.AxShockwaveFlash
        Me.Label5 = New System.Windows.Forms.Label
        Me.PictureBox1 = New System.Windows.Forms.PictureBox
        Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
        Me.Timer3 = New System.Windows.Forms.Timer(Me.components)
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        Me.Label6 = New System.Windows.Forms.Label
        Me.Label7 = New System.Windows.Forms.Label
        Me.Label8 = New System.Windows.Forms.Label
        CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Flashp, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Flash, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
        Me.Button1.Location = New System.Drawing.Point(424, 24)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(56, 23)
        Me.Button1.TabIndex = 14
        Me.ToolTip1.SetToolTip(Me.Button1, "打开单个文件")
        '
        'Button2
        '
        Me.Button2.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
        Me.Button2.Location = New System.Drawing.Point(488, 24)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(56, 23)
        Me.Button2.TabIndex = 15
        Me.ToolTip1.SetToolTip(Me.Button2, "浏览文件夹,该文件夹下的所有以SWF结尾的文件都将添加进列表里")
        '
        'Label1
        '
        Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(0,

Byte))
        Me.Label1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular,

System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(192, Byte), CType(192,

Byte))
        Me.Label1.Location = New System.Drawing.Point(120, 312)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(152, 16)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "自由奔腾(wgscd)"
        Me.ToolTip1.SetToolTip(Me.Label1, "当前播放的Flash")
        '
        'Timer1
        '
        Me.Timer1.Interval = 50
        '
        'TrackBar1
        '
        Me.TrackBar1.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192,

Byte))
        Me.TrackBar1.ContextMenu = Me.ContextMenu1
        Me.TrackBar1.Location = New System.Drawing.Point(0, 336)
        Me.TrackBar1.Maximum = 33333
        Me.TrackBar1.Name = "TrackBar1"
        Me.TrackBar1.Size = New System.Drawing.Size(384, 45)
        Me.TrackBar1.TabIndex = 4
        Me.ToolTip1.SetToolTip(Me.TrackBar1, "时间帧,可拖动")
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1,

Me.MenuItem2, Me.MenuItem6, Me.MenuItem29, Me.MenuItem19, Me.MenuItem3, Me.MenuItem4, Me.MenuItem42,

Me.MenuItem5, Me.MenuItem15, Me.MenuItem9, Me.MenuItem14, Me.MenuItem16, Me.MenuItem18, Me.MenuItem17,

Me.MenuItem20, Me.MenuItem21, Me.MenuItem22, Me.MenuItem23, Me.MenuItem25, Me.MenuItem39, Me.MenuItem24,

Me.MenuItem27})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.Shortcut = System.Windows.Forms.Shortcut.CtrlO
        Me.MenuItem1.Text = "打开单个文件"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 1
        Me.MenuItem2.Text = "打开文件夹"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 2
        Me.MenuItem6.Text = "打开URL"
        '
        'MenuItem29
        '
        Me.MenuItem29.Index = 3
        Me.MenuItem29.Text = "-"
        '
        'MenuItem19
        '
        Me.MenuItem19.Index = 4
        Me.MenuItem19.Text = "搜索IE缓存"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 5
        Me.MenuItem3.Text = "-"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 6
        Me.MenuItem4.Text = "总在最前"
        '
        'MenuItem42
        '
        Me.MenuItem42.Index = 7
        Me.MenuItem42.Text = "改背景为图片"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 8
        Me.MenuItem5.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem7, Me.MenuItem8,

Me.MenuItem33, Me.MenuItem34, Me.MenuItem41, Me.MenuItem35})
        Me.MenuItem5.Text = "更改时帧条颜色"
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 0
        Me.MenuItem7.Text = "红"
        '
        'MenuItem8
        '
        Me.MenuItem8.Index = 1
        Me.MenuItem8.Text = "绿"
        '
        'MenuItem33
        '
        Me.MenuItem33.Index = 2
        Me.MenuItem33.Text = "蓝"
        '
        'MenuItem34
        '
        Me.MenuItem34.Index = 3
        Me.MenuItem34.Text = "紫"
        '
        'MenuItem41
        '
        Me.MenuItem41.Index = 4
        Me.MenuItem41.Text = "随机"
        '
        'MenuItem35
        '
        Me.MenuItem35.Index = 5
        Me.MenuItem35.Text = "自定义"
        '
        'MenuItem15
        '
        Me.MenuItem15.Index = 9
        Me.MenuItem15.Text = "-"
        '
        'MenuItem9
        '
        Me.MenuItem9.Index = 10
        Me.MenuItem9.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem11, Me.MenuItem12,

Me.MenuItem10, Me.MenuItem13})
        Me.MenuItem9.Text = "窗体透明"
        '
        'MenuItem11
        '
        Me.MenuItem11.Index = 0
        Me.MenuItem11.Text = "30%"
        '
        'MenuItem12
        '
        Me.MenuItem12.Index = 1
        Me.MenuItem12.Text = "60%"
        '
        'MenuItem10
        '
        Me.MenuItem10.Index = 2
        Me.MenuItem10.Text = "100%"
        '
        'MenuItem13
        '
        Me.MenuItem13.Index = 3
        Me.MenuItem13.Text = "自定义"
        '
        'MenuItem14
        '
        Me.MenuItem14.Index = 11
        Me.MenuItem14.Text = "动画循环放"
        '
        'MenuItem16
        '
        Me.MenuItem16.Index = 12
        Me.MenuItem16.Text = "列表循环"
        '
        'MenuItem18
        '
        Me.MenuItem18.Index = 13
        Me.MenuItem18.Text = "-"
        '
        'MenuItem17
        '
        Me.MenuItem17.Index = 14
        Me.MenuItem17.Text = "播放"
        '
        'MenuItem20
        '
        Me.MenuItem20.Index = 15
        Me.MenuItem20.Text = "下一曲"
        '
        'MenuItem21
        '
        Me.MenuItem21.Index = 16
        Me.MenuItem21.Text = "指定到帧"
        '
        'MenuItem22
        '
        Me.MenuItem22.Index = 17
        Me.MenuItem22.Text = "重新开始"
        '
        'MenuItem23
        '
        Me.MenuItem23.Index = 18
        Me.MenuItem23.Text = "-"
        '
        'MenuItem25
        '
        Me.MenuItem25.Index = 19
        Me.MenuItem25.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem26,

Me.MenuItem28})
        Me.MenuItem25.Text = "质量"
        '
        'MenuItem26
        '
        Me.MenuItem26.Index = 0
        Me.MenuItem26.Text = "高"
        '
        'MenuItem28
        '
        Me.MenuItem28.Index = 1
        Me.MenuItem28.Text = "低"
        '
        'MenuItem39
        '
        Me.MenuItem39.Index = 20
        Me.MenuItem39.Text = "全屏幕"
        '
        'MenuItem24
        '
        Me.MenuItem24.Index = 21
        Me.MenuItem24.Text = "关于"
        '
        'MenuItem27
        '
        Me.MenuItem27.Index = 22
        Me.MenuItem27.Text = "退出(&Exit)"
        '
        'ListBox1
        '
        Me.ListBox1.ContextMenu = Me.ContextMenu2
        Me.ListBox1.HorizontalScrollbar = True
        Me.ListBox1.ItemHeight = 12
        Me.ListBox1.Location = New System.Drawing.Point(424, 56)
        Me.ListBox1.Name = "ListBox1"
        Me.ListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiExtended
        Me.ListBox1.Size = New System.Drawing.Size(120, 160)
        Me.ListBox1.TabIndex = 5
        Me.ToolTip1.SetToolTip(Me.ListBox1, "Flash列表")
        '
        'ContextMenu2
        '
        Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem30,

Me.MenuItem31, Me.MenuItem40, Me.MenuItem32, Me.MenuItem36, Me.MenuItem37, Me.MenuItem38})
        '
        'MenuItem30
        '
        Me.MenuItem30.Index = 0
        Me.MenuItem30.Text = "清除列表"
        '
        'MenuItem31
        '
        Me.MenuItem31.Index = 1
        Me.MenuItem31.Text = "清除选中项"
        '
        'MenuItem40
        '
        Me.MenuItem40.Index = 2
        Me.MenuItem40.Text = "项另存为"
        '
        'MenuItem32
        '
        Me.MenuItem32.Index = 3
        Me.MenuItem32.Text = "动画另存为"
        '
        'MenuItem36
        '
        Me.MenuItem36.Index = 4
        Me.MenuItem36.Text = "-"
        '
        'MenuItem37
        '
        Me.MenuItem37.Index = 5
        Me.MenuItem37.Text = "改变列表背景色"
        '
        'MenuItem38
        '
        Me.MenuItem38.Index = 6
        Me.MenuItem38.Text = "改变列表文字颜色"
        '
        'Label2
        '
        Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(0,

Byte))
        Me.Label2.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Label2.Font = New System.Drawing.Font("华文中宋", 8.999999!, System.Drawing.FontStyle.Bold,

System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224,

Byte))
        Me.Label2.Image = CType(resources.GetObject("Label2.Image"), System.Drawing.Image)
        Me.Label2.Location = New System.Drawing.Point(8, 312)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(40, 16)
        Me.Label2.TabIndex = 7
        Me.ToolTip1.SetToolTip(Me.Label2, "播放")
        '
        'Label3
        '
        Me.Label3.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(0,

Byte))
        Me.Label3.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Label3.Font = New System.Drawing.Font("宋体", 14.25!, System.Drawing.FontStyle.Bold,

System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224,

Byte))
        Me.Label3.Image = CType(resources.GetObject("Label3.Image"), System.Drawing.Image)
        Me.Label3.Location = New System.Drawing.Point(64, 312)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(40, 16)
        Me.Label3.TabIndex = 8
        Me.ToolTip1.SetToolTip(Me.Label3, "暂停")
        '
        'Label4
        '
        Me.Label4.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(255,

Byte))
        Me.Label4.Location = New System.Drawing.Point(296, 312)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(64, 16)
        Me.Label4.TabIndex = 9
        Me.ToolTip1.SetToolTip(Me.Label4, "帧数")
        '
        'Flashp
        '
        Me.Flashp.Enabled = True
        Me.Flashp.Location = New System.Drawing.Point(424, 256)
        Me.Flashp.Name = "Flashp"
        Me.Flashp.OcxState = CType(resources.GetObject("Flashp.OcxState"),

System.Windows.Forms.AxHost.State)
        Me.Flashp.Size = New System.Drawing.Size(120, 88)
        Me.Flashp.TabIndex = 10
        Me.ToolTip1.SetToolTip(Me.Flashp, "预览")
        '
        'Flash
        '
        Me.Flash.Enabled = True
        Me.Flash.Location = New System.Drawing.Point(8, 24)
        Me.Flash.Name = "Flash"
        Me.Flash.OcxState = CType(resources.GetObject("Flash.OcxState"),

System.Windows.Forms.AxHost.State)
        Me.Flash.Size = New System.Drawing.Size(376, 272)
        Me.Flash.TabIndex = 11
        '
        'Label5
        '
        Me.Label5.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(0,

Byte))
        Me.Label5.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Label5.Image = CType(resources.GetObject("Label5.Image"), System.Drawing.Image)
        Me.Label5.Location = New System.Drawing.Point(368, 312)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(16, 16)
        Me.Label5.TabIndex = 12
        Me.Label5.Text = " 1"
        Me.ToolTip1.SetToolTip(Me.Label5, "折叠列表栏")
        '
        'PictureBox1
        '
        Me.PictureBox1.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(224, Byte),

CType(192, Byte))
        Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
        Me.PictureBox1.Location = New System.Drawing.Point(424, 224)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(120, 24)
        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox1.TabIndex = 13
        Me.PictureBox1.TabStop = False
        Me.ToolTip1.SetToolTip(Me.PictureBox1, "单击可更改图片")
        '
        'Timer2
        '
        Me.Timer2.Interval = 10
        '
        'Timer3
        '
        '
        'Label6
        '
        Me.Label6.Image = CType(resources.GetObject("Label6.Image"), System.Drawing.Image)
        Me.Label6.Location = New System.Drawing.Point(376, 8)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(16, 8)
        Me.Label6.TabIndex = 16
        '
        'Label7
        '
        Me.Label7.Image = CType(resources.GetObject("Label7.Image"), System.Drawing.Image)
        Me.Label7.Location = New System.Drawing.Point(352, 8)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(16, 8)
        Me.Label7.TabIndex = 17
        '
        'Label8
        '
        Me.Label8.Image = CType(resources.GetObject("Label8.Image"), System.Drawing.Image)
        Me.Label8.Location = New System.Drawing.Point(328, 8)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(16, 8)
        Me.Label8.TabIndex = 18
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(552, 360)
        Me.ContextMenu = Me.ContextMenu1
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Flash)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.PictureBox1)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Flashp)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.ListBox1)
        Me.Controls.Add(Me.TrackBar1)
        Me.Controls.Add(Me.Label1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "Form1"
        CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Flashp, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Flash, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim strad As String = "skill/ad.gif"
    Dim fbd As New FolderBrowserDialog
    Dim ofd As New OpenFileDialog
    Dim path As String = Application.StartupPath

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

Timer1.Tick
        Try
            Me.Label4.Text = Flash.FrameNum & "/" & Flash.TotalFrames

            Me.TrackBar1.Value = Flash.FrameNum

        Catch ex As Exception

        End Try


    End Sub
    Private mouse_offset As Point
    Private Sub form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles MyBase.MouseDown
        mouse_offset = New Point(e.X, e.Y)
    End Sub

    Private Sub form1_MouseMove(ByVal Sender As System.Object, ByVal e As

System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        '按住鼠标左右键均可拖动窗体
        If e.Button = MouseButtons.Left Or e.Button = MouseButtons.Right Then
            Dim mousePos As Point = Sender.findform().MousePosition
            '获得鼠标偏移量
            mousePos.Offset(-mouse_offset.X, -mouse_offset.Y)
            '设置窗体随鼠标一起移动
            Sender.findform().Location = mousePos
        End If
    End Sub


#Region " formLoad"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '.......列表循环(默认)

        MenuItem16.Checked = True
        bollooplst = True
        Flash.Loop = False
        '.........................

        ' Me.MaximizedBounds = New Rectangle(22, 22, 526, 355)

        Me.Text = "奔腾 Flash Player 1.0"
        Try
            'picturebox
            strad = GetSetting("FlashPlayer", "ad", "strad", strad) '加载图片的路径
            Me.PictureBox1.Image = Image.FromFile(strad) '加载图片

            'ICO
            ' Dim myico As New Icon("skill/myico.ico")
            ' Me.Icon = myico


            '===========加载皮肤==========================================

            ' from
            ' Me.BackgroundImage = Image.FromFile("skill\formbg.bmp")

            'label
            ' Me.Label2.BackgroundImage = Image.FromFile("skill\play.bmp")
            ' Me.Label3.BackgroundImage = Image.FromFile("skill\pause.bmp")
            ' Me.Label1.BackgroundImage = Image.FromFile("skill\title.bmp")
            ' Me.Label4.BackgroundImage = Image.FromFile("skill\framcount.bmp")
            ' Me.Label5.BackgroundImage = Image.FromFile("skill\openlist.bmp")
            'button
            ' Me.Button1.BackgroundImage = Image.FromFile("skill\openfile.bmp")
            ' Me.Label2.BackgroundImage = Image.FromFile("skill\opendir.bmp")

            '=================================================================

            path = GetSetting("FlashPlayer", "Movie", "Path", path)
            Dim file As FileInfo
            Dim dir As New DirectoryInfo(path)
            For Each file In dir.GetFiles()

                If file.FullName Like "*.swf" Then
                    Dim str As String = file.FullName

                    Me.ListBox1.Items.Add(str.Substring(str.LastIndexOf("\") + 1, str.LastIndexOf(".swf")

- str.LastIndexOf("\") - 1))

                End If

            Next

            Flash.Movie = path & "\" & Me.ListBox1.Items.Item(0) & ".swf"

            Flash.Play()
            sltcount = 0

        Catch ex As Exception

            MsgBox("皮肤文件加载错误")

        End Try

    End Sub

#End Region


#Region "TrackBar1_Scroll"

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

TrackBar1.Scroll
        Flash.GotoFrame(Me.TrackBar1.Value - 1)

        Flash.Play()

    End Sub
#End Region

#Region " Me.BackColor = Color.Green"


    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem8.Click


    End Sub
#End Region
    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem12.Click
        Me.Opacity = 0.6
    End Sub

    Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem13.Click

        Me.Opacity = Val(InputBox("设置透明度(0.0 - 1.0)", "自由奔腾(wgscd)", 0.8))

    End Sub

    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem10.Click
        Me.Opacity = 1.0

    End Sub

    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem11.Click
        Me.Opacity = 0.3
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem4.Click
        If MenuItem4.Checked = False Then
            MenuItem4.Checked = True
            Me.TopMost = True
        Else : MenuItem4.Checked = False
            Me.TopMost = False
        End If
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem5.Click

    End Sub

    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)

Handles MyBase.Closing
        SaveSetting("FlashPlayer", "Movie", "Path", path)
        SaveSetting("FlashPlayer", "ad", "strad", strad)
        SaveSetting("FlashPlayer", "ad", "strad", strad)
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles ListBox1.SelectedIndexChanged


        Dim str As String = Me.ListBox1.SelectedItem

        If str.IndexOfAny("\") >= 0 Then

            Try
                Flashp.Movie = Me.ListBox1.SelectedItem
                Flashp.Stop()

            Catch ex As Exception

            End Try

        Else
            Flashp.Movie = path & "\" & ListBox1.SelectedItem & ".swf"


            Flashp.Stop()
        End If
    End Sub
    Dim sltcount As Integer = 0 '保存当前选择的项的index
    Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles

ListBox1.DoubleClick
        sltcount = CInt(Me.ListBox1.SelectedIndex) '保存当前选择的项的index
        Dim str As String = Me.ListBox1.SelectedItem

        If str.IndexOfAny("\") < 0 Then

            Flash.Movie = path & "\" & Me.ListBox1.SelectedItem & ".swf"
            Try

                Me.TrackBar1.Maximum = Flash.TotalFrames

            Catch ex As Exception

            End Try
            Me.Label1.Text = Me.ListBox1.SelectedItem
            Timer1.Enabled = True

            Flash.Play()


        Else : Flash.Movie = Me.ListBox1.SelectedItem

            Flash.Play()

        End If
    End Sub


    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Label5.Click
        If Me.Width > Me.ListBox1.Left + Me.ListBox1.Width + 5 Then

            '
            ' Me.Width = Me.ListBox1.Left + Me.ListBox1.Width + 5

            ' Me.Height = Me.ListBox1.Left + Me.ListBox1.Width + 5

        End If


        If Label5.Text = " 1" Then

            Label5.Text = ""

        Else
            Label5.Text = " 1"

        End If

        Timer2.Enabled = True

        '  If (Me.Width <> 528) Or Me.Height <> 360 Then
        'Me.Text = Me.Width & "   " & Me.Height
        ' Me.Text = formW
        ' Me.Width = 528
        ' Me.Height = 360

        ' End If
        ' If Me.Width >= Me.Width Then
        ' Me'Width = Me.Width - Me.ListBox1.Width - 8

        ' End If


    End Sub
    Dim clickpuse As Boolean = False
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Label3.Click
        Flash.StopPlay()
        clickpuse = True

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Label2.Click
        Flash.Play()
    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem14.Click
        Flash.Loop = True
        MenuItem16.Checked = False
        bollooplst = False

    End Sub

    Private Sub MenuItem19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem21.Click
        Try


            Dim f As Integer
            f = CInt(Val(InputBox("定位的帧数", "设置")))
            If f < 0 Or f > Flash.TotalFrames Then
                MsgBox("您的输入不正确")

            Else : Flash.GotoFrame(f)

            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub MenuItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem22.Click
        Flash.GotoFrame(1)
        Flash.Play()
    End Sub

    Private Sub MenuItem26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem26.Click
        Flash.Quality = 1

    End Sub

    Private Sub MenuItem28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem28.Click
        Flash.Quality = 0
    End Sub

    Private Sub MenuItem30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem30.Click

        Me.ListBox1.Refresh()
        Me.ListBox1.Items.Clear()

        Me.ListBox1.Refresh()

    End Sub

    Private Sub MenuItem31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem31.Click
        Me.ListBox1.Refresh()
        Try


            Me.ListBox1.Items.Remove(ListBox1.SelectedItem)

        Catch ex As Exception

        End Try

        Me.ListBox1.Refresh()
    End Sub


    Private Sub MenuItem32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem32.Click
        Try

            If Flash.Movie <> "" Then


                Dim file As FileInfo
                Dim sfd As New SaveFileDialog
                sfd.Filter = "FlashW文件|*.swf"
                file = New FileInfo(Flash.Movie)

                Dim str As String = Flash.Movie

                '  sfd.FileName = str.Substring(str.LastIndexOf("/") + 1, str.LastIndexOf(".swf") -

str.LastIndexOf("/") - 1)
                sfd.ShowDialog()

                file.CopyTo(sfd.FileName)


            End If


        Catch ex As Exception

            MsgBox("文件无法保存!")


        End Try


    End Sub


    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

PictureBox1.Click
        ofd.Filter = "gif格式|*.gif|jpg格式|*.jpg|bmp格式|*.bmp"
        ofd.Multiselect = False
        ofd.InitialDirectory = "skill\"


        If ofd.ShowDialog = DialogResult.OK Then

            Me.PictureBox1.Image = Image.FromFile(ofd.FileName)
            'adpath = ofd.FileName.Substring(ofd.FileName.IndexOf(":"), ofd.FileName.IndexOf(":") -

ofd.FileName.LastIndexOf("\") + 1)
            strad = ofd.FileName
        End If
    End Sub

    Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles

PictureBox1.MouseEnter


        With PictureBox1

            .Width = 120
            .Height = 24


        End With

    End Sub

    Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles

PictureBox1.MouseLeave

        With PictureBox1

            .Width = 120
            .Height = 120


        End With
        Flashp.Width = PictureBox1.Width

    End Sub

    Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem17.Click
        Try
            If MenuItem17.Checked = False Then

                MenuItem17.Checked = True
                Flash.Play()
            Else : MenuItem17.Checked = False
                Flash.StopPlay()

            End If
        Catch ex As Exception

        End Try

    End Sub
    Dim f2 As New Form2
    Private Sub MenuItem24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem24.Click
        f2.ShowDialog(Me)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button2.Click
        opendir()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button1.Click


        openfile()


    End Sub

    Private Sub Label2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Label2.MouseDown
        Label2.Top += 1

    End Sub

    Private Sub Label2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Label2.MouseUp
        Label2.Top -= 1
    End Sub

    Private Sub Label3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Label3.MouseDown
        Label3.Top += 1

    End Sub
    Private Sub Label3_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Label3.MouseUp
        Label3.Top -= 1
    End Sub

    Private Sub Label5_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Label5.MouseDown
        Label5.Width += 1
        Label5.Left += 1
    End Sub

    Private Sub Label5_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Label5.MouseUp
        Label5.Width -= 1
        Label5.Left -= 1

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Timer2.Tick
        If Label5.Text = " 1" Then
            Me.Width -= 22
            If Me.Width <= Flash.Width + 22 Then
                Me.Width = Flash.Width + 22
                Timer2.Enabled = False

            End If
        Else
            Me.Width += 22
            If Me.Width >= Me.Flash.Width + Me.ListBox1.Width + 56 Then
                Me.Width = Me.Flash.Width + Me.ListBox1.Width + 56
                Timer2.Enabled = False

            End If


        End If


        'if

    End Sub


    Private Sub MenuItem35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem35.Click
        Dim cd As New ColorDialog
        If cd.ShowDialog = DialogResult.OK Then

            Me.BackColor = cd.Color

        End If

    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem7.Click

        TrackBar1.BackColor = Color.Red


    End Sub

    Private Sub MenuItem33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem33.Click

        TrackBar1.BackColor = Color.Blue


    End Sub

    Private Sub MenuItem34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem34.Click
        Me.TrackBar1.BackColor = Color.Purple

    End Sub

    Private Sub MenuItem37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem37.Click
        Dim cd As New ColorDialog
        If cd.ShowDialog = DialogResult.OK Then

            Me.ListBox1.BackColor = cd.Color

        End If
    End Sub

    Private Sub MenuItem38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem38.Click
        Dim cd As New ColorDialog
        If cd.ShowDialog = DialogResult.OK Then


            ListBox1.ForeColor = cd.Color

            ListBox1.Refresh()
        End If

    End Sub

    Dim urlok As Boolean = False
    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem6.Click
        Try

            Dim url As String
            url = CStr(InputBox("输入有效的FLAS文件地址 " & Chr(10) & Chr(13) & "例如

http://www.sina.com.cn/wgscd.swf", "打开URL", "http://169.254.230.51/w/thedayyouwentaway.swf"))
            If url <> "0" AndAlso url Like "*.swf" Then
                Flash.Movie = url
                Label1.Text = "加载中。。。"

                ' Flash.Play()
                urlok = True
                'Me.TrackBar1.Maximum = Flash.TotalFrames
                Timer3.Enabled = True
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Timer3.Tick
        Try

            If Flash.FrameLoaded(Flash.TotalFrames) = False Then
                Label4.Text = "加载中。"

            Else

                Me.TrackBar1.Maximum = Flash.TotalFrames

                Dim str As String = Flash.Movie

                Label1.Text = str.Substring(str.LastIndexOf("/") + 1, str.LastIndexOf(".swf") -

str.LastIndexOf("/") - 1)

                Flash.Play()
                Timer1.Enabled = True
                Timer3.Enabled = False
            End If

        Catch ex As Exception
            ' MsgBox("播放时出现错误" & ex.Message.ToString)
            'Exit Try
            'Exit Sub
            Timer3.Enabled = False

        End Try
    End Sub


    Private Sub MenuItem40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem40.Click

        If ListBox1.SelectedItem <> "" Then

            Dim file As FileInfo

            Dim sfd As New SaveFileDialog
            sfd.Filter = "FlashW文件|*.swf"
            file = New FileInfo(path & "/" & ListBox1.SelectedItem & ".swf")

            sfd.FileName = ListBox1.SelectedItem

            sfd.ShowDialog()
            file.CopyTo(sfd.FileName)

        Else
            MsgBox("你没有选择要保存的项!")


        End If


    End Sub

#Region "  打开文件夹"

    Sub opendir()

        fbd.SelectedPath = path '初始化路径(从注册表得到)

        If fbd.ShowDialog = DialogResult.OK Then
            Me.ListBox1.Items.Clear() ' 清空列表
            Dim file As FileInfo
            Dim dir As New DirectoryInfo(fbd.SelectedPath)

            For Each file In dir.GetFiles()

                If file.FullName Like "*.swf" Then
                    Dim str As String = file.FullName
                    '================如果列表里文件已经存在
                    ' Dim cl
                    ' Dim i As Integer
                    ' For i = 0 To Me.ListBox1.Items.Count - 1

                    ' If Str.Substring(Str.LastIndexOf("\") + 1, Str.LastIndexOf(".swf") -

Str.LastIndexOf("\") - 1) = CStr(Me.ListBox1.Items(i)) Then

                    ' MsgBox("提示:" & CStr(Me.ListBox1.Items(i)) & "已经在列表中", MsgBoxStyle.OKOnly, "

提示")

                    ' End If

                    '  Next
                    '====================================
                    Me.ListBox1.Items.Add(str.Substring(str.LastIndexOf("\") + 1, str.LastIndexOf(".swf")

- str.LastIndexOf("\") - 1))

                End If

            Next
            path = fbd.SelectedPath '保存文件夹路径以便写入注册表
            ListBox1.Refresh()
        End If

    End Sub

#End Region '


    Private Sub MenuItem42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem42.Click

        ofd.Filter = "jpg格式|*.jpg| gif格式|*.gif|bmp格式|*.bmp"

        If ofd.ShowDialog = DialogResult.OK Then


            Me.BackgroundImage = Image.FromFile(ofd.FileName)

        End If

    End Sub


    Private Sub MenuItem41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem41.Click
        If MenuItem41.Checked = True Then

            MenuItem41.Checked = False
        Else
            MenuItem41.Checked = True
            Me.BackColor = Color.FromArgb(CInt(Rnd(1) * 254 + 1), CInt(Rnd(1) * 254 + 1), CInt(Rnd(1) *

254 + 1))

        End If

    End Sub

    Dim bollooplst As Boolean = True


#Region "MenuItem16_Click列表循环"

    Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem16.Click

        Me.ListBox1.Refresh()

        If MenuItem16.Checked = True Then

            MenuItem16.Checked = False
            bollooplst = False
            Flash.Loop = True
            ' If Flash.Movie Then
            '  Me.ListBox1.Items.Count(
        Else
            MenuItem16.Checked = True
            bollooplst = True
            Flash.Loop = False
        End If
    End Sub
#End Region

#Region "循环列表looplist()"
    Sub looplist()

    End Sub
#End Region

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem2.Click

        opendir()

    End Sub

#Region "TrackBar1_ValueChanged 列表循环"


    Private Sub TrackBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles

TrackBar1.ValueChanged

        If bollooplst = True Then

            If Flash.Playing = False AndAlso Flash.TotalFrames = Flash.FrameNum + 1 Then

                If Me.ListBox1.Items.Count >= sltcount + 1 Then
                    Flash.Movie = path & "\" & Me.ListBox1.Items.Item(sltcount + 1) & ".swf"
                    Flash.Play()
                End If

                If Me.ListBox1.Items.Count = sltcount Then
                    Flash.Movie = path & "\" & Me.ListBox1.Items.Item(0) & ".swf"
                    Flash.Play()
                End If

            End If

        End If

    End Sub
#End Region


    Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Button1.MouseDown
        Button1.Top += 1

    End Sub

    Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Button1.MouseUp
        Button1.Top -= 1
    End Sub

    Private Sub Button2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Button2.MouseDown
        Button2.Top += 1

    End Sub

    Private Sub Button2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Button2.MouseUp
        Button2.Top -= 1
    End Sub

    Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles

MyBase.DoubleClick
        Label6.Visible = False
        Label7.Visible = False
        Label8.Visible = False
        MenuItem39.Text = "退出全屏"
        fullScr()

    End Sub


    Dim isfullscr As Boolean = False
    Dim f3 As New Form3
#Region "fullScr()"

    Sub fullScr()

        Try


            Dim si As SystemInformation
            Dim strScr As Size = si.PrimaryMonitorSize
            Me.Width = strScr.Width
            Me.Height = strScr.Height
            Me.WindowState = FormWindowState.Maximized

            With Flash
                .Width = strScr.Width
                .Height = strScr.Height
                .Top = 0
                .Left = 0

            End With
            f3.ShowDialog(Me)
            exitfull()
        Catch ex As Exception

        End Try
    End Sub
#End Region

    Private Sub MenuItem27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem27.Click
        Flash.Stop()
        Me.Visible = False
        Me.Close()

    End Sub

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem1.Click
        openfile()

    End Sub
    Public Sub openfile()

        ofd.Filter = "Flash Movie|*.swf"

        If ofd.ShowDialog = DialogResult.OK Then
            Flash.Movie = ofd.FileName
            Flash.Play()
            Me.Label1.Text = Flash.Movie.Substring(Flash.Movie.LastIndexOf("\") + 1,

Flash.Movie.LastIndexOf(".swf") - Flash.Movie.LastIndexOf("\") - 1) '截掉多余的路径
            Timer1.Enabled = True
            Me.TrackBar1.Maximum = Flash.TotalFrames
        End If

    End Sub


    Sub exitfull()
        'exitfull()
        With Me
            .Width = 552
            .Height = 360

        End With

        With Flash
            .Width = 376
            .Height = 272
            .Top = 24
            .Left = 8
        End With

        Me.WindowState = FormWindowState.Normal
        Label6.Visible = True
        Label7.Visible = True
        Label8.Visible = True
        MenuItem39.Text = "全屏幕"


    End Sub


    Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem20.Click

        Try
            sltcount += 1

            If Me.ListBox1.Items.Count > sltcount Then
                Flash.Movie = path & "\" & Me.ListBox1.Items.Item(sltcount) & ".swf"
                Flash.Play()
                Me.ListBox1.Refresh()
                ' MsgBox(Me.ListBox1.Items.Count & sltcount)
            Else
                Flash.Movie = path & "\" & Me.ListBox1.Items.Item(0) & ".swf"


                Flash.Play()
                sltcount = 0

            End If
          
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Label8.Click

        Me.WindowState = FormWindowState.Minimized

    End Sub

    Private Sub Label8_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Label8.MouseDown

        Label8.Top += 1


    End Sub

    Private Sub Label8_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Label8.MouseUp

        Label8.Top -= 1
    End Sub


    Private Sub Label7_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Label7.MouseDown

        Label7.Top += 1

    End Sub


    Private Sub Label7_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Label7.MouseUp

        Label7.Top -= 1

    End Sub

    Private Sub Label6_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Label6.MouseDown
        Label6.Top += 1


    End Sub

    Private Sub Label6_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles Label6.MouseUp

        Label6.Top -= 1

    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Label7.Click
        Label6.Visible = False
        Label7.Visible = False
        Label8.Visible = False


        Form1_DoubleClick(sender, e)


    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Label6.Click
        Flash.Stop()
        Me.Visible = False
        Me.Close()


    End Sub
  


    Private Sub MenuItem39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem39.Click
        If MenuItem39.Text = "全屏幕" Then
            MenuItem39.Text = "退出全屏"

            fullScr()

        Else : MenuItem39.Text = "全屏幕"
            fullScr()

            Form2.ActiveForm.Close()
        End If


    End Sub


End Class

'========================form2


Public Class Form2
    Inherits System.Windows.Forms.Form

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

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType

(Form2))
        Me.PictureBox1 = New System.Windows.Forms.PictureBox
        Me.Button1 = New System.Windows.Forms.Button
        Me.RichTextBox1 = New System.Windows.Forms.RichTextBox
        Me.SuspendLayout()
        '
        'PictureBox1
        '
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
        Me.PictureBox1.Location = New System.Drawing.Point(0, 8)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(152, 240)
        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox1.TabIndex = 0
        Me.PictureBox1.TabStop = False
        '
        'Button1
        '
        Me.Button1.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular,

System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button1.Location = New System.Drawing.Point(160, 216)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(192, 32)
        Me.Button1.TabIndex = 1
        Me.Button1.Text = "自由奔腾(wgscd)"
        '
        'RichTextBox1
        '
        Me.RichTextBox1.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte),

CType(224, Byte))
        Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.RichTextBox1.Location = New System.Drawing.Point(160, 8)
        Me.RichTextBox1.Name = "RichTextBox1"
        Me.RichTextBox1.Size = New System.Drawing.Size(192, 200)
        Me.RichTextBox1.TabIndex = 2
        Me.RichTextBox1.Text = "RichTextBox1"
        '
        'Form2
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(360, 253)
        Me.Controls.Add(Me.RichTextBox1)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.PictureBox1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
        Me.Name = "Form2"
        Me.ShowInTaskbar = False
        Me.Text = "关于"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RichTextBox1.Clear()
        Dim str As String = "  谢谢您使用奔腾Flash Plyaer 1.0,本程序由自由奔腾(wgscd)所写!未经本人许可

不得篡改源代码,也不得用于任何商业用途!今天(2005/02/7)早上起来已经下午3点多了,最近老做恶梦,不是大蛇就

是杀人,晕!也没有饭吃,明天就过年了,一个人在宿舍又冷又饿,确实没有什么打发时间的好办法,于是又懒懒地打开

VS.NET 2003 拖几个控件 便做成了这个。嘿嘿,MS的东西就两个字:好使!好在我不是计算机专业的,这个小程序有许

多BUG我解决不了可以脱罪了!不过,你发现了还请您提出来建议改进。或者您有好的想法也可以给我说,先谢了!估计

我自己才看到自己写的 我的 E-mail: [email protected] QQ: 153964481  "

        Me.RichTextBox1.Text = str


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button1.Click

        Me.Close()
    End Sub

End Class

'===================form3

Public Class Form3
    Inherits System.Windows.Forms.Form

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

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents Timer1 As System.Windows.Forms.Timer
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.Text = "退出全屏"
        '
        'Timer1
        '
        '
        'Form3
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(344, 248)
        Me.ContextMenu = Me.ContextMenu1
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.Name = "Form3"
        Me.Opacity = 0
        Me.ShowInTaskbar = False
        Me.Text = "Form3"

    End Sub

#End Region

    Public Sub Form3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles

MyBase.DoubleClick


        Me.Close()

    End Sub


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

        Me.ContextMenu = Nothing

        exitfullScr = True
        Me.Opacity = 0.01
        With Me
            .Width = Form1.ActiveForm.Width
            .Height = Form1.ActiveForm.Height
            .Top = 0
            .Left = 0

        End With

        Me.ContextMenu = Form1.ActiveForm.ContextMenu

      
    End Sub

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MenuItem1.Click


        Me.Close()

    End Sub


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

Timer1.Tick


        If Me.ContextMenu.MenuItems.Item(20).Text = "退出全屏" Then

            Me.Close()
            Timer1.Enabled = False

        End If
    End Sub

    Private Sub Form3_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)

Handles MyBase.Closing


    End Sub

  
End Class


本文地址:http://com.8s8s.com/it/it41302.htm