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

📄 frmmdis.frm

📁 vb做的看图系统
💻 FRM
📖 第 1 页 / 共 5 页
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm FrmMdi 
   BackColor       =   &H8000000C&
   Caption         =   "极速数码照片查看播放工具 Ver 2.02"
   ClientHeight    =   11010
   ClientLeft      =   165
   ClientTop       =   315
   ClientWidth     =   14730
   Icon            =   "FrmMdis.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "FrmMdis.frx":0CCE
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.PictureBox PicLeft 
      Align           =   3  'Align Left
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   10260
      Left            =   0
      ScaleHeight     =   684
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   345
      TabIndex        =   9
      Top             =   480
      Width           =   5175
      Begin VB.PictureBox PicClosed 
         BorderStyle     =   0  'None
         Height          =   10215
         Left            =   5040
         ScaleHeight     =   10215
         ScaleWidth      =   135
         TabIndex        =   31
         Top             =   0
         Width           =   135
         Begin VB.Image ImgClosed 
            Height          =   10200
            Left            =   0
            Picture         =   "FrmMdis.frx":57A26
            Stretch         =   -1  'True
            Top             =   0
            Width           =   120
         End
      End
      Begin VB.DriveListBox Drive1 
         Height          =   315
         Left            =   0
         TabIndex        =   29
         Top             =   0
         Width           =   5070
      End
      Begin VB.PictureBox Pic5 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   495
         Left            =   0
         ScaleHeight     =   33
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   337
         TabIndex        =   15
         Top             =   3480
         Width           =   5055
         Begin VB.TextBox TxtNewFolder 
            Height          =   285
            Left            =   120
            TabIndex        =   17
            Top             =   120
            Width           =   2895
         End
         Begin ProXPViewer.TMcmdbutton TMcmdOption 
            Height          =   375
            Left            =   4200
            TabIndex        =   16
            Top             =   90
            Width           =   735
            _ExtentX        =   1296
            _ExtentY        =   661
            XpButton        =   1
            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       =   0
         End
         Begin ProXPViewer.TMcmdbutton TMcmdNewFolder 
            Height          =   375
            Left            =   3120
            TabIndex        =   18
            Top             =   90
            Width           =   1095
            _ExtentX        =   1931
            _ExtentY        =   661
            XpButton        =   1
            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       =   0
         End
         Begin VB.Image Image2 
            Height          =   495
            Left            =   0
            Picture         =   "FrmMdis.frx":5C09F
            Stretch         =   -1  'True
            Top             =   0
            Width           =   5040
         End
      End
      Begin VB.PictureBox PicExif 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   4095
         Left            =   0
         ScaleHeight     =   4095
         ScaleWidth      =   5055
         TabIndex        =   11
         Top             =   8520
         Width           =   5055
         Begin VB.Label LblExifdata 
            BackColor       =   &H00000000&
            BeginProperty Font 
               Name            =   "Verdana"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000FF00&
            Height          =   1400
            Left            =   1440
            TabIndex        =   21
            Top             =   120
            Width           =   3375
         End
         Begin VB.Label LblExifTitle 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00000000&
            BeginProperty Font 
               Name            =   "Verdana"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000FF00&
            Height          =   1400
            Left            =   120
            TabIndex        =   20
            Top             =   120
            Width           =   1215
         End
         Begin VB.Shape Shape2 
            BorderColor     =   &H00E0E0E0&
            Height          =   375
            Index           =   11
            Left            =   1560
            Top             =   4800
            Width           =   3300
         End
         Begin VB.Shape Shape1 
            BorderColor     =   &H00E0E0E0&
            Height          =   375
            Index           =   11
            Left            =   120
            Top             =   4800
            Width           =   1455
         End
         Begin VB.Label LblData 
            Appearance      =   0  'Flat
            AutoSize        =   -1  'True
            BackColor       =   &H80000005&
            BackStyle       =   0  'Transparent
            Caption         =   "ExifData"
            ForeColor       =   &H80000008&
            Height          =   195
            Index           =   4
            Left            =   1680
            TabIndex        =   13
            Top             =   4920
            Width           =   600
         End
         Begin VB.Label Label1 
            Appearance      =   0  'Flat
            AutoSize        =   -1  'True
            BackColor       =   &H80000005&
            BackStyle       =   0  'Transparent
            Caption         =   "Exposure Time"
            ForeColor       =   &H80000008&
            Height          =   195
            Index           =   4
            Left            =   240
            TabIndex        =   12
            Top             =   4920
            Width           =   1050
         End
         Begin VB.Image Image1 
            Height          =   1605
            Left            =   -240
            Picture         =   "FrmMdis.frx":60C2E
            Stretch         =   -1  'True
            Top             =   0
            Width           =   5280
         End
      End
      Begin VB.PictureBox PicPreview 
         AutoRedraw      =   -1  'True
         BackColor       =   &H00808080&
         Height          =   4575
         Left            =   0
         ScaleHeight     =   301
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   333
         TabIndex        =   10
         Top             =   3960
         Width           =   5055
         Begin VB.PictureBox Picture2 
            Height          =   255
            Left            =   120
            ScaleHeight     =   195
            ScaleWidth      =   4515
            TabIndex        =   14
            Top             =   1.50000e5
            Visible         =   0   'False
            Width           =   4575
         End
         Begin VB.Image ImgPreview 
            BorderStyle     =   1  'Fixed Single
            Height          =   3375
            Left            =   960
            Stretch         =   -1  'True
            Top             =   240
            Visible         =   0   'False
            Width           =   1875
         End
         Begin VB.Image Image4 
            Height          =   4560
            Left            =   0
            Picture         =   "FrmMdis.frx":652A7
            Stretch         =   -1  'True
            Top             =   0
            Width           =   5040
         End
      End
      Begin VB.DirListBox Dir1 
         Height          =   3240
         Left            =   0
         TabIndex        =   30
         Top             =   300
         Width           =   5055
      End
      Begin VB.Image Image3 
         Height          =   375
         Left            =   0
         Picture         =   "FrmMdis.frx":69920
         Stretch         =   -1  'True
         Top             =   -1.50000e5
         Width           =   5040
      End
   End
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Appearance      =   0  'Flat
      BackColor       =   &H00800000&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   480
      Left            =   0
      Picture         =   "FrmMdis.frx":6E4AF
      ScaleHeight     =   480
      ScaleWidth      =   14730
      TabIndex        =   0
      Top             =   0
      Width           =   14730
      Begin ProXPViewer.TMcmdbutton TMcmdIndPrint 
         Height          =   375
         Left            =   -10000
         TabIndex        =   7
         Top             =   45
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   661
         XpButton        =   1
         Caption         =   "Index Print"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   0
      End
      Begin ProXPViewer.TMcmdbutton TMcmdbutton6 
         Height          =   375
         Left            =   6435
         TabIndex        =   6
         Top             =   45
         Width           =   615
         _ExtentX        =   1085
         _ExtentY        =   661
         XpButton        =   1
         Caption         =   "WC"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   0
      End
      Begin ProXPViewer.TMcmdbutton TMcmdbutton5 
         Height          =   375
         Left            =   5835
         TabIndex        =   5
         Top             =   45
         Width           =   615
         _ExtentX        =   1085
         _ExtentY        =   661
         XpButton        =   1
         Caption         =   "WH"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   0
      End
      Begin ProXPViewer.TMcmdbutton TMcmdbutton4 
         Height          =   375
         Left            =   5235
         TabIndex        =   4
         Top             =   45
         Width           =   615
         _ExtentX        =   1085
         _ExtentY        =   661
         XpButton        =   1
         Caption         =   "WV"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   0
      End

⌨️ 快捷键说明

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