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

📄 frmmain.frm

📁 这是一个电子书制作生成的工具源码,十分有价值,而且运用了加密解密的技术
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Begin VB.Form frmmain 
   Caption         =   "新林eBook制作工具 Ver 1.0"
   ClientHeight    =   8580
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5595
   Icon            =   "frmmain.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   8580
   ScaleWidth      =   5595
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Caption         =   "电子书的图标"
      Height          =   1215
      Left            =   600
      TabIndex        =   23
      Top             =   6600
      Width           =   2295
      Begin VB.PictureBox picIcon 
         AutoRedraw      =   -1  'True
         Height          =   615
         Left            =   120
         ScaleHeight     =   555
         ScaleWidth      =   675
         TabIndex        =   26
         Top             =   240
         Width           =   735
      End
      Begin VB.CommandButton cmdSetDefIcon 
         Caption         =   "设为默认"
         Height          =   375
         Left            =   960
         TabIndex        =   25
         Top             =   720
         Width           =   1095
      End
      Begin VB.CommandButton cmdLoadIcon 
         Caption         =   "载入图标"
         Height          =   375
         Left            =   960
         TabIndex        =   24
         Top             =   240
         Width           =   1095
      End
   End
   Begin VB.CommandButton cmdSaveP 
      Caption         =   "保存工程"
      Height          =   495
      Left            =   4080
      TabIndex        =   22
      Top             =   7920
      Width           =   1215
   End
   Begin VB.CommandButton cmdOpenP 
      Caption         =   "打开工程"
      Height          =   495
      Left            =   2400
      TabIndex        =   21
      Top             =   7920
      Width           =   1215
   End
   Begin VB.CommandButton cmdNewP 
      Caption         =   "新建工程"
      Height          =   495
      Left            =   840
      TabIndex        =   20
      Top             =   7920
      Width           =   1215
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "(&X)退出"
      Height          =   350
      Left            =   4125
      TabIndex        =   19
      Top             =   6195
      Width           =   1215
   End
   Begin VB.CommandButton cmdabout 
      Caption         =   "(&A)关于"
      Height          =   350
      Left            =   2655
      TabIndex        =   18
      Top             =   6195
      Width           =   1215
   End
   Begin VB.CommandButton cmdcompile 
      Caption         =   "(&C)编译"
      Height          =   350
      Left            =   1170
      TabIndex        =   17
      Top             =   6195
      Width           =   1215
   End
   Begin VB.CommandButton cmdoutput 
      Caption         =   "…"
      Height          =   330
      Left            =   4530
      TabIndex        =   16
      Top             =   4867
      Width           =   510
   End
   Begin VB.TextBox txtOutfolder 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1530
      TabIndex        =   14
      Top             =   4890
      Width           =   2880
   End
   Begin VB.CommandButton cmdselall 
      Caption         =   "(&S)全部选定"
      Height          =   330
      Left            =   3885
      TabIndex        =   12
      Top             =   3270
      Width           =   1230
   End
   Begin VB.TextBox txtHomepage 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   150
      TabIndex        =   10
      Top             =   2430
      Width           =   2325
   End
   Begin VB.ListBox lstFiles 
      Height          =   1110
      Left            =   105
      Style           =   1  'Checkbox
      TabIndex        =   8
      Top             =   3300
      Width           =   3660
   End
   Begin VB.TextBox txtOutfile 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1530
      TabIndex        =   7
      Top             =   5340
      Width           =   3375
   End
   Begin VB.CommandButton cmdopen 
      Caption         =   "…"
      Height          =   345
      Left            =   4560
      TabIndex        =   6
      Top             =   1665
      Width           =   435
   End
   Begin VB.TextBox txtPath 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   135
      TabIndex        =   5
      Top             =   1680
      Width           =   4350
   End
   Begin VB.TextBox txtAuthor 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1620
      TabIndex        =   3
      Top             =   780
      Width           =   3450
   End
   Begin VB.TextBox txtTitle 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1620
      TabIndex        =   1
      Top             =   315
      Width           =   3450
   End
   Begin VB.Image imghelp 
      Height          =   210
      Index           =   6
      Left            =   5145
      Tag             =   "7"
      Top             =   5400
      Width           =   240
   End
   Begin VB.Image imghelp 
      Height          =   210
      Index           =   5
      Left            =   5145
      Tag             =   "6"
      Top             =   4920
      Width           =   240
   End
   Begin VB.Image imghelp 
      Height          =   210
      Index           =   4
      Left            =   5145
      Tag             =   "5"
      Top             =   4185
      Width           =   240
   End
   Begin VB.Image imghelp 
      Height          =   210
      Index           =   3
      Left            =   2580
      Tag             =   "4"
      Top             =   2490
      Width           =   240
   End
   Begin VB.Image imghelp 
      Height          =   210
      Index           =   2
      Left            =   5145
      Tag             =   "3"
      Top             =   1732
      Width           =   240
   End
   Begin VB.Image imghelp 
      Height          =   210
      Index           =   0
      Left            =   5145
      Tag             =   "1"
      Top             =   352
      Width           =   240
   End
   Begin VB.Image imghelp 
      Height          =   210
      Index           =   1
      Left            =   5145
      Tag             =   "2"
      Top             =   840
      Width           =   240
   End
   Begin VB.Image img1 
      Height          =   210
      Left            =   165
      Picture         =   "frmmain.frx":0CCA
      Top             =   7935
      Visible         =   0   'False
      Width           =   240
   End
   Begin VB.Line Line6 
      BorderColor     =   &H00808080&
      X1              =   0
      X2              =   5310
      Y1              =   5880
      Y2              =   5880
   End
   Begin VB.Line Line5 
      BorderColor     =   &H00FFFFFF&
      X1              =   15
      X2              =   5325
      Y1              =   5895
      Y2              =   5895
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "输出文件:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   165
      TabIndex        =   15
      Top             =   5400
      Width           =   900
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "输出文件夹:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   150
      TabIndex        =   13
      Top             =   4935
      Width           =   1080
   End
   Begin VB.Line Line4 
      BorderColor     =   &H00808080&
      X1              =   60
      X2              =   5370
      Y1              =   4725
      Y2              =   4725
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00FFFFFF&
      X1              =   75
      X2              =   5385
      Y1              =   4740
      Y2              =   4740
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "请选取你想要包括的文件∶"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   150
      TabIndex        =   11
      Top             =   2940
      Width           =   2160
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "索引页:包括你的索引页名字∶"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   150
      TabIndex        =   9
      Top             =   2175
      Width           =   2520
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00FFFFFF&

⌨️ 快捷键说明

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