📄 form2.frm
字号:
VERSION 5.00
Begin VB.Form Form2
BackColor = &H00FF8080&
BorderStyle = 0 'None
Caption = "SimplePlayer 1.0 "
ClientHeight = 3495
ClientLeft = 2085
ClientTop = 2325
ClientWidth = 8100
FillColor = &H00FFFFFF&
ForeColor = &H8000000D&
Icon = "Form2.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
MousePointer = 99 'Custom
ScaleHeight = 3495
ScaleWidth = 8100
ShowInTaskbar = 0 'False
Visible = 0 'False
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 100
Left = 960
Top = 1020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Http://OpenPlayer.51.net"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 255
Left = 2610
MouseIcon = "Form2.frx":08CA
MousePointer = 99 'Custom
TabIndex = 1
ToolTipText = "欢迎光临SuperPlayer主页，下载最新版的SuperPlayer或Flash动画"
Top = 2880
Width = 2655
End
Begin VB.Shape Shape1
BorderColor = &H00000000&
BorderStyle = 6 'Inside Solid
Height = 285
Index = 2
Left = 210
Shape = 3 'Circle
Top = 2700
Width = 285
End
Begin VB.Label Mail
BackColor = &H00EE9BBC&
BackStyle = 0 'Transparent
Caption = "Email:yztink@163.com"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 285
Left = 2910
MouseIcon = "Form2.frx":0BD4
MousePointer = 99 'Custom
TabIndex = 0
ToolTipText = "写信给我：yztink@163.com"
Top = 3150
Width = 2175
End
Begin VB.Line Line1
BorderColor = &H000080FF&
BorderWidth = 2
X1 = 480
X2 = 480
Y1 = 1020
Y2 = 3240
End
Begin VB.Line Line2
BorderColor = &H000080FF&
X1 = 90
X2 = 7410
Y1 = 2820
Y2 = 2820
End
Begin VB.Shape Shape1
BorderColor = &H00000000&
BorderStyle = 6 'Inside Solid
Height = 585
Index = 0
Left = 180
Shape = 3 'Circle
Top = 2550
Width = 585
End
Begin VB.Menu popup
Caption = "popup"
NegotiatePosition= 1 'Left
Visible = 0 'False
Begin VB.Menu jd
Caption = "进度："
Begin VB.Menu total
Caption = "共？帧"
Enabled = 0 'False
End
Begin VB.Menu speed
Caption = "速度"
Enabled = 0 'False
End
Begin VB.Menu played
Caption = "已播放："
Enabled = 0 'False
End
End
Begin VB.Menu ZoomIn
Caption = "放大(&Z)"
End
Begin VB.Menu ZoomOut
Caption = "缩小"
End
Begin VB.Menu ShowAll
Caption = "显示全部(&A)"
End
Begin VB.Menu FullScreen
Caption = "全屏(&F)"
End
Begin VB.Menu onTop
Caption = "总在最前面(&T)"
End
Begin VB.Menu MEnabelMove1
Caption = "鼠标按下移动窗体(&M)"
Checked = -1 'True
End
Begin VB.Menu s7
Caption = "-"
End
Begin VB.Menu Ctrl
Caption = "控制"
Begin VB.Menu Loop1
Caption = "循环(&L)"
Checked = -1 'True
End
Begin VB.Menu play
Caption = "播放(&P)"
End
Begin VB.Menu Rewind
Caption = "重置(&R)"
End
Begin VB.Menu f
Caption = "下一帧(&F)"
End
Begin VB.Menu b
Caption = "上一帧(B)"
End
Begin VB.Menu MEnabelMove
Caption = "鼠标按下移动窗体(&M)"
Checked = -1 'True
End
End
Begin VB.Menu s1
Caption = "-"
End
Begin VB.Menu F4
Caption = "质量"
Begin VB.Menu FF1
Caption = "低(&L)"
End
Begin VB.Menu FF2
Caption = "媒体(&M)"
End
Begin VB.Menu FF3
Caption = "高(&H)"
Checked = -1 'True
End
End
Begin VB.Menu s2
Caption = "-"
End
Begin VB.Menu file
Caption = "文件"
Begin VB.Menu Open
Caption = "打开(&O)"
End
Begin VB.Menu ReturnPlay
Caption = "(C)Copyright 小鱼儿工作室"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu CreateSwf
Caption = "还原出SWF文件(&S)..."
End
End
Begin VB.Menu s6
Caption = "-"
End
Begin VB.Menu SuperPlayer
Caption = "&OpenPlayer"
Enabled = 0 'False
End
Begin VB.Menu AboutFlash
Caption = "关于Flash &Movie..."
End
Begin VB.Menu About
Caption = "关于&SuperPlayer..."
End
Begin VB.Menu Exit
Caption = "走人(&X)"
End
End
Begin VB.Menu popup3
Caption = "popup3"
Visible = 0 'False
Begin VB.Menu about1
Caption = "关于(&A)"
End
Begin VB.Menu exit1
Caption = "走人(&X)"
End
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'=====================================
'这个Form主要是一个菜单窗口,因为在无边框的窗口无法加入菜单(加入之后就是不无边框了)
'所以用这个窗口中的菜单作为弹出菜单
'另外也作为"关于窗口"
'=====================================
Dim fso As New FileSystemObject '创建文件系数
Dim isShowed As Boolean
Private Sub about_Click()
Form2.Show
End Sub
Private Sub about1_Click()
Form2.Show
End Sub
Private Sub AboutFlash_Click()
Dim strNote As String
Dim tmpStr As String
'每行80个
tmpStr = typeFLASHNOTE.strNote + Space(80)
Do While Len(tmpStr) > 0
strNote = strNote & vbCrLf & Left(tmpStr, 80)
tmpStr = Mid(tmpStr, 81)
Loop
tmpStr = vbNull
MsgBox "名 称：" & typeFLASHNOTE.strMovieName & _
vbCrLf & "作 者：" & typeFLASHNOTE.strAuthor & _
vbCrLf & "发布公司：" & typeFLASHNOTE.strCompany & _
vbCrLf & strNote, vbInformation + vbApplicationModal + vbOKOnly, "关于Flash Movie..." & _
vbCrLf & " "
End Sub
Private Sub b_Click()
Form1.ShockwaveFlash1.Back '后退
End Sub
Private Sub CreateSwf_Click()
'还原出SWF文件,实现上这个文件早就还原出来了,这里只不过是拷贝过去而已
Dim fSwfFileName As String
fSwfFileName = App.Path & IIf(Len(App.Path) > 4, "/", "")
fSwfFileName = ShowSaveDialog(Form1, "Flash Movie", "*.swf;*.spl", "另存为Flash Movie...", fSwfFileName)
If fSwfFileName <> "" Then
fso.CopyFile Filename, fSwfFileName
MsgBox vbCrLf & "已经成功还原出Flash Movie！" & vbCrLf & fSwfFileName & vbCrLf, vbOKOnly, "SuperPlayer 1.0 小鱼儿工作室"
End If
End Sub
Private Sub Exit_Click()
'结束程序,在这里不能直接结束!否则会出现"非法操作"
'这里用一个Timer来结束
Timer1.Enabled = True
End Sub
Private Sub exit1_Click()
On Error Resume Next
UnHook
If bEXE And UCase(Right(Filename, 4)) <> ".SWF" Then
If fso.FileExists(Filename) Then
fso.DeleteFile (Filename)
End If
End If
Set fso = Nothing
TerminateProcess GetCurrentProcessId, 0
End
End Sub
Private Sub f_Click()
Form1.ShockwaveFlash1.Forward
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -