📄 form1.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.OCX"
Begin VB.Form Form1
BorderStyle = 0 'None
Caption = "My FLV Player & Converter by Adilou"
ClientHeight = 4830
ClientLeft = 105
ClientTop = 105
ClientWidth = 4845
Icon = "Form1.frx":0000
LinkTopic = "Form1"
OLEDropMode = 1 'Manual
ScaleHeight = 4830
ScaleWidth = 4845
StartUpPosition = 3 'Windows Default
Begin VB.PictureBox dragpic
Appearance = 0 'Flat
BackColor = &H00000005&
ForeColor = &H80000008&
Height = 1335
Left = -120
ScaleHeight = 1305
ScaleWidth = 4905
TabIndex = 10
Top = 1080
Width = 4935
Begin VB.Label draglabel
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Drag && Drop files here"
BeginProperty Font
Name = "Verdana"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 840
TabIndex = 11
Top = 480
Width = 2940
End
End
Begin VB.PictureBox restorepic
Appearance = 0 'Flat
BackColor = &H00000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 320
Left = 0
MousePointer = 2 'Cross
Picture = "Form1.frx":0CCA
ScaleHeight = 315
ScaleWidth = 1275
TabIndex = 9
Top = 50
Visible = 0 'False
Width = 1275
End
Begin MSComDlg.CommonDialog dlg
Left = 720
Top = 3120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.PictureBox Picture4
Appearance = 0 'Flat
BackColor = &H00000005&
ForeColor = &H80000008&
Height = 375
Left = 4440
Picture = "Form1.frx":20BC
ScaleHeight = 345
ScaleWidth = 315
TabIndex = 6
ToolTipText = "Close"
Top = 0
Width = 350
End
Begin VB.Timer Timer1
Interval = 50
Left = 120
Top = 3120
End
Begin VB.PictureBox resizepic
Appearance = 0 'Flat
BackColor = &H00808080&
ForeColor = &H80000008&
Height = 495
Left = 4320
MouseIcon = "Form1.frx":2776
MousePointer = 8 'Size NW SE
Picture = "Form1.frx":2A80
ScaleHeight = 465
ScaleWidth = 465
TabIndex = 5
Top = 4080
Width = 495
End
Begin VB.PictureBox Picture3
Appearance = 0 'Flat
BackColor = &H00000005&
ForeColor = &H80000008&
Height = 735
Left = -240
ScaleHeight = 705
ScaleWidth = 5145
TabIndex = 4
Top = 4080
Width = 5175
Begin VB.PictureBox fullscreen
AutoSize = -1 'True
BackColor = &H80000001&
BorderStyle = 0 'None
Height = 300
Left = 3000
Picture = "Form1.frx":2C9E
ScaleHeight = 300
ScaleWidth = 1500
TabIndex = 8
Top = 120
Visible = 0 'False
Width = 1500
End
Begin VB.PictureBox OpenFile
AutoSize = -1 'True
BackColor = &H80000001&
BorderStyle = 0 'None
Height = 300
Left = 360
Picture = "Form1.frx":4450
ScaleHeight = 300
ScaleWidth = 1260
TabIndex = 7
Top = 120
Width = 1260
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Contact: adilou89@hotmail.com"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 840
TabIndex = 12
Top = 480
Width = 3135
End
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H00000005&
ForeColor = &H80000008&
Height = 375
Left = -240
Picture = "Form1.frx":5842
ScaleHeight = 345
ScaleWidth = 55770
TabIndex = 0
Top = 0
Width = 55800
Begin VB.Label status
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 3550
TabIndex = 3
Top = 105
Width = 855
End
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 255
Left = 4680
TabIndex = 2
Top = 120
Width = 255
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 255
Left = 4680
TabIndex = 1
Top = 120
Width = 255
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'==========================================='
' My FLV Player by Adilou '
' Contact: adilou89@hotmail.com '
' '
' Based on FLV Player 3.7 '
' http://www.jeroenwijering.com/ '
'===========================================
Private Declare Sub SHChangeNotify Lib "shell32.dll" (ByVal wEventId As Long, ByVal uFlags As Long, dwItem1 As Any, dwItem2 As Any)
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Public WithEvents ctrl As VBControlExtender
Attribute ctrl.VB_VarHelpID = -1
Private Const SHCNE_ASSOCCHANGED = &H8000000
Private Const SHCNF_IDLIST = &H0&
Private Declare Sub ReleaseCapture Lib "user32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Dim tempfile As String
Dim currentheight As Long
Dim currentwidth As Long
Dim p As Integer
Private Sub Form_Load()
On Error Resume Next
'Assoiciate with FLV files
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -