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

📄 frmmain.frm

📁 几个不错的VB例子
💻 FRM
📖 第 1 页 / 共 5 页
字号:
            BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "Add_Pict"
               Object.ToolTipText     =   "Add picture/s..."
               ImageIndex      =   8
            EndProperty
            BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "Full"
               Object.ToolTipText     =   "Full screen"
               ImageIndex      =   9
            EndProperty
            BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Previous"
               Object.ToolTipText     =   "Previous"
               ImageIndex      =   10
            EndProperty
            BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Next"
               Object.ToolTipText     =   "Next"
               ImageIndex      =   12
            EndProperty
            BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Play"
               Object.ToolTipText     =   "Play"
               ImageIndex      =   11
               Style           =   2
            EndProperty
            BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Pause"
               Object.ToolTipText     =   "Pause"
               ImageIndex      =   13
               Style           =   2
               Value           =   1
            EndProperty
            BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "First"
               Object.ToolTipText     =   "First"
               ImageIndex      =   14
            EndProperty
            BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Last"
               Object.ToolTipText     =   "Last"
               ImageIndex      =   15
            EndProperty
         EndProperty
      End
      Begin Thumb_DB.ucGraphicButton btnAboutMe 
         Height          =   180
         Left            =   9480
         ToolTipText     =   "About me..."
         Top             =   75
         Width           =   240
         _ExtentX        =   423
         _ExtentY        =   318
         Color           =   1
      End
      Begin Thumb_DB.ucGraphicButton btnHelp 
         Height          =   180
         Left            =   9180
         ToolTipText     =   "Fast help..."
         Top             =   75
         Width           =   240
         _ExtentX        =   423
         _ExtentY        =   318
         Color           =   1
      End
      Begin MSComctlLib.Toolbar CommandExit 
         Height          =   330
         Left            =   9765
         TabIndex        =   24
         Top             =   0
         Width           =   465
         _ExtentX        =   820
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         AllowCustomize  =   0   'False
         Wrappable       =   0   'False
         Style           =   1
         ImageList       =   "Icons"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   3
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Exit"
               Object.ToolTipText     =   "Quit Thumb DB"
               ImageIndex      =   16
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            EndProperty
         EndProperty
      End
   End
   Begin MSComctlLib.ImageList Icons 
      Left            =   165
      Top             =   3255
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   19
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1E70
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1FD0
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":212C
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2288
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":23E4
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2540
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":26A0
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":27FC
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2958
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2AB4
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2C10
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2D74
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2ED0
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":3034
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":3190
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":32EC
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":3450
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":35B0
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":3710
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Data DataPictures 
      Caption         =   "DataPictures"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   420
      Left            =   2415
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   8655
      Visible         =   0   'False
      Width           =   2355
   End
   Begin VB.PictureBox ThumbGridBack 
      Appearance      =   0  'Flat
      BackColor       =   &H00808080&
      ClipControls    =   0   'False
      ForeColor       =   &H80000008&
      Height          =   6945
      Left            =   4200
      ScaleHeight     =   461
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   410
      TabIndex        =   7
      TabStop         =   0   'False
      Top             =   1050
      Width           =   6180
      Begin VB.VScrollBar vsbFullGrid 
         Height          =   6930
         LargeChange     =   7
         Left            =   5940
         Max             =   0
         TabIndex        =   12
         TabStop         =   0   'False
         Top             =   0
         Visible         =   0   'False
         Width           =   225
      End
      Begin MSFlexGridLib.MSFlexGrid FullGrid 
         Height          =   960
         Left            =   -15
         TabIndex        =   0
         Top             =   -15
         Visible         =   0   'False
         Width           =   6750
         _ExtentX        =   11906
         _ExtentY        =   1693
         _Version        =   393216
         Rows            =   1
         Cols            =   1
         FixedRows       =   0
         FixedCols       =   0
         RowHeightMin    =   990
         BackColor       =   8421504
         ForeColor       =   65280
         BackColorFixed  =   8421504
         ForeColorFixed  =   65280
         BackColorBkg    =   12632256
         GridColor       =   0
         WordWrap        =   -1  'True
         AllowBigSelection=   0   'False
         ScrollTrack     =   -1  'True
         FocusRect       =   0
         ScrollBars      =   2
         SelectionMode   =   1
         Appearance      =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Verdana"
            Size            =   6.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.PictureBox ThumbGrid 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H00808080&
         BorderStyle     =   0  'None
         ClipControls    =   0   'False
         DrawWidth       =   2
         ForeColor       =   &H00404040&
         Height          =   2595
         Left            =   0
         ScaleHeight     =   173
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   395
         TabIndex        =   1
         Top             =   0
         Width           =   5925
         Begin VB.PictureBox crsCopy 
            Appearance      =   0  'Flat
            AutoSize        =   -1  'True
            BackColor       =   &H80000005&
            BorderStyle     =   0  'None
            ClipControls    =   0   'False
            ForeColor       =   &H80000008&
            Height          =   480
            Left            =   570
            Picture         =   "frmMain.frx":386C
            ScaleHeight     =   32
            ScaleMode       =   3  'Pixel
            ScaleWidth      =   32
            TabIndex        =   29
            TabStop         =   0   'False
            Top             =   1005
            Visible         =   0   'False
            Width           =   480
         End
         Begin VB.PictureBox crsMove 
            Appearance      =   0  'Flat
            AutoSize        =   -1  'True
            BackColor       =   &H80000005&
            BorderStyle     =   0  'None
            ClipControls    =   0   'False
            ForeColor       =   &H80000008&
            Height          =   480
            Left            =   45
            Picture         =   "frmMain.frx":3B76
            ScaleHeight     =   32
            ScaleMode       =   3  'Pixel
            ScaleWidth      =   32
            TabIndex        =   28
            TabStop         =   0   'False
            Top             =   1005
            Visible         =   0   'False
            Width           =   480
         End
         Begin VB.Image Image_Copied 
            Height          =   225
            Left            =   90
            Picture         =   "frmMain.frx":3E80
            Top             =   2100
            Visible         =   0   'False
            Width           =   915
         End
         Begin VB.Image Image_Error 
            Height          =   225
            Left            =   90
            Picture         =   "frmMain.frx":3F2D
            Top             =   2370
            Visible         =   0   'False
            Width           =   915
         End
         Begin VB.Image Image_Moved 
            Height          =   225
            Left            =   90
            Picture         =   "frmMain.frx":418F
            Top             =   1830
            Visible         =   0   'False
            Width           =   915
         End
         Begin VB.Image Image_Deleted 
            Height          =   225
            Left            =   90
            Picture         =   "frmMain.frx":43F1
            Top             =   1560
            Visible         =   0   'False
            Width           =   915
         End
      End
      Begin VB.VScrollBar vsbThumbGrid 
         Height          =   6930
         LargeChange     =   462
         Left            =   5940
         Max             =   0
         SmallChange     =   66
         TabIndex        =   11
         TabStop         =   0   'False
         Top             =   0
         Width           =   225
      End
      Begin VB.Line Line1 
         X1              =   395
         X2              =   395
         Y1              =   461
         Y2              =   -2
      End
   End
   Begin MSComctlLib.TreeView TreeView 
      Height          =   2805
      Left            =   120
      TabIndex        =   2
      Top             =   1050

⌨️ 快捷键说明

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