📄 main.frm
字号:
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "main.frx":4C9E
Key = ""
EndProperty
BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "main.frx":4FB8
Key = ""
EndProperty
BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "main.frx":52D2
Key = ""
EndProperty
BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "main.frx":55EC
Key = ""
EndProperty
BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "main.frx":5906
Key = ""
EndProperty
BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "main.frx":5C20
Key = ""
EndProperty
BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "main.frx":5F3A
Key = ""
EndProperty
BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "main.frx":6254
Key = ""
EndProperty
BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "main.frx":656E
Key = ""
EndProperty
BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "main.frx":6888
Key = ""
EndProperty
BeginProperty ListImage18 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "main.frx":6BA2
Key = ""
EndProperty
BeginProperty ListImage19 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "main.frx":6EBC
Key = ""
EndProperty
BeginProperty ListImage20 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "main.frx":71D6
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuNew
Caption = "新建索引&N"
End
Begin VB.Menu mnuOpen
Caption = "打开索引&O"
End
Begin VB.Menu mnuSave
Caption = "保存&S"
Shortcut = ^S
End
Begin VB.Menu mnuSaveAs
Caption = "另存为&A"
End
Begin VB.Menu mnuSplit7
Caption = "-"
End
Begin VB.Menu mLastFile
Caption = "历史文件"
Index = 0
End
Begin VB.Menu mLastFile
Caption = "2"
Index = 1
Visible = 0 'False
End
Begin VB.Menu mLastFile
Caption = "3"
Index = 2
Visible = 0 'False
End
Begin VB.Menu mLastFile
Caption = "4"
Index = 3
Visible = 0 'False
End
Begin VB.Menu mnuSplitter1
Caption = "-"
Index = 1
End
Begin VB.Menu mnuExit
Caption = "退出&X"
End
End
Begin VB.Menu mnuEdit
Caption = "编辑(&E)"
Begin VB.Menu mnuCopy
Caption = "复制到剪贴版&C"
Shortcut = ^C
End
Begin VB.Menu mnuAppend
Caption = "追加到剪贴版&A"
Shortcut = ^A
End
Begin VB.Menu mnusplit4
Caption = "-"
End
Begin VB.Menu mnuFind
Caption = "当前文件查找&F"
Shortcut = ^F
End
Begin VB.Menu mnuFindNext
Caption = "查找下一个"
Shortcut = {F3}
End
Begin VB.Menu mnuSearch
Caption = "所有文件查找&S"
Shortcut = ^L
End
End
Begin VB.Menu mnuManage
Caption = "操作(&M)"
Begin VB.Menu mnuAddPoint
Caption = "添加标题&A"
Shortcut = {F4}
End
Begin VB.Menu mnuAddSub
Caption = "添加子标题&S"
Shortcut = {F5}
End
Begin VB.Menu mnuEditCap
Caption = "编辑当前标题&E"
Shortcut = {F6}
End
Begin VB.Menu mnuDeletePoint
Caption = "删除标题&D"
Shortcut = {F7}
End
Begin VB.Menu mnuDeleteFile
Caption = "删除标题及对应的文件&K"
Shortcut = {F8}
End
Begin VB.Menu mnuSort
Caption = "当前标题同级排序"
End
Begin VB.Menu mnusplit6
Caption = "-"
End
Begin VB.Menu mnuAddfile
Caption = "导入文件&F"
Shortcut = {F2}
End
Begin VB.Menu mnuExport
Caption = "导出为文件夹&O"
Shortcut = ^E
End
Begin VB.Menu mnuMatch
Caption = "关联文件&M"
Shortcut = ^M
End
Begin VB.Menu mnuClearLink
Caption = "取消当前关联&C"
Shortcut = ^D
End
Begin VB.Menu menusplit3
Caption = "-"
End
Begin VB.Menu mnuExec
Caption = "使用默认浏览器&B"
End
End
Begin VB.Menu mnuOption
Caption = "选项(&O)"
Begin VB.Menu mnuTool
Caption = "工具栏&T"
Checked = -1 'True
End
Begin VB.Menu mnuStatus
Caption = "状态栏&S"
Checked = -1 'True
End
Begin VB.Menu mnuFont
Caption = "字体&F"
End
Begin VB.Menu mnuDefBrowse
Caption = "选择浏览器&B"
End
Begin VB.Menu mnuSplitter2
Caption = "-"
End
Begin VB.Menu mnuDrag
Caption = "动态拖动窗口部件"
Checked = -1 'True
End
Begin VB.Menu mnuSun
Caption = "拖动标题后作为同级"
Checked = -1 'True
End
Begin VB.Menu mnuHtml
Caption = "去掉Html控制符"
Checked = -1 'True
End
Begin VB.Menu mnuAFSon
Caption = "导入文件到子级"
Checked = -1 'True
End
Begin VB.Menu mnuPath
Caption = "索引文件使用相对路径"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu mnuSplitter9
Caption = "-"
End
Begin VB.Menu mnuBOIOpenM
Caption = "将*.BOI文件关联为本软件"
End
Begin VB.Menu mnuBOIOpenUN
Caption = "取消*.BOI文件的关联"
End
End
Begin VB.Menu mnuHlp
Caption = "帮助(&H)"
Begin VB.Menu mnuHelp
Caption = "帮助&H"
Shortcut = {F1}
End
Begin VB.Menu mnuAbout
Caption = "关于&A"
End
End
Begin VB.Menu mnuTree
Caption = "Tree"
Visible = 0 'False
Begin VB.Menu mnuTAddFile
Caption = "导入文件&F"
End
Begin VB.Menu mnuTAddPoint
Caption = "增加标题&A"
End
Begin VB.Menu mnuTAddSub
Caption = "增加子标题&S"
End
Begin VB.Menu mnuTMatch
Caption = "关联文件&M"
End
Begin VB.Menu mnuTClearLink
Caption = "取消当前关联&C"
End
Begin VB.Menu mnuTDelete
Caption = "删除标题&D"
End
Begin VB.Menu mnuTDeleteFile
Caption = "删除标题及对应的文件&E"
End
Begin VB.Menu mnuSplit8
Caption = "-"
End
Begin VB.Menu mnuTExport
Caption = "导出为文件夹&O"
End
Begin VB.Menu mnuTExec
Caption = "用默认浏览器&B"
End
End
Begin VB.Menu mnuTxt
Caption = "txt"
Visible = 0 'False
Begin VB.Menu mnuXCopy
Caption = "复制到剪贴版&C"
End
Begin VB.Menu mnuXAppend
Caption = "追加到剪贴版@A"
End
Begin VB.Menu mnuXCap
Caption = "设置为标题&B"
End
Begin VB.Menu mnuXFont
Caption = "字体&F"
End
Begin VB.Menu mnusplit5
Caption = "-"
End
Begin VB.Menu mnuXExec
Caption = "用默认浏览器"
End
End
End
Attribute VB_Name = "frmBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Last Modify 11.1 20:06
Option Explicit
Dim Lastx As Single
Const MaxRFiles = 4
Const SplitLimit = 1000
Const FrmCaption = "电子书童 v2.5"
Dim Indrag As Boolean, HasSelectFile As Boolean, HasModify As Boolean
Dim NodeToMove As Node '要拖动的项。
Dim tvNSave As String, aa As Integer
Dim ShowText As String, DefBrowse As String
Dim BOIPath As String, DataPath As String
Dim FilesToDelete As String
Dim NFN1(11) As String
Dim onshow As onshow
Dim thisshowN As Long
Dim SaveFileN, SaveFileP As String
Private Sub Form_Load()
Dim tmp As Boolean
NFN1(0) = ".BMP"
NFN1(1) = ".ZIP"
NFN1(2) = ".EXE"
NFN1(3) = ".CHM"
NFN1(4) = ".JPG"
NFN1(5) = ".GIF"
NFN1(6) = ".MP3"
NFN1(7) = ".MID"
NFN1(8) = ".WAV"
NFN1(9) = ".HTM"
NFN1(10) = ".TXT"
NFN1(11) = "HTML"
LoadSet
Call picSplit_MouseMove(1, 0, 0, 0)
tvMain.Nodes.Add , , , "我的文件", 12, 13
tvMain.Nodes(1).Selected = True
gFindDirection = 1
Me.Show
tvMain.SetFocus
CommandLineLoad (Command$)
End Sub
Private Sub Form_Resize()
If Me.Width < 3.5 * SplitLimit And frmBook.WindowState <> 1 Then Me.Width = 3.5 * SplitLimit
ControlSize
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim result As Long
SaveSet
If HasModify Then
result = MsgBox("是否将索引存盘？", vbQuestion Or vbYesNoCancel, "退出")
Select Case result
Case 6 'Yes
mnuSave_Click
Set frmBook = Nothing
End
Case 7 'No
Set frmBook = Nothing
End
Case 2 'Cancel
Cancel = -1
End Select
End If
End Sub
Private Sub lbCaption_Click()
Dim tt As String
If onshow.n <> 0 Then
tt = Trim(InputBox("文件：" + onshow.fn + Chr(10) + "的注释为", "修改注释", onshow.conn))
If tt = "" Then If MsgBox("是否清除这个注释？" + Chr(13) + "如果您刚才点的是“取消”而又没有修改注释，请下次点击“确定”", vbYesNo) = vbNo Then Exit Sub
onshow.conn = tt
tvMain.Nodes(onshow.n).Tag = onshow.conn + Chr(0) + onshow.fn
txtMain.Text = "文件名: " + onshow.fn + Chr(10) + Chr(10) + "注释: " + onshow.conn
Else
MsgBox "只能对当前非 文本/超文本 的文件修改注释!!"
End If
End Sub
Private Sub mLastFile_Click(index As Integer)
'******************************
Dim result As Long
If HasModify = True Then
result = MsgBox("是否将索引存盘？", vbQuestion Or vbYesNoCancel, "打开原有索引")
Select Case result
Case 6 'Yes
mnuSave_Click
Case 7 'No
Case 2 'Cancel
Exit Sub
End Select
End If
CommandLineLoad Right(mLastFile(index).Caption, Len(mLastFile(index).Caption) - 3)
UpdateRecentFiles index
End Sub
Private Sub mnuAbout_Click()
Dim msg As String
msg = msg + " 电子书童 - 文件管理的好帮手" + Chr$(13)
msg = msg + " v2.5.15 11/1/1999 " + Chr$(13) + Chr$(13)
msg = msg + " 作者:陈硕 chenshuo@163.net" + Chr$(13) + Chr$(13)
msg = msg + " 主页: http://duzhe.yeah.net" + Chr$(13) + Chr$(13)
msg = msg + " 主页: http://freecode.yeah.net" + Chr$(13) + Chr$(13)
msg = msg + " 欢迎使用本软件,这是免费软件,您可以到处拷贝,但请保持完整" + Chr$(13)
MsgBox msg, vbOKOnly
End Sub
Private Sub mnuAddfile_Click()
Dim nodx As Node
Dim n, i, fnLen As Integer
Dim c As String * 1
Dim tStr1, tStr2, tfn, tFN2 As String
On Error GoTo errd:
With Comdlg
.CancelError = True
.Filter = "文本文件 (*.TXT;*.htm;*.html)|*.txt;*.htm;*.html|压缩文件(*.ZIP;*.EXE;*.CHM)|*.ZIP;*.EXE;*.CHM|多媒体文件(*.MP3;*.MID;*.JPG;*.GIF;*.BMP)|*.MP3;*.MID;*.JPG;*.GIF;*.BMP|所有文件(*.*)|*.*"
.DialogTitle = "选择文件"
.InitDir = DataPath
.FileName = ""
.Flags = &H4 Or &H1000 Or &H200 Or &H80000 ' And (Not cdlOFNExplorer) 'Or cdlOFNPathMustExist Or cdlOFNLongNames
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -