'******************************
'奔腾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