📄 form1.frm
字号:
VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{4A9A996A-E365-42A8-B7A5-148A9E118DF8}#1.0#0"; "XPForm.ocx"
Object = "{E3AE1957-12AC-4DB7-8CE4-EB281F9E0359}#1.0#0"; "XPButton.ocx"
Begin VB.Form Frm_1
BackColor = &H00DAE9EC&
BorderStyle = 0 'None
ClientHeight = 9495
ClientLeft = 0
ClientTop = 0
ClientWidth = 12000
Icon = "Form1.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 9490.255
ScaleMode = 0 'User
ScaleWidth = 9090
StartUpPosition = 2 '屏幕中心
Begin MSComDlg.CommonDialog CommonDialog1
Left = 5760
Top = 4500
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Timer Timer2
Interval = 1000
Left = 4620
Top = 4530
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 10
Left = 4770
Top = 5190
End
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1
Height = 8205
Left = 150
TabIndex = 16
Top = 990
Width = 11715
_cx = 20664
_cy = 14473
FlashVars = ""
Movie = ""
Src = ""
WMode = "Window"
Play = -1 'True
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = -1 'True
Base = ""
AllowScriptAccess= "always"
Scale = "ShowAll"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = ""
SWRemote = ""
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 8265
Left = 120
ScaleHeight = 8235
ScaleWidth = 11745
TabIndex = 15
Top = 960
Width = 11775
End
Begin VB.HScrollBar Slider1
Height = 135
Left = 90
Max = 0
TabIndex = 11
Top = 9270
Width = 11805
End
Begin XPButton.Button cmdExit
Height = 300
Left = 5370
TabIndex = 10
Top = 570
Width = 720
_ExtentX = 1270
_ExtentY = 529
caption = "退出"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711935
End
Begin XPButton.Button cmdZoomOut
Height = 300
Left = 4620
TabIndex = 9
Top = 570
Width = 720
_ExtentX = 1270
_ExtentY = 529
caption = "缩小"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711935
End
Begin XPButton.Button cmdZoomIn
Height = 300
Left = 3870
TabIndex = 8
Top = 570
Width = 720
_ExtentX = 1270
_ExtentY = 529
caption = "放大"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711935
End
Begin XPButton.Button cmdNextFrame
Height = 300
Left = 3120
TabIndex = 7
Top = 570
Width = 720
_ExtentX = 1270
_ExtentY = 529
caption = "下一帧"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711935
End
Begin XPButton.Button cmdPreFrame
Height = 300
Left = 2370
TabIndex = 6
Top = 570
Width = 720
_ExtentX = 1270
_ExtentY = 529
caption = "上一帧"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711935
End
Begin XPButton.Button cmdPause
Height = 300
Left = 1620
TabIndex = 5
Top = 570
Width = 720
_ExtentX = 1270
_ExtentY = 529
caption = "暂停"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711935
End
Begin XPButton.Button cmdPlay
Height = 300
Left = 870
TabIndex = 4
Top = 570
Width = 720
_ExtentX = 1270
_ExtentY = 529
caption = "播放"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711935
End
Begin XPButton.Button cmdOpen
Height = 300
Left = 120
TabIndex = 3
Top = 570
Width = 726
_ExtentX = 1270
_ExtentY = 529
caption = "打开"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711935
End
Begin VB.Frame Frame1
BackColor = &H00DAE9EC&
Height = 465
Left = 90
TabIndex = 1
Top = 450
Width = 11835
Begin VB.CheckBox Check1
BackColor = &H00DAE9EC&
Caption = "循环播放"
ForeColor = &H00FF00FF&
Height = 255
Left = 8100
TabIndex = 14
Top = 150
Value = 1 'Checked
Width = 1035
End
Begin VB.OptionButton Option1
BackColor = &H00DAE9EC&
Caption = "低分辨率"
ForeColor = &H00FF00FF&
Height = 255
Index = 1
Left = 7050
TabIndex = 13
Top = 150
Width = 1035
End
Begin VB.OptionButton Option1
BackColor = &H00DAE9EC&
Caption = "高分辨率"
ForeColor = &H00FF00FF&
Height = 255
Index = 0
Left = 6030
TabIndex = 12
Top = 150
Value = -1 'True
Width = 1065
End
Begin VB.Label Label1
BackColor = &H00DAE9EC&
ForeColor = &H00FF0000&
Height = 225
Left = 9210
TabIndex = 2
Top = 180
Width = 2565
WordWrap = -1 'True
End
End
Begin XP_Form.XPForm XPFrm_1
Height = 9495
Left = 0
TabIndex = 0
Top = 0
Width = 12000
_ExtentX = 21167
_ExtentY = 16748
Caption = ""
End
End
Attribute VB_Name = "Frm_1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click()
If Check1.Value = 0 Then
ShockwaveFlash1.Loop = False
Else
ShockwaveFlash1.Loop = True
End If
End Sub
Private Sub cmdOpen_Click() '打开
With CommonDialog1
.Filter = "swf(*.swf)|*.swf"
.ShowOpen
End With
ShockwaveFlash1.Movie = CommonDialog1.FileName
cmdPlay_Click
End Sub
Private Sub cmdPlay_Click() '开始播放
ShockwaveFlash1.ScaleMode = 0 '将画面大小设置为在控件内保持动画原来比例全部显示
Timer1.Enabled = True
Slider1.Max = ShockwaveFlash1.TotalFrames '显示帧数
k = Str(Slider1.Max)
k = "共" + k + " 帧"
ShockwaveFlash1.Playing = True '开始播放动画。
End Sub
Private Sub cmdPause_Click()
ShockwaveFlash1.Stop '暂停播放
End Sub
Private Sub cmdPreFrame_Click()
ShockwaveFlash1.Back '跳到动画的上一帧
End Sub
Private Sub cmdNextFrame_Click()
ShockwaveFlash1.Forward '跳到动画的下一帧
End Sub
Private Sub cmdExit_Click()
Unload Frm_1 '卸载主窗体及所有程序
End Sub
Private Sub cmdZoomIn_Click()
ShockwaveFlash1.Zoom (50) '放大画面。
End Sub
Private Sub cmdZoomOut_Click()
ShockwaveFlash1.Zoom (200) '缩小画面。
End Sub
Private Sub Form_Load()
Frm_1.Caption = " Flash Player 1.0 "
ShockwaveFlash1.ScaleMode = 0 '将画面大小设置为在控件内保持动画原来比例全部显示
End Sub
Private Sub Option1_Click(Index As Integer)
If Option1(0).Value = True Then
ShockwaveFlash1.Quality = 1 '将画面质量设置为高分辨率
Else
ShockwaveFlash1.Quality = 0 '将画面质量设置为低分辨率
End If
End Sub
Private Sub Slider1_Scroll()
ShockwaveFlash1.FrameNum = Slider1.Value '当用户拖动滑动条时，将播放帧数设置为滑动条中的值。
End Sub
Private Sub Timer1_Timer()
Label1.Caption = k + ",当前" + Str(ShockwaveFlash1.FrameNum) + " 帧" '在状态栏和滑动条上显示当前播放的帧。
Slider1.Value = ShockwaveFlash1.FrameNum
End Sub
Private Sub Timer2_Timer()
XPFrm_1.Caption = CommonDialog1.FileName + " 【" + Format(Date, "yyyy/mm/dd") + " " + Format(Now, "hh:mm:ss") + "】 QQ:83076253 Email:jinzhao_wzb@163.com"
End Sub
Private Sub XPFrm_1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '拖动窗体
If Button = 1 Then
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
Else
End If
End Sub
Private Sub XPFrm_1_CloseClick() '关闭按钮的事件
Unload Frm_1 '卸载主窗体及所有程序
End Sub
Private Sub XPFrm_1_MinClick() '最小化按钮的事件
Me.WindowState = 1 '窗体最小化
End Sub
Private Sub Frm_1_Resize()
XPFrm_1.Width = Me.Width
XPFrm_1.Height = Me.Height
'XPForm_1.Nomin = True '屏蔽最小化按钮(如果你不想有最小化按钮)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -