⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 from.frm

📁 OpenPlayer代码
💻 FRM
📖 第 1 页 / 共 5 页
字号:
      End
      Begin VB.Line Line8 
         BorderColor     =   &H00FFFFFF&
         X1              =   4800
         X2              =   4800
         Y1              =   -30
         Y2              =   2280
      End
      Begin VB.Line Line7 
         BorderColor     =   &H00FFFFFF&
         X1              =   90
         X2              =   4800
         Y1              =   2280
         Y2              =   2280
      End
      Begin VB.Line Line6 
         BorderColor     =   &H00FFFFFF&
         X1              =   0
         X2              =   0
         Y1              =   0
         Y2              =   2370
      End
      Begin VB.Image ImgSearch 
         Height          =   330
         Left            =   2850
         Picture         =   "From.frx":1984
         Stretch         =   -1  'True
         ToolTipText     =   "搜索盘上所有Flash 动画文件"
         Top             =   1980
         Width           =   420
      End
      Begin VB.Label ListButton 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         BorderStyle     =   1  'Fixed Single
         Caption         =   " 搜索列表 "
         ForeColor       =   &H80000008&
         Height          =   240
         Index           =   2
         Left            =   1830
         TabIndex        =   13
         ToolTipText     =   "显示搜索列表框(Alt+S)"
         Top             =   2010
         Width           =   960
      End
      Begin VB.Label ListButton 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   1  'Fixed Single
         Caption         =   " 收藏夹 "
         ForeColor       =   &H00404040&
         Height          =   240
         Index           =   1
         Left            =   1050
         TabIndex        =   12
         ToolTipText     =   "显示收藏夹列表框(Alt+F)"
         Top             =   2010
         Width           =   780
      End
      Begin VB.Label ListButton 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H80000006&
         BorderStyle     =   1  'Fixed Single
         Caption         =   " 播放列表 "
         ForeColor       =   &H80000005&
         Height          =   240
         Index           =   0
         Left            =   90
         TabIndex        =   11
         ToolTipText     =   "显示播放过或等待播放的文件列表框(Alt+P)"
         Top             =   2010
         Width           =   960
      End
   End
   Begin VB.Timer TimeLabelTimer 
      Interval        =   80
      Left            =   510
      Top             =   630
   End
   Begin VB.Timer MoveFormTimer 
      Enabled         =   0   'False
      Interval        =   10
      Left            =   3720
      Top             =   1650
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      Caption         =   "速度"
      ForeColor       =   &H000080FF&
      Height          =   210
      Left            =   2445
      TabIndex        =   36
      ToolTipText     =   "调整播放速度,达到真正的快放慢放。(仅当前电影有效)"
      Top             =   1905
      Width           =   435
   End
   Begin VB.Image b1 
      Height          =   240
      Index           =   3
      Left            =   5940
      Picture         =   "From.frx":224E
      Top             =   480
      Width           =   255
   End
   Begin VB.Image b0 
      Height          =   240
      Index           =   3
      Left            =   5910
      Picture         =   "From.frx":25F5
      Top             =   120
      Width           =   255
   End
   Begin VB.Image SystemButtonImage 
      Height          =   180
      Index           =   3
      Left            =   4500
      Picture         =   "From.frx":299B
      Stretch         =   -1  'True
      ToolTipText     =   "显示/隐藏播放区"
      Top             =   30
      Width           =   180
   End
   Begin VB.Image CtrlImageBase 
      Height          =   480
      Index           =   6
      Left            =   7080
      Picture         =   "From.frx":2D41
      Top             =   1110
      Width           =   480
   End
   Begin VB.Image CtrlSwapImage 
      Height          =   480
      Index           =   6
      Left            =   7110
      Picture         =   "From.frx":360B
      Top             =   1500
      Width           =   480
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "列表"
      ForeColor       =   &H00FF8080&
      Height          =   165
      Index           =   1
      Left            =   1800
      TabIndex        =   22
      Top             =   4890
      Width           =   1065
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "属性"
      ForeColor       =   &H00FF8080&
      Height          =   165
      Index           =   0
      Left            =   1860
      TabIndex        =   21
      Top             =   2370
      Width           =   1065
   End
   Begin VB.Image CloseButtonIamge 
      Height          =   180
      Index           =   1
      Left            =   4650
      Picture         =   "From.frx":42D9
      Stretch         =   -1  'True
      ToolTipText     =   "隐藏或显示[列表]窗口"
      Top             =   4890
      Width           =   180
   End
   Begin VB.Image Image1 
      Height          =   255
      Index           =   1
      Left            =   -30
      Picture         =   "From.frx":43A1
      Stretch         =   -1  'True
      Top             =   4860
      Width           =   4980
   End
   Begin VB.Image CloseButtonIamge 
      Height          =   180
      Index           =   0
      Left            =   4650
      Picture         =   "From.frx":4A27
      Stretch         =   -1  'True
      ToolTipText     =   "隐藏或显示[属性]窗口"
      Top             =   2340
      Width           =   180
   End
   Begin VB.Image Image1 
      Height          =   255
      Index           =   0
      Left            =   -30
      Picture         =   "From.frx":4AEF
      Stretch         =   -1  'True
      Top             =   2310
      Width           =   4980
   End
   Begin VB.Label FrameNumberLabel 
      AutoSize        =   -1  'True
      BackColor       =   &H80000012&
      Caption         =   "第?帧"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   180
      Left            =   1350
      TabIndex        =   14
      Top             =   960
      Width           =   600
   End
   Begin VB.Label AuthorLabel 
      BackColor       =   &H80000007&
      Caption         =   "作者:"
      ForeColor       =   &H0080FF80&
      Height          =   225
      Left            =   2760
      TabIndex        =   8
      Top             =   660
      Width           =   1995
   End
   Begin VB.Label MovieLabel 
      BackColor       =   &H00404040&
      Caption         =   "电影名:"
      ForeColor       =   &H0080FF80&
      Height          =   195
      Left            =   2760
      TabIndex        =   7
      Top             =   360
      Width           =   1995
   End
   Begin VB.Label TimeLabel 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "00:00:00"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080FF80&
      Height          =   240
      Left            =   450
      TabIndex        =   6
      ToolTipText     =   "当前电影逝去时间"
      Top             =   390
      Width           =   960
   End
   Begin VB.Label BlackLabel 
      BackColor       =   &H80000007&
      BorderStyle     =   1  'Fixed Single
      Height          =   885
      Left            =   360
      TabIndex        =   5
      Top             =   330
      Width           =   2265
   End
   Begin VB.Label ProgressEventLabel 
      BackStyle       =   0  'Transparent
      Height          =   225
      Left            =   300
      TabIndex        =   3
      Top             =   1385
      Width           =   2300
   End
   Begin VB.Label ProgressFlagLabel 
      BackColor       =   &H000080FF&
      Height          =   180
      Left            =   270
      TabIndex        =   4
      Top             =   1385
      Width           =   300
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00FF0000&
      BorderWidth     =   2
      Index           =   1
      X1              =   300
      X2              =   2600
      Y1              =   1485
      Y2              =   1485
   End
   Begin VB.Line Line2 
      BorderColor     =   &H000000FF&
      BorderWidth     =   2
      Index           =   0
      X1              =   300
      X2              =   315
      Y1              =   1485
      Y2              =   1485
   End
   Begin VB.Image CtrlSwapImage 
      Height          =   195
      Index           =   5
      Left            =   6690
      Picture         =   "From.frx":5175
      Top             =   1530
      Width           =   240
   End
   Begin VB.Image CtrlImageBase 
      Height          =   195
      Index           =   5
      Left            =   6720
      Picture         =   "From.frx":5427
      Top             =   1230
      Width           =   240
   End
   Begin VB.Image CtrlImage 
      Height          =   195
      Index           =   5
      Left            =   1560
      Picture         =   "From.frx":56D9
      ToolTipText     =   "上一帧"
      Top             =   1905
      Width           =   240
   End
   Begin VB.Image CtrlSwapImage 
      Height          =   195
      Index           =   4
      Left            =   6330
      Picture         =   "From.frx":598B
      Top             =   1470
      Width           =   240
   End
   Begin VB.Image CtrlImageBase 
      Height          =   195
      Index           =   4
      Left            =   6330
      Picture         =   "From.frx":5C3D
      Top             =   1140
      Width           =   240
   End
   Begin VB.Image CtrlImage 
      Height          =   195
      Index           =   4
      Left            =   1890
      Picture         =   "From.frx":5EEF
      ToolTipText     =   "下一帧"
      Top             =   1905
      Width           =   240
   End
   Begin VB.Image CtrlSwapImage 
      Height          =   195
      Index           =   3
      Left            =   6060
      Picture         =   "From.frx":61A1
      Top             =   1500
      Width           =   240
   End
   Begin VB.Image CtrlImageBase 
      Height          =   195
      Index           =   3
      Left            =   6030
      Picture         =   "From.frx":6453
      Top             =   1170
      Width           =   240
   End
   Begin VB.Image CtrlImage 
      Height          =   195
      Index           =   3
      Left            =   1245
      Picture         =   "From.frx":6705
      ToolTipText     =   "停止播放动画"

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -