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

📄 from.frm

📁 OpenPlayer代码
💻 FRM
📖 第 1 页 / 共 5 页
字号:
      Top             =   1905
      Width           =   240
   End
   Begin VB.Image CtrlSwapImage 
      Height          =   195
      Index           =   2
      Left            =   5730
      Picture         =   "From.frx":69B7
      Top             =   1500
      Width           =   240
   End
   Begin VB.Image CtrlImageBase 
      Height          =   195
      Index           =   2
      Left            =   5700
      Picture         =   "From.frx":6C69
      Top             =   1170
      Width           =   240
   End
   Begin VB.Image CtrlImage 
      Height          =   195
      Index           =   2
      Left            =   930
      Picture         =   "From.frx":6F1B
      ToolTipText     =   "重置"
      Top             =   1905
      Width           =   240
   End
   Begin VB.Image CtrlSwapImage 
      Height          =   195
      Index           =   1
      Left            =   5370
      Picture         =   "From.frx":71CD
      Top             =   1500
      Width           =   240
   End
   Begin VB.Image CtrlImageBase 
      Height          =   195
      Index           =   1
      Left            =   5400
      Picture         =   "From.frx":747F
      Top             =   1200
      Width           =   240
   End
   Begin VB.Image CtrlImage 
      Height          =   195
      Index           =   1
      Left            =   615
      Picture         =   "From.frx":7731
      ToolTipText     =   "播放(O)"
      Top             =   1905
      Width           =   240
   End
   Begin VB.Image CtrlSwapImage 
      Height          =   195
      Index           =   0
      Left            =   4950
      Picture         =   "From.frx":79E3
      Top             =   1440
      Width           =   240
   End
   Begin VB.Image CtrlImageBase 
      Height          =   195
      Index           =   0
      Left            =   4950
      Picture         =   "From.frx":7C95
      Top             =   1200
      Width           =   240
   End
   Begin VB.Image CtrlImage 
      Height          =   195
      Index           =   0
      Left            =   270
      Picture         =   "From.frx":7F47
      ToolTipText     =   "打开文件(Ctrl+O)"
      Top             =   1905
      Width           =   240
   End
   Begin VB.Image SuperPlayerIco 
      Height          =   480
      Left            =   4440
      Picture         =   "From.frx":81F9
      Stretch         =   -1  'True
      ToolTipText     =   "关于SuperPlayer"
      Top             =   1830
      Width           =   465
   End
   Begin VB.Image b1 
      Height          =   240
      Index           =   2
      Left            =   5610
      Picture         =   "From.frx":8AC3
      Top             =   450
      Width           =   255
   End
   Begin VB.Image b0 
      Height          =   240
      Index           =   2
      Left            =   5610
      Picture         =   "From.frx":8B69
      Top             =   120
      Width           =   255
   End
   Begin VB.Image SystemButtonImage 
      Height          =   180
      Index           =   2
      Left            =   4320
      Picture         =   "From.frx":8C31
      Stretch         =   -1  'True
      ToolTipText     =   "最小化"
      Top             =   30
      Width           =   180
   End
   Begin VB.Image b1 
      Height          =   240
      Index           =   1
      Left            =   5280
      Picture         =   "From.frx":8CF9
      Top             =   450
      Width           =   255
   End
   Begin VB.Image b0 
      Height          =   240
      Index           =   1
      Left            =   5280
      Picture         =   "From.frx":8DB4
      Top             =   120
      Width           =   255
   End
   Begin VB.Image SystemButtonImage 
      Height          =   180
      Index           =   1
      Left            =   4650
      Picture         =   "From.frx":8E87
      Stretch         =   -1  'True
      ToolTipText     =   "关闭"
      Top             =   30
      Width           =   180
   End
   Begin VB.Image b1 
      Height          =   240
      Index           =   0
      Left            =   4950
      Picture         =   "From.frx":8F5A
      Top             =   420
      Width           =   255
   End
   Begin VB.Image b0 
      Height          =   240
      Index           =   0
      Left            =   4980
      Picture         =   "From.frx":9014
      Top             =   120
      Width           =   255
   End
   Begin VB.Image SystemButtonImage 
      Height          =   180
      Index           =   0
      Left            =   120
      Picture         =   "From.frx":90E3
      Stretch         =   -1  'True
      Top             =   45
      Width           =   180
   End
   Begin VB.Label FormCaptionLabel 
      BackStyle       =   0  'Transparent
      Height          =   210
      Left            =   0
      TabIndex        =   2
      Top             =   30
      Width           =   4905
   End
   Begin VB.Label TitleLabel 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "OpenPlayer"
      ForeColor       =   &H00FF8080&
      Height          =   180
      Left            =   1830
      TabIndex        =   1
      Top             =   30
      Width           =   900
   End
   Begin VB.Menu popup1 
      Caption         =   "pop&up1"
      Begin VB.Menu MSearchFile 
         Caption         =   "SearchFile"
         Shortcut        =   {F3}
      End
      Begin VB.Menu WallPaper1 
         Caption         =   "WallPaper1"
         Shortcut        =   {F12}
      End
      Begin VB.Menu Open 
         Caption         =   "打开(&O)"
         Shortcut        =   ^O
      End
   End
   Begin VB.Menu ShowPlayList 
      Caption         =   "Show&PlayList"
   End
   Begin VB.Menu ShowFaviritesList 
      Caption         =   "Show&FaviritesList"
   End
   Begin VB.Menu ShowSearchList 
      Caption         =   "Show&SearchList"
   End
   Begin VB.Menu PlaylistPopup 
      Caption         =   "PlaylistPopup"
      Visible         =   0   'False
      Begin VB.Menu Mplay 
         Caption         =   "播放(&P)"
      End
      Begin VB.Menu PMMovieNote 
         Caption         =   "电影文件信息(&I)..."
      End
      Begin VB.Menu Add2Favorites 
         Caption         =   "添加到收藏夹(&S)..."
      End
      Begin VB.Menu AddFolder 
         Caption         =   "添加目录(&B)..."
         Shortcut        =   ^B
      End
      Begin VB.Menu AddFile 
         Caption         =   "添加文件(&F)..."
      End
      Begin VB.Menu DelOne 
         Caption         =   "删除一项(&D)"
      End
      Begin VB.Menu DelAll 
         Caption         =   "删除全部(&A)"
      End
   End
   Begin VB.Menu FavoritesPopup 
      Caption         =   "FavoritesPopup"
      Begin VB.Menu MFavPlay 
         Caption         =   "播放(&P)"
      End
      Begin VB.Menu MFMovieNote 
         Caption         =   "电影文件信息(&I)..."
      End
      Begin VB.Menu MFavDelOne 
         Caption         =   "删除一项(&D)"
      End
      Begin VB.Menu MFavDelAll 
         Caption         =   "删除全部(&A)"
      End
      Begin VB.Menu OptFav 
         Caption         =   "整理收藏夹(&O)..."
      End
   End
   Begin VB.Menu SysPopup 
      Caption         =   "SysPopup"
      Visible         =   0   'False
      Begin VB.Menu MFormMove 
         Caption         =   "移动(&M)"
      End
      Begin VB.Menu MFormMin 
         Caption         =   "最小化(&N)"
      End
      Begin VB.Menu F 
         Caption         =   "-"
      End
      Begin VB.Menu MFormQuit 
         Caption         =   "退出(&Q)"
      End
      Begin VB.Menu MFormAbout 
         Caption         =   "关于SuperPlayer(&A)..."
      End
   End
   Begin VB.Menu SearchPopup 
      Caption         =   "SearchPopup"
      Visible         =   0   'False
      Begin VB.Menu MSSearch 
         Caption         =   "搜索(&S)"
      End
      Begin VB.Menu MSPlay 
         Caption         =   "播放(&P)"
      End
      Begin VB.Menu MSMovieInfo 
         Caption         =   "电影文件信息(&I)..."
      End
      Begin VB.Menu MSAdd2Fav 
         Caption         =   "添加到收藏夹(&O)..."
      End
   End
   Begin VB.Menu TrayPopup 
      Caption         =   "TrayPopup"
      Visible         =   0   'False
      Begin VB.Menu OpenFlashFile 
         Caption         =   "打开文件(&O)"
      End
      Begin VB.Menu stopplay 
         Caption         =   "播放(&S)"
      End
      Begin VB.Menu aboutme 
         Caption         =   "关于(&A)..."
      End
      Begin VB.Menu meexit 
         Caption         =   "走人"
      End
   End
   Begin VB.Menu PlayPopup 
      Caption         =   "popup"
      NegotiatePosition=   1  'Left
      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 Min 
         Caption         =   "最小化(&M)"
      End
      Begin VB.Menu onTop 
         Caption         =   "总在最前面(&T)"
      End
      Begin VB.Menu MMouseDownMoveForm 
         Caption         =   "当鼠标按下时移动窗体(&M)"
         Checked         =   -1  'True
         Visible         =   0   'False
      End
      Begin VB.Menu s7 
         Caption         =   "-"
      End
      Begin VB.Menu Control 
         Caption         =   "控制"
         Begin VB.Menu MLoop1 
            Caption         =   "循环(&L)"
            Checked         =   -1  'True
         End
         Begin VB.Menu pMplay 
            Caption         =   "播放(&P)"
         End
         Begin VB.Menu MRewind 
            Caption         =   "重置(&R)"
         End
         Begin VB.Menu MForward 
            Caption         =   "下一帧(&F)"
         End
         Begin VB.Menu MBack 
            Caption         =   "上一帧(B)"
         End
         Begin VB.Menu ss2 
            Caption         =   "-"
         End
         Begin VB.Menu MCMouseDownMoveForm 
            Caption         =   "当鼠标按下时移动窗体(&M)"
            Checked         =   -1  'True
         End
         Begin VB.Menu MCDisableSortKey 
            Caption         =   "屏蔽快捷键功能"
         End
      End
      Begin VB.Menu s1 
         Caption         =   "-"
      End
      Begin VB.Menu F4 
         Caption         =   "质量"
         Begin VB.Menu FF1 

⌨️ 快捷键说明

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