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

|